1, 彩票生成系统: 生成一组随机的双色球彩票(一共7个数字,前六位随机范围为1-33,最后一位范围1-16),使用数组保存生成的每次随机数.要求数组的前六位不能出现重复的数字.提示:使用数组
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 09:40:30
1, 彩票生成系统: 生成一组随机的双色球彩票(一共7个数字,前六位随机范围为1-33,最后一位范围1-16),使用数组保存生成的每次随机数.要求数组的前六位不能出现重复的数字.提示:使用数组
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 写的一个 对付看吧