中科新闻网迷你特工队歌曲什么歌:用vb编的显示汉诺塔搬运过程的程序，为什么总是显示不出来
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 13:28:13
程序如下：
Private Sub Command1_Click()
Text2.Text = 2 ^ Text1.Text - 1
Call hanoi(Text1.Text, A, B, C)
End Sub
Sub hanoi(ByVal n As Integer, ByVal one As String, ByVal two As String, ByVal three As String)
If n = 1 Then
Label1.Caption = Label1.Caption + Chr(10) + one + "->" + three
Else
Call hanoi(n - 1, one, three, two)
Label1.Caption = Label1.Caption + Chr(10) + one + "->" + three
Call hanoi(n - 1, two, one, three)
End If
End Sub
Private Sub Command1_Click()
Text2.Text = 2 ^ Text1.Text - 1
Call hanoi(Text1.Text, A, B, C)
End Sub
Sub hanoi(ByVal n As Integer, ByVal one As String, ByVal two As String, ByVal three As String)
If n = 1 Then
Label1.Caption = Label1.Caption + Chr(10) + one + "->" + three
Else
Call hanoi(n - 1, one, three, two)
Label1.Caption = Label1.Caption + Chr(10) + one + "->" + three
Call hanoi(n - 1, two, one, three)
End If
End Sub
Sub Hanoi第2，3，4个形参是字符串，但你传给他们的实参是变体A,B,C.
应改成：
Call Hanoi(Val(Text1.text),"A","B","C")
建议：
1.规范语法。
2.声明变量。
3.Text2时什么，做什么用，没用的不显示。