VB中怎么设置内容随即显示？

来源：百度知道 编辑：UC知道 时间：2024/05/18 00:23:34
我想在LABEL里显示一句变化的语句！在timer里不知道该怎么写！

Private Sub Timer1_Timer()
Dim Str(3) As String
Str(0) = "大家好啊!"
Str(1) = "现在中午了！"
Str(2) = "唉！时间过的真慢！"
Randomize '这句必须要加，对随机数生成器做初始化的动作
Label1.Caption = Str(Int(Rnd * 3)) 'int(rnd*3) 生成0-2的随机数，数组Str的下标
End Sub

Option Explicit
Dim k As Integer

Private Sub Form_Load()
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
k = k + 1
Dim i
i = k Mod 3
Select Case i
Case 0
Label1.Caption = "11111"
Case 1
Label1.Caption = "22222"
Case 2
Label1.Caption = "33333"
End Select
End Sub

先设置TIMER的属性:

Timer1.Enabled = True
Timer1.Interval = 1000

'1000表示1秒

然后

Private Sub Timer1_Timer()
Label1.Caption = "内容"
End Sub