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编辑过]
哇。。。厉害哦。。。什么都难不了你
出错后面的那个符号
2楼的``厉害啊`````能想成这样```牛```````我都有点看不懂了`````````看样子数学一定很厉害`````我写了一个简单一点的```很容易看懂````我觉得```还是不要搞得那么复杂`````````x=0for i=1 to len(text1.text) step 3 print "A("&x&")"&mid(text1.text,i,3)&";"&; x=x+1next i
不愧是安徽师范大学。一直循环我的脑袋瓜也一直。。差点就死机了。