34题 Mid(text1.text,l,1)
36 i+j-1
37T 底下有Loop 上面应该添Do while A<20
38T Mid(xy,n,1)
39T 除37得0的数合并到一块 ,3774
40T M(3,1)=13
41T 3 6
42T 5
43T 1,只要空格处所填表达式值等于1均可
44T else
45T Next。For没有Next,Next是关键字
46T to 4。For循环的格式为 For <变量=初值> to 终值 [Step 步长]
Mid(Text1, I, 1) '这是个不完整的程序段,要调试必须给text1赋值,并且要求是要输入一段字符,但是程序不可能实现这个功能
i + j - 1
Do While a <= 19
Mid(xy, n, 1)
3774
13
3 6
5
1或者c-b等一切算术运算结果为1的
Else
Next
To 4