汉诺塔VB实现
来源:互联网 发布:八中数据谷实验中学 编辑:程序博客网 时间:2024/05/17 04:25
Dim num As Integer '盘子的个数
Private Sub Hanoi(n As Integer, A As String, B As String, C As String) '移动盘子的递归过程 If n = 1 Then Call Moves(A, C) Else Call Hanoi(n - 1, A, C, B) Call Hanoi(1, A, B, C) Call Hanoi(n - 1, B, A, C) End IfEnd Sub
Private Sub Moves(A As String, B As String) '移动 Print A & "->" & B '移动结果打印到屏幕上 List1.AddItem A & "->" & B '移动结果输出到列表框中End Sub
Private Sub Command1_Click() '赋值及过程调用num = Val(Text1.Text)Call Hanoi(num, "A", "B", "C")End Sub
3 0
- 汉诺塔VB实现
- VB实现抽象类
- VB 实现隐形程序
- vb实现水波特效
- vb实现透明窗体
- VB实现调整屏幕分辨率
- VB实现NotifyIcon
- VB 钩子的实现
- IAutoComplete之VB实现
- vb实现多线程
- RC4 算法 VB 实现
- VB实现关机程序
- VB实现钩子
- VB实现天气查询
- vb实现http协议
- vb实现多线程!
- VB实现抽象类
- vb实现IP设置
- 01分数规划
- 13.1点,圆
- 求X的N次方
- Hadoop在Windows环境下的部署
- Mysql_PreparedStatement
- 汉诺塔VB实现
- android之4.0控件switch自定义开关滑块、滑块轨道和宽度
- MySQL中文参考手册
- php截取html摘要,自动检查html标签闭合
- 迁移表、索引的表空间
- 第十四周(项目一)——动物这样叫。
- 数组如何去重
- ANR分析
- ios--Xcode重置窗口