英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Text
英语翻译
Dim s As String
Dim i As Integer
List1.Clear
s = Text1.Text
i = 1
Do While i
Dim s As String
Dim i As Integer
List1.Clear
s = Text1.Text
i = 1
Do While i
赞 bobbobzhou 幼苗
共回答了23个问题采纳率：78.3% 举报
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'循环体结束
'也许有不准确之处,供参考
'定义变量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'循环体结束
'也许有不准确之处,供参考
1年前
2
可能相似的问题
你能帮帮他们吗