text1.text输入一个数字（0到12的整数），得出从0到这个数字的传动路线
与1连接的是2，3，4
与2连接的是8，9
与3连接的是7
与4连接的是5，6
与9连接的是10，11，12

比如text1.text输入10,,那么传动路线就是1，2，9，10

图嘛,,,不过数据结构没学大好 也不知道怎么用VB表达

我们的作业啊，两天就交了，我发不出图啊，图是这样的
http://hiphotos.baidu.com/woshichenge/pic/item/2c0c6434ae5183215ab5f568.jpg

深度优先搜索一下即可。中途记得用数组保存路径。

管你text1.text还是啥呢，我讨论的是算法。
至于上课不听交不了作业的，我无话可说。

打印出倒叙来，至于正序这一点你自己弄（数组赋值），我今天发现了VB为什么一定要用GOTO了，比起C，他的退出叠层循环和数组循环赋值确实有点不行，反正
我是用不惯，用FOR循环给数组赋值时候，老说下表越界。。。。这点确实不如C

Private Sub Command1_Click()
Dim num As Integer
Dim a(4, 2) As Integer
Dim i, j As Integer

a(0, 0) = 2
a(0, 1) = 3
a(0, 2) = 4

a(1, 0) = 8
a(1, 1) = 9

a(2, 0) = 7

a(3, 0) = 5
a(3, 1) = 6

a(4, 0) = 10
a(4, 1) = 11
a(4, 2) = 12

num = CInt(Text1.Text)
Print num




Do Until num = 1  '核心,希望你看懂，不是我害了你

  For i = 0 To 4
     For j = 0 To 2
        If a(i, j) = num Then
               num = i + 1
               If num = 5 Then num = 9
               GoTo break
        End If
     Next j
  Next i

break:
Print num
Loop
End Sub

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-4 20:04 编辑 [/it]]

说白了，还有最简单的就是----每个数组里的元素，都对应固定的路径，比如10，11，12，这几个路径都一样

嗯对 是对树的深度优先搜索。
既然这样，我比较习惯递归做。

用递归确实更容易理解。

非递归的就要手工维护栈，累。