今天学习了随机生存rnd ,就想到彩票的随机生存.不知道怎么前6个数会有小数，而不是整数，还有怎么把0去掉
Private Sub Command1_Click()
Dim a, b, c, d, e, f, g As Integer
a = int((33*Rnd)+1)
b =int((33*Rnd)+1)
c = int((33*Rnd)+1)
d = int((33*Rnd)+1)
e = int((33*Rnd)+1)
f = int((33*Rnd)+1)
g = int((16*rnd)+1)
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
Text7.Text = g
End Sub

[此贴子已经被作者于2007-7-8 20:36:16编辑过]

'定义数组
Private Sub Command1_Click()
Static num(1 To 33) As Integer
Text2 = ""
For j = 1 To 33
num(j) = 0
Next j
Dim s, i
Randomize
For t = 0 To 5
Text1(t) = ""
begin:
s = Int(Rnd() * (33 - 1 + 1)) + 1
n = Int(Rnd() * (16 - 1 + 1)) + 1
If num(s) <> 1 Then
num(s) = 1
Else
GoTo begin:
End If
Text1(t) = s
Text2 = n
Next t
End Sub
这样应该是没问题的了，我测试过了!