问答题
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个窄格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框巾,如图3—28所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改稃序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdAdd Click()
Dim S1 As String, S2 As String
DimI1 As Inteqer
S1=?
I1=1
Do
Do While Mid(s1, I 1, 1) <>?
AndI1<=Len(S1)
S2=S2 &Mid(S1, I1, 1)
I1=I1+1
Loop
1st Word.AddItem?
S2=?
I1=I1+1
Loop WhileI1<=Len(S1)
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,请在窗体上画三个文本框,其名称分别为Txt1、Txt2和txtResult,文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮,其名称分别为optChange和optLink,标题分别为“交换”和“连接”,如图3—29所示。编写适当的事件程序,要求在程序运行时,先单击“交换”单选按钮,使Txt1文本框中内容与Txt2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Txt1和Txt2的内容以Txt1在前,Txt2在后的顺序连接起来,并在txtResult文本框中显示连接后的内容。存盘时,工程文件名为vbsi4.vbp,窗体文件名为vbsi4.frm。