这样:窗体上放一个可以输入人数的文本编辑框,一个 Label,一个 ComboBox,两个按钮(启动,停止)。
Option Explicit
Dim k As Integer
Private Sub Command1_Click()
Text1.Locked = True
Label1.Caption = IIf(k = 1, "一", IIf(k = 2, "二", "三")) & "等奖"
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Dim n As Integer
Timer1.Enabled = False
Randomize
n = Rnd * Combo1.ListCount
Text1 = Combo1.List(n - 1)
Combo1.RemoveItem n
k = k - 1
If k = 0 Then
Command1.Enabled = False
Command2.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To Val(Text1)
Combo1.AddItem i
Next i
Combo1.Visible = False
Timer1.Enabled = False
Timer1.Interval = 50