请教如何能使时间停止后，所产生的数据没用相同的，谢谢！！！

[msdn165168]

请教如何能使时间停止后，所产生的数据没用相同的，谢谢！！！
Private Sub Timer1_Timer()
Dim sj1, sj2, ys, ys1, ys2, y3, y4 As Integer
If commandd2 = True Then
Randomize (Time + 1) '初始化随机数
sj1 = Fix(Rnd * 33 + 1)
Text1(0).Text = sj1
Randomize (Time + 2) '初始化随机数
sj2 = Fix(Rnd * 33 + 1)
Text1(1).Text = sj2

Randomize (Time + 3) '初始化随机数
ys = Fix(Rnd * 33 + 1)
Text1(2).Text = ys

Randomize (Time + 4) '初始化随机数
ys1 = Fix(Rnd * 33 + 1)
Text1(3).Text = ys1

Randomize (Time + 5) '初始化随机数
ys2 = Fix(Rnd * 33 + 1)
Text1(4).Text = ys2

Randomize (Time + 6) '初始化随机数
y3 = Fix(Rnd * 33 + 1)
Text1(5).Text = y3

Randomize (Time + 7) '初始化随机数
y4 = Fix(Rnd * 16 + 1)
Text1(6).Text = y4

End If

End Sub

[happy_sea]

做33选7的吧？试试下面的代码：
Private Sub Timer1_Timer()
Dim n(6) As Integer, i As Integer, j As Integer
If commandd2 = True Then
Randomize Timer '初始化随机数
For i = 0 To 6
lp:
n(i) = Fix(Rnd * 33 + 1)
If i = 0 Then
Text1(0).Text = n(0)
Else
For j = 0 To i - 1
If n(i) = n(j) Then GoTo lp
Next j
Text1(i) = n(i)
End If
Next i
End If

End Sub