第壹個程序是可以執行的，只是必須把j設為全局變量或靜態變量，下面是靜態變量的方法：
Private?Sub?Timer1_Timer()Static?j?As?Integer
Form1.Caption?=?Space(20?-?j)?&?"查找與替換例"
j?=?(j?+?1)?Mod?20
End?Sub
妳自己搞的那個從思路和語法上都是完全錯了，而且錯得非常離譜，錯到姥姥家了！
僅從語法上來看，應該這麽改：
Private?Sub?Timer1_Timer()If?Me.ScaleLeft?<?6000?Then
Form1.Caption?=?"?"?+?Form1.Caption
ElseIf?Me.ScaleLeft?>=?6000?Then
Form1.Caption?=?"查找與替換例"
End?If
End?Sub
這樣就沒語法錯誤了，但正如我前面所述，由於思路錯誤，這段程序仍然是無法正常運行的。妳究竟理解 Me.ScaleLeft 是什麽意思麽？