VB怎么编抽学号的一步一步来我要制作一个随机抽取1-50号之间的小工具.一打开,上方的数字就会变来变去,一按“选择数字”,数字就突然停止,停到随机一个数字,如何制作?要求：讲的详细的

Question

VB怎么编抽学号的
一步一步来我要制作一个随机抽取1-50号之间的小工具.一打开,上方的数字就会变来变去,一按“选择数字”,数字就突然停止,停到随机一个数字,如何制作? 要求 ：讲的详细的才给分,要步骤.谢谢

Answer 1

Private Sub Form_Load()
Timer1.Interval = 100 '设置随机数字0.1秒刷新一次
Timer1.Enabled = True '开启计时器
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int(50 * Rnd) + 1 '随机产生1-50的数字
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False '如果仅一次选择学号就用这句代码
'Timer1.Enabled = Not Timer1.Enabled '如果要多次选择学号就用这句代码
End Sub