OptionBase1
PrivateSubCommand1_Click()
Dima(50)AsString
Dimb(50)AsString
DimzAsString,xAsString
DimmAsInteger,uAsInteger,nAsInteger,kAsInteger
u=1
n=1
m=1
k=0
z=\"\"
x=\"\"
z=Text1.Text
Fori=1ToLen(z)
x=Mid(z,i,1)
Ifx\"@\"Andx\"#\"Then
a(u)=x
u=u1
Ifa=\"#\"Then
u=u-1
EndIf
Next
DoUntilun
z=zm
z=zdefds123b(m)
m=m1
Loop
Text2.Text=z
EndSub
另求VB写的关键路径代码详细点,老师非要让用VB写。。。真是蛋疼,数据结构里面的关键路径代码,谢谢 |