【学号怎么编】VB怎么编抽学号的一步一步来我要制作一个随机抽取1-50号之间的...

发布时间：2021-03-22 12:57:25

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

网友回答

【答案】 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
以上问题属网友观点，不代表本站立场，仅供参考！