Dim GRedBall(32) As Integer
Dim RedBall(6) As Integer
Rnd (Resize)
For k = 0 To 32
GRedBall(k) = k + 1
Next k
For j = 0 To 5
k = Int(Rnd * (33 - j))
RedBall(j) = GRedBall(k)
For l = k To 32 - j
If l 32 Then
GRedBall(l) = GRedBall(l + 1)
End If
Next l
Next j
RedBall(6) = Int(Rnd * 15) + 1
MsgBox (RedBall(0) & " " & RedBall(1) & " " & RedBall(2) & " " & RedBall(3) & " " & RedBall(4) & " " & RedBall(5) & " " & RedBall(6))
用VB 寫的一個(gè) 對(duì)付看吧大哥不行啊。。。我們老師讓我們用java寫的 你會(huì)不會(huì)啊，，，幫幫忙第一我不會(huì)JAVA還有知道怎么做了 用什么語(yǔ)言無(wú)所謂啊如果不愛(ài)研究 編程不學(xué)也罷