作者wint0007 (怎麽那样滴麻烦阿~@@")
看板Visual_Basic
标题[.NET] 扑克牌发牌~
时间Thu May 11 03:20:04 2006
不好意思
又来打扰了
因为我是刚学.NET
很多都很不懂
希望大家不要嫌弃我不帮我解答
---------------------------------------------------------分隔线
老师要我们做一个发牌程式
要发给四个人牌
想当然尔是不能同样的牌
就是要用到随机观念
我看了一下
大概前面可以这样写
Dim card(4, 13) As Boolean
Dim den, num, t, temp, i As Integer
Dim path(51) As String
Private Sub Command1_Click()
Randomize
For den = 0 To 3
For num = 0 To 12
card(den, num) = True
Next num
Next den
for i = 0 to 51
Do
den = Int(Rnd*4) : num = (Rnd*13)
loop until card(den,num)
.
.
.
.
以下我就看不懂了 (以上如果有写错请告诉我)
而且里面还有写到好像是贴上图片之类的
那个我实在看不懂耶
除了以上那个问题外
还有老师要我们发给四个人的牌都是有按照花色跟顺序
这个有特殊的方法吗
还是说写出来就是随机帮我们排好阿???
有点长
谢谢大家有耐心看完
希望可以一步一步慢慢讲解给我听
因为跳太快我实在也看不懂!!!!!
叩谢大家~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.219.98.180