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