Question

怎么用vb做一个抽奖程序

第一张图这样写的时候按开始按钮不出现数字，第二张图这样写有数字出现但是不滚动，如图三，到底要怎么做啊





Answer 1

只要在窗体中做二个命令按钮、一个标签和一个定时器对象，复制以下代码，就可以运行了：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "暂停"
Timer1.Enabled = True
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label1.FontSize = 50
Timer1.Interval = 50
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "结束"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 50) + 1
End Sub

Answer 2

不懂