1, 彩票生成系统： 生成一组随机的双色球彩票(一共7个数字,前六位随机范围为1-33,最后一位范围1-16),
问题描述：
1, 彩票生成系统： 生成一组随机的双色球彩票(一共7个数字,前六位随机范围为1-33,最后一位范围1-16),
使用数组保存生成的每次随机数.要求数组的前六位不能出现重复的数字.提示：使用数组和二重循环. 谁帮我写出来啊?我不会啊?
答
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 写的一个 对付看吧大哥不行啊。。。我们老师让我们用java写的 你会不会啊，，，帮帮忙第一我不会JAVA还有知道怎么做了 用什么语言无所谓啊如果不爱研究 编程不学也罢