【超实用VBS系列课】函数进阶——汉诺塔

递归实例：汉诺塔

dim n

n=3

hannuota "A","B","C",n

Function hannuota(a,b,c,n)

if n=1 then 

nsgbox a&"->1->"&c

else

hannuota a,c,b,n-1

msgbox a&"->"&n&"->"&c

hannuota b,a,c,n-1

end if

End Function