Question

vb中如何隔不同的时间在文本框中显示不同的文字

Answer 1

窗体放一个文本框和一个时间控件：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = Now
End Sub

Answer 2

Dim a(100) As String
Private Sub Form_Load()
Timer1.Interval = 2000
i = i + 1
End Sub

Private Sub Timer1_Timer()
Text1.Text = a(i)
End Sub

a是字符串数组，可以自己设置文字