vb编写一个模拟抽奖的程序(急~~~谢谢)

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:07:04
号码从100~200号，界面自己设计，功能如下：点击抽奖开始按钮，文本框不停地出现100~200的号码，点击停止按钮时，文本出现一个中奖的号码。（提示要用到随机函数）。

'需要一个label 两个command 一个time控件

Private Sub Command1_Click()
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Caption = "Open"
Command2.Caption = "End"
Command2.Enabled = False
Label1.Caption = "1"
Label1.Alignment = 2
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CInt(Rnd * 99 + 100)
End Sub

我可以帮你解决，支付宝交易。
联系方式：272835910@qq.com

0分？闪。