问答题
在考生文件夹中有一个工程文件sj3.vbp，相应的窗体文件为sj3.frm。在名为Form1的窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名为Text1，初始内容为空白；此外还有一个列表框，其名称为List1。程序运行后，如果在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子作为一个项目添加到列表框中，如下图所示。
该程序不完整，请补充完整。
要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分，最后按原文件名并在原文件夹中保存修改后的文件。
【正确答案】Len()函数用于返回指定字符串的长度。使用Mid函数取出字符串中的字符。Mid函数的格式为：Mid(字符串,P,
n)。Mid函数从第P个字符开始，向后截取n个字符，P和n都是算术表达式。Mid函数的第三个变量可以省略，这样将第P个字符开始先后截取到字符串的结尾。根据题意，双击Command1命令按钮进入代码窗口，补充后的代码如下：
Private Sub Command1_Click()
Dim s1 As String，s2 As String
Dim I1 As Integer
s1=Text1
I1=1
Do
Do While Mid(s1,I1,1)[*]{{U}}" "{{/U}} And I1＜=Len(s1)
s2=s2 & {{U}}Mid{{/U}}(s1,I1,1)
I1=I1+1
Loop
List1.AddItem {{U}}s2{{/U}}
s2={{U}}" "{{/U}}
I1=I1+1
Loop While I1＜=Len(s1)
End Sub
单击[*]按钮运行程序，并按要求保存。
【答案解析】