装修问答

一个命令按钮，一个定时器，一个标签，一个列表框；代码如下（复制即可）：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Comman俯矗碘匪鄢睹碉色冬姬d1.Caption = "停止"
Else
Command1.Caption = "开始"
Timer1.Enabled = False
For i = List1.ListCount - 1 To 0 Step -1
If List1.List(i) = Label1.Caption Then
List1.RemoveItem i
Exit For
End If
Next i
End If
Label1.FontSize = 300
End Sub
Private Sub Form_Load()
For i = 10 To 50
List1.AddItem i
Next i
‘上面的三句是在列表框中加入内容的，你可以换成你需要的人名
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Randomize
i = Int(Rnd * List1.ListCount)
Label1.Caption = List1.List(i)
End Sub
有问题可以HI我

程序运行好象有点不对