依然求助 vb 实现二叉树前序遍历

[榜bb]

用C++的代码是这样的
Status PreOrderTraverse(BiTree T,Status(*Visit)(TElemType e)){
//前序遍历二叉树的非递归算法，对每个元素调用函数Visit
InitStack(S); p = T;
while(p || !StackEmpty(S)){
if(p){
if(!Visit(p->data)){
return ERROR;
}
Push(S,p);
p = p->lchild;
}
else{
Pop(S,p);
p = p->rchild;
}
}//while
return OK;
} //PreOrderTr

这是二叉树的前序遍历，现在我想用VB实现 在Text1 让用户输入一个序列 然后前序遍历 输出结果到label1 如 ABCDE 前序遍历后为 ABDEC
大概目的是这样的，请问VB 可以用栈 不， 或者 该如何实现？？ 望高人指点~

[liguicd]

帮顶.......