急急，为什么k = Int(Rnd * 10) 每次一开始运行都是7，然后就是5

Question

在用rnd之前先用randomize函数初始化随机序列，每次就可得到不同的随机数了

Answer 1

每次开始前都用Randomize初始化一下

Answer 2

Dim a As Boolean
Private Sub Command1_Click()
a = True
End Sub
Private Sub Command2_Click()
a = False
End SubPrivate Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
 upperbound = 9
 lowerbound = 0
If a = True Then
 Text1 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text2 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text3 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text4 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text5 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text6 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 Text7 = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
 End If
End Sub