另外，需要注意的一點是當盤子垂直移動時，在盤子的原位置重新繪制盤子為窗體背景色時，由于會導致一段柱子也會被覆蓋成窗體背景色，因此在原位置繪制盤子為背景色之后應立即重新繪制一次柱子。

　　由于目前技術水平下PC機的CPU性能比較高，程序的執行時間非常短，為了得到一個適度緩慢的盤子移動速度，在盤子移動到下一個位置時應該暫停一個時間段。本程序中通過設置一個延遲函數以達到目的，當盤子從子路徑的一端移動到另一端時立即調用自定義延遲函數delay()，delay()函數只是起到暫停程序執行的作用，不執行任何改變盤子現狀的指令。一個delay()函數的例子如下：

　　Private Sub delay()

　　Dim tt As Double

　　tt = Timer

　　While Timer - tt < 0.001 '延遲

　　DoEvents

　　Wend

　　End Sub

　　4 結束語

　　本文實現了一個完整的Hanoi塔問題動態演示程序，由用戶輸入盤子數，盤子數目限定在1至10之間，盤子太多，屏幕顯示不下。程序編寫、運行環境為windows xp+vb6.0，屏幕分辯率為1024×768。