英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 14:10:12
![英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i](/uploads/image/z/13772739-3-9.jpg?t=%E8%8B%B1%E8%AF%AD%E7%BF%BB%E8%AF%91Dim+s+As+StringDim+i+As+IntegerList1.Clears+%3D+Text1.Texti+%3D+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 '循环体结束
'也许有不准确之处,供参考