vb怎样轮流显示text内容

Dim A(1 To 3) As String, X As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
X = 0
A(1) = "准备"
A(2) = "开始"
A(3) = "正在进行"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
X = X + 1
Timer1.Interval = 3000
Text1.Text = A(X)
If X = 3 Then X = 0
End Sub

已经测试，没有问题，添加一个Timer控件即可。

添加一个timer控件

 Private Sub Timer1_Timer() '将Timer1 Interval 设为 3000

a = a + 1
If a = 1 Then text1.Text = "准备"
If a = 2 Then text1.Text = "开始"
If a = 3 Then
text1.Text = "正在进行"
Timer1.Enabled = False
End If
End Sub