Private Sub Timer2_Timer()
Dim s1, s2 As String
Dim i As Integer
s1 = Label2.Caption
i = 1
让字一个一个出来，写：
If i <= Len(s1) Then
        s2 = s2 & Mid(s1, i, 1)
        i = i + 1
Else
    Timer2.Enabled = False
    Timer2.Enabled = True
    Label2.Visible = False
End If
Label2.Caption = s2
End Sub
这样为什么不对？

因为程序启动后，Timer2 的每次 Timer 事件就会执行下列语句:

s1 = Label2.Caption
i = 1

所以，Label2 的 Caption 没有任何变化。正确做法是将 Timer 事件中的上面两条语句放到 Form_Load 中:

Private Sub Form_Load()
  s1 = Label2.Caption
  i = 1
End Sub

并把前面两条语句: Dim s1, s2 As String 和 Dim i As Integer 放在过程外，成为模块级变量。

然后你再运行试试看。

[此贴子已经被作者于2005-10-6 14:07:27编辑过]

另外，如果你希望程序能够反复使用的话，可以把 If ... Else ... End If 那一块改成: If i <= Len(s1) Then s2 = s2 & Mid(s1, i, 1) i = i + 1 Else Timer2.Enabled = False Timer2.Enabled = True Label2.Visible = False i = 1 End If

[此贴子已经被作者于2005-10-6 14:11:39编辑过]

哦！谢谢！！
太感谢了！！

能人居多啊

看来是自学的

自学者无敌!@!!!!