(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运

admin2016-03-22  28

问题 (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。

注意:不得修改已经给出的程序。在结束程序运行之前,必须先单击“交换”单选按钮,后单击“连接”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。
程序源码:
Private    Sub    Form Unload(Cancel    As Integer)
    Open.  “out4.txt”  For Output As  #1
    Print  #
1,Txt1.Text,Txt2.Text,
    txtResult.Text
    Close#1
End Sub

选项

答案第1小题 【操作步骤】 步骤1:打开考生文件夹下的工程文件vbsj3.vbp。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’’,将问号“?”改为正确的内容。 参考代码: S1=txtSentenSe.Text Do While Mid(S1,I 1,1)<>“”And I 1 <=Len(S1) 1StWord.AddItem S2 S2=“” 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按表4.18在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,编写3个按钮的单击事件过程。 参考代码: 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/W1J0FFFM
0

最新回复(0)