vb隨機點名1

新建工程壹個Text1文本框壹個Command1按鈕壹個Timer1定時器源代碼如下：(VB6.0測試正常) Option ExplicitDim bRun As Boolean

Dim strName(1 To 5) As String

Dim iNum As IntegerPrivate Sub Form_Load()

bRun = False

Text1.Text = ""

Command1.Caption = "開始"

Timer1.Enabled = False

Timer1.Interval = 50

strName(1) = "張三"

strName(2) = "李四"

strName(3) = "王五"

strName(4) = "趙六"

strName(5) = "劉七"

End SubPrivate Sub Command1_Click()If bRun = False Then

bRun = True

Timer1.Enabled = True

Command1.Caption = "停止"

Else

bRun = False

Timer1.Enabled = False

Command1.Caption = "開始"

End IfEnd SubPrivate Sub Timer1_Timer()

Randomize

iNum = 1 + (Rnd() * 5) Mod 5

Text1.Text = strName(iNum)

End Sub

上一篇:在技術指標中，只有未來函數才能引起信號的漂移麽？

下一篇:淘寶店鋪如何設置短網址