UC知道如何让随即抽签中的人名动起来？（VB语言）
来源：百度知道 编辑：UC知道 时间：2024/05/30 07:04:01
以下是我用VB语言编的一个随机抽班级人名的程序
如何点开始后让人名在框内随机滚动，这时开始键变为结束键
点结束键后在滚动到的人名出停止滚动
Private Sub Command1_Click()
Randomize
r = Int((53 - 1 + 1) * Rnd + 1)
If r = 1 Then k = "揣露露"
If r = 2 Then k = "黄德青"
If r = 3 Then k = "王慧"
If r = 4 Then k = "张义"
If r = 5 Then k = "井仁仁"
If r = 6 Then k = "高丽娜"
If r = 7 Then k = "晋兰兰"
If r = 8 Then k = "孙秉玺"
If r = 9 Then k = "毛金枫"
If r = 10 Then k = "李晓明"
If r = 11 Then k = "崔怡春"
If r = 12 Then k = "曹露露"
If r = 13 Then k = "刘明锦"
If r = 14 Then k = "张书萍"
If r = 15 Then k = "陈亚丽"
If r = 16 Then k = "戚苗苗"
If r = 17 Then k = "赵明明"
If r = 18 Then k = "刘明飞"
If r = 19 Then k = "张彬"
If r = 20 Then k = "刘文恒"
If r = 21 Then k = "黄飞燕"<
如何点开始后让人名在框内随机滚动，这时开始键变为结束键
点结束键后在滚动到的人名出停止滚动
Private Sub Command1_Click()
Randomize
r = Int((53 - 1 + 1) * Rnd + 1)
If r = 1 Then k = "揣露露"
If r = 2 Then k = "黄德青"
If r = 3 Then k = "王慧"
If r = 4 Then k = "张义"
If r = 5 Then k = "井仁仁"
If r = 6 Then k = "高丽娜"
If r = 7 Then k = "晋兰兰"
If r = 8 Then k = "孙秉玺"
If r = 9 Then k = "毛金枫"
If r = 10 Then k = "李晓明"
If r = 11 Then k = "崔怡春"
If r = 12 Then k = "曹露露"
If r = 13 Then k = "刘明锦"
If r = 14 Then k = "张书萍"
If r = 15 Then k = "陈亚丽"
If r = 16 Then k = "戚苗苗"
If r = 17 Then k = "赵明明"
If r = 18 Then k = "刘明飞"
If r = 19 Then k = "张彬"
If r = 20 Then k = "刘文恒"
If r = 21 Then k = "黄飞燕"<
新建一个工程，添加一个timer控件，1个text控件，1个command控件。将下面的程序复制过去就可以了
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "结束"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Text1.FontSize = 20
End Sub
Private Sub Timer1_Timer()
Dim r As Integer
r = Int(51 * Rnd + 1)
If r = 1 Then k = "揣露露"
If r = 2 Then k = "黄德青"
If r = 3 Then k = "王慧"
If r = 4 Then k = "张义"
If r = 5 Then k = "井仁仁"
If r = 6 Then k = "高丽娜"
If r = 7 Then k = "晋兰兰"
If r = 8 Then k = "孙秉玺"
If r = 9 Then k = "毛金枫"
If r = 10 Then k = "李晓明"
If r = 11 Then k = "崔怡春"
If r = 12 Then k = &quo