如何讓隨即抽簽中的人名動起來？（VB語言）

新建壹個工程，添加壹個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 = "曹露露"

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 = "黃飛燕"

If r = 22 Then k = "王良"

If r = 23 Then k = "常洪寬"

If r = 24 Then k = "何艷偉"

If r = 25 Then k = "楊鵬飛"

If r = 26 Then k = "陳登"

If r = 27 Then k = "刁飛翔"

If r = 28 Then k = "黃雪偉"

If r = 29 Then k = "陳永傑"

If r = 30 Then k = "劉博文"

If r = 31 Then k = "王梓"

If r = 32 Then k = "張亞威"

If r = 33 Then k = "席博帥"

If r = 34 Then k = "李巖"

If r = 35 Then k = "李才龍"

If r = 36 Then k = "夏揚征"

If r = 37 Then k = "張自陽"

If r = 38 Then k = "齊夢飛"

If r = 39 Then k = "張強"

If r = 40 Then k = "李浩強"

If r = 41 Then k = "郭孝峰"

If r = 42 Then k = "王巍博"

If r = 43 Then k = "汪恒"

If r = 44 Then k = "畢夏男"

If r = 45 Then k = "孟楊銳"

If r = 46 Then k = "郭君鵬"

If r = 47 Then k = "馬石林"

If r = 48 Then k = "侯彪"

If r = 49 Then k = "朱磊"

If r = 50 Then k = "張禹"

If r = 51 Then k = "常小宇"

Text1.Text = k

End Sub

上一篇:如何另辟蹊徑讀國內外名校？

下一篇:了解跨境電商專業主要學習哪些課程。