VB問題，出了什麼問題，做對了什麼

0 被 0 替換，第二個是 elseif 不是光燈和 else

**太長，不仔細看，只是幾點建議：

1.刪除或注釋掉錯誤恢復接下來，然後執行它以了解什麼是錯誤的，什麼是錯誤的。 在程式的設計和除錯階段，盡量不要在錯誤時使用，否則你就不知道怎麼死了！ 即使你認為除錯後你是完全正確的，我也不建議使用On Error resume next，因為所謂的“完全無錯誤**”是不可能存在的，而使用on error resume next就等同於掩蓋錯誤，這是一種消極的程式設計態度！

2. Timer 是 vb 的內部函式，請勿將其用作變數名，否則會引起衝突。 定義變數名，要麼用單個字母（i、j、k等），也可以用英文單詞+數字的形式（如timer1），這樣可以最大程度避免與vb保留字衝突。 盡量不要使用單個常見的英語單詞作為變數名稱！

3. 將 b、c、timer、temp 調暗為字串錯誤，只有 temp 為字串型別，前三個變數為 variant 型別。 雖然這不一定是錯的，但這是乙個與你本來應該成為的想法截然不同的想法。 正確的應該是：

dim b as string, c as string, timer1 as string, temp as string

4、c = & date\" str(b) +db"這顯然也是錯誤的，因為str函式會自動在正整數前面加乙個空格（其實是給正號保留的），這樣最終生成的檔名就錯了（對於檔案路徑來說，多乙個空格和少乙個空格是完全不同的檔名，比如c：ABC 和 C：ABC 是不同的）。

正確的應該是：c = & date" b & db" '使用 & 作為字串聯結器，不要混用 &+！ 並且這裡新增了str函式，vb會自動將b轉換為字串。

表面上看來，你的**中還是有很多錯誤，只要把上面的第一點處理好，所有的問題都會逐漸浮現出來，然後一一解決。 同樣，不要使用 ON Error Resume Next！ 否則，就像採取逃避和放手生活問題的態度，問題永遠解決不了！！

你需要在迴圈中新增乙個 transfer of control 命令，我不記得具體的命令了，你在其中輸入 vb transfer control。