用二級(jí)VB編寫Hanoi塔問題動(dòng)態(tài)演示程序的演示

　　這一部分的初始化工作在準(zhǔn)備按鈕的click事件過程中實(shí)現(xiàn)，其核心代碼如下：

　　Dim i As Integer

　　'設(shè)置Form窗體屬性

　　Form1.Caption = "準(zhǔn)備…"

　　Form1.Cls

　　'設(shè)置三個(gè)柱子的標(biāo)記

　　CurrentX = 4000

　　CurrentY = hLevel + 61

　　Form1.FontSize = 16

　　Form1.ForeColor = vbRed

　　Form1.FontBold = True

　　Print "A"

　　CurrentX = 8000

　　CurrentY = hLevel + 61

　　Print "B"

　　CurrentX = 12000

　　CurrentY = hLevel + 61

　　Print "C"

　　Form1.ForeColor = &H80000012

　　Form1.FontSize = 10

　　Form1.FontBold = False

　　'畫底線

　　Form1.Line (0, hLevel)-(15360, hLevel + 100), vbGreen, BF

　　'畫三根柱子，A柱子的柱底坐標(biāo)是(4000,10300)

　　'縱坐標(biāo)減10只是為了顯示時(shí)看的效果更好一些，其實(shí)是不應(yīng)該減的，減了后柱子底端縱坐標(biāo)與底線上沿縱坐標(biāo)就不一致了，但屏幕視覺是一致的

　　Form1.Line (3995, 700)-(4005, hLevel - 10), vbBlack, BF

　　Form1.Line (7995, 700)-(8005, hLevel - 10), vbBlack, BF

　　Form1.Line (11995, 700)-(12008, hLevel - 10), vbBlack, BF

　　number = Val(InputBox("請(qǐng)輸入盤子數(shù)：", "輸入數(shù)據(jù)", "3"))

　　Form1.Caption = "共有" & number & "個(gè)盤子"

　　'盤子寬400*i,高度200

　　'相鄰盤子之間的高度差設(shè)置為210，如果設(shè)置為相差200的話，當(dāng)把上面一個(gè)盤子移走時(shí)兩個(gè)盤子重疊部分無(wú)法重新修復(fù)

　　For i = 1 To number

　　Form1.Line ((4000 - (i * 400) / 2), (hLevel - (number + 1 - i) * 210))-((4000 + (i * 400) / 2), (hLevel - (number - i) * 210 - 10)), , BF

　　Next i

　　baseCoordinateY(1) = hLevel - number * 210

　　baseCoordinateY(2) = hLevel

　　baseCoordinateY(3) = hLevel