TEXT1里面内容是
BB 11 22 44 AA 77 AA 77 AA 99 ~~~~~~~~~~~~~~几百那么多
我要把他前面加
A（0）BB; A(1)11; A(2)22 ; A(3)44 ;A(4)AA ; A(5)77 A(6) AA ;A(7)99; ~~~~~~~~~~~~多

如何做出这样PRINT 呢？

谢谢

For i = 1 To Len(Text1.Text) - Len(Text1.Text) / 3 Step 2
Print "A(" & (i - 1) / 2 & ")" & Mid(Text1.Text, i + Int(i / 2), 2) & " ; ";
Next i


试试这个

[此贴子已经被作者于2007-4-15 18:33:05编辑过]

哇。。。厉害哦。。。什么都难不了你

我真的刚学习。。：）
在问一下如果吧他放到TEXT2
是
For i = 1 To Len(Text1.Text) - Len(Text1.Text) / 3 Step 2
me.text2 = "A(" & (i - 1) / 2 & ")" & Mid(Text1.Text, i + Int(i / 2), 2) & " ; ";
Next i
这样对吗。？？

出错后面的那个符号

原来这句我改成这句怎么错了5555555

Print "A(" & (i - 1) / 2 & ")" & Mid(Text1.Text, i + Int(i / 2), 2) & " ; ";


me.text2 = "A(" & (i - 1) / 2 & ")" & Mid(Text1.Text, i + Int(i / 2), 2) & " ; ";


需要怎么改才得啊

For i = 1 To Len(Text1.Text) - Len(Text1.Text) / 3 Step 2
text2.text=text2.text & "A(" & (i - 1) / 2 & ")" & Mid(Text1.Text, i + Int(i / 2), 2) & " ; "
Next i


這樣寫

2楼的``厉害啊`````能想成这样```牛```
````我都有点看不懂了```

``````看样子数学一定很厉害`````

我写了一个简单一点的```很容易看懂````
我觉得```还是不要搞得那么复杂`````````

x=0
for i=1 to len(text1.text) step 3
print "A("&x&")"&mid(text1.text,i,3)&";"&;
x=x+1
next i

呵呵。。。。to 樓上的

我數學學可以，我2樓寫的方法只是當時想的。。沒想那麼多。。。我寫一般循環都喜歡把循環數和裡面聯繫起來

不愧是安徽师范大学。一直循环我的脑袋瓜也一直。。差点就死机了。