英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i

英语翻译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  '循环体结束
'也许有不准确之处,供参考