要求按下Command1,text显示1至38,按下Command2,text显示39至67.
请写出具体代码!!!
參考答案:zheng0823的回答有点小问题,你那样永远得不到38,应该37改为38
同理你command2的事件里28改为29,不然最大只能得到66
因为Rnd函数返回的范围是(0,1]
包含0 ,但不包含1
还有没有初始化随机数种子
修改后的代码:
Private Sub Command1_Click()
Randomize
Dim a As Integer
a = Int(Rnd * 38) + 1
Text1.Text = a
End Sub
Private Sub Command2_Click()
Randomize
Dim a As Integer
a = Int(Rnd * 29) + 39
Text1.Text = a
End Sub