英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/04 19:47:28
xTKKP+A Jb7\+
z,fY|63-G:_#}̈Jr_;i3=9|w6#5m@%
E+57n:gX&fJ
*3ʒ xŒ:H
B\_g}4^J@豆HÛGUhNC2(jfq%Si^!N { ' {R!;}iUnHMD4#B I.G3J*;`܇@ |m(e|mrlֲx1фf^70\Ϸ4PI1[*})vqj],] cP2eԆg>?ŹoI#phU<
ekg*o_;A%2/\1D5ا>IGO{GgͽA3VwI9_pfVi-=KoC\1"O;
英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i
英语翻译
Dim s As String
Dim i As Integer
List1.Clear
s = Text1.Text
i = 1
Do While i
英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i
Dim s As String
'定义变量s为字符串
Dim i As Integer
'定义变量i为整数
List1.Clear
'列表控件清空
s = Text1.Text
'把文本框的值赋给变量s
i = 1
'初始化变量i,等于1
Do While i <= Len(s)
'循环,条件是i <= 字符串s 的长度
List1.AddItem Mid(s, i, 1)
'列表控件增加一个item,一个字符,(字符串s的第i个字符)
i = i + 1
'变量i加1,进入下一轮循环
Loop '循环体结束
'也许有不准确之处,供参考