VB求救啊，我要制作魔法学号

来源：百度知道 编辑：UC知道 时间：2024/06/28 08:49:43
C1 为开始按钮
C2 为停止按钮
T1 为只读文本筐，用来显示学号
如何制作一个用来随机的楱学号用的
点击开始1至50号迅速运转，一点击停止就停随机停到一个学号，请问怎么制作啊
对了 我用的是VB 6.0
快一点回复我啊
如何显示到文本筐里啊

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
Text1.Text = Fix(Rnd * 50 + 1)
End Sub

可以更改timer控件的响应时间以改变随即速度

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
' i你要在前面定义i为全局变量。
if i>50 then
i=1
else
i=i+1
end if
Text1.Text = i
End Sub

timer控件的响应时间设10就足够快了