用VB编写的汉诺塔程序

用VB编写的简单汉诺塔程序PrivateSubcmdStart_Click()n=Int(Text1.Text)ReDimData(1Ton,1To3)Fori=1TonForj=1To3Data(i,j)=0NextjNextiFori=1TonData(i,1)=iNextiColNow=1SelNum=0CallShowPicEndSubPrivateSubForm_KeyDown(KeyCode