在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“添加”;有一个文本框,名称为Text1,初始内容为空白;有一个列表框,名称为List1。程序运行后,在文本框中输入一个

admin2019-06-11  32

问题 在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“添加”;有一个文本框,名称为Text1,初始内容为空白;有一个列表框,名称为List1。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击“添加”按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图3-195所示。该程序不完整,请补充完整。
   
    要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

选项

答案审题分析 程序设计思路:从文本框的第一个字符开始依次检查其后面的每一个字符,若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环(指内循环),循环条件为:取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数,表达式为:Mid(S1,I1,1)◇" "And Il<=Len(S1),其中S1=Text1.Text,将Mid函数从文本框中取出的非空格字符,逐个连接成一个单词,语句为:S2=S2&Mid(S1,I1,1),每执行一次循环体取字符的起始位置加1,即I1=l1+1。当遇到空格时结束循环,将得到的单词(即变量S2的值)用AddItem方法添加到列表框中,并且清空变量S2,将取字符的起始位置加1。 之后继续执行内循环以得到下一个单词,直到取字符的起始位置(即变量I1的值)超过文本框的总字符数为止,外循环的条件为:11<=Len(S1)。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt3.vbp。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: S1=Text1.Text Do While Mid(S1,I1,1)<>" "And I1 <=Len(S1) List1.AddItem S2 S2=" " 步骤3:按要求将文件保存至考生文件夹中。 考点链接 多重循环、选择控件、常用内部函数。

解析
转载请注明原文地址:https://kaotiyun.com/show/RxUp777K
0

最新回复(0)