汉罗塔游戏VB程序怎么写

Dim N As Integer
Private Sub Form_Click()
Dim N As Integer
N = Val(InputBox("请输入汉诺塔的圆盘总数:"))
Call MoveDisk(N, "A", "B", "C")
End Sub

Sub MoveDisk(N, A As String, B As String, C As String)
If N = 1 Then
Print "将第1个圆盘从第" & A & "根柱子移到第" & C & "根柱子"
Else
Call MoveDisk(N - 1, A, C, B)
Print "将第" & N & "个圆盘从第" & A & "根柱子移到第" & C & "根柱子"
Call MoveDisk(N - 1, B, A, C)
End If
End Sub
这个是文字型的,你自己转换成图片的吧

递归。如果做图型的话，可是很麻烦