【学号怎么编】VB怎么编抽学号的一步一步来我要制作一个随机抽取1-50号之间的...
答案:2 悬赏:60 手机版
解决时间 2021-02-20 04:43
- 提问者网友：咪咪
- 2021-02-19 11:41
【学号怎么编】VB怎么编抽学号的一步一步来我要制作一个随机抽取1-50号之间的...
最佳答案
- 五星知识达人网友：鸽屿
- 2021-02-19 12:41
【答案】 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
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
全部回答
- 1楼网友：罪歌
- 2021-02-19 13:03
这个解释是对的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯