1、国家二级 VB机试（上机操作）模拟试卷 113及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “列表框练习 ”的窗体上画一个名称为 Listl的列表框，表项内容依次输入 XXX、 ddd、 mmm和 aaa，且以宋体 14号字显示表项内容，如图 3-93 (a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 3 93(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文 件名为 sjtl vbp。(2)在名称为 Forml的
2、窗体上，画一个名称为 Labell的标签，其标题为 “计算机等级考试 ”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为 Commandl、 Command2，标题分别为 “缩小 ”和 “还原 ”的命令按钮(如图 3 94所示 )。 要求：编写适当的事件过程，使得单击 “缩小 ”按钮， Labell中所显示的标题内容自动减小两个字号；单击 “还原 ”按钮， Labell所显示的标题内容的大小自动恢复到 12号。注意：存盘时，将文件保存至考生文件夹下，窗体文件名 为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写
3、一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体文件名为vbsi3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个窄格分开 )，然后单击命令按钮，程序将把该英文句子分解为单词， 并把每个单词作为一个项目添加到列表框巾，如图 328所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能
4、修改稃序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： 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 注意：不得修改已经给出的程序。在结束 程序运行之前，必须先单击 “交换 ”单选按钮，后单击 “连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。程序源码： Private Sub Form Unload(Cancel As Integer) Open “out4
5、 txt” For Output As #1 Print #1， Txt1 Text， Txt2 Text， txtResult Text Close#1End Sub 三、综合应用题 3 在考生文件夹中有一个工程文件 sit5 vbp。窗体外观如图 3 134所示。运行程序，单击 “读数据 ”按钮，文件中的数据被读入字符串变量中并显示在 Label2标签中。单击 “排序 ”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中已给出部分程序， “读数据 ”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。请编写 “排序 ”命
6、令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后 ，两个命令按钮的事件过程必须至少各执行一次。 国家二级 VB机试（上机操作）模拟试卷 113答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表4 52在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4 53在窗 c本中画出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。参
7、考代码： Private Sub Commandl Click() Labell FontSiZe=Labell FontSiZe一 2End SubPrivate Sub Command2 C1ick() Labell FontSize=12End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件夹下的工程文件vbsj3 vbp。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “，将问号 “?”改为正确的内容。参考代码： S1=txtSentenSe TextDo While Mid(S1， I 1， 1)“”A
8、nd I 1 步骤 2：在代码编辑窗口，编写 3个按钮的单击事件过程。参考代码：步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Do While Not EOF(1) s= s Str(a(i) 步骤 2：在代码编辑窗口指定位置编写以下代码： 参考代码： num=UBound(a) For i=1 To num一 1 For j =i To num If a(i) a(j) Then t=a(i) a(i)=a(j) a(j)=t End If Next Next 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，再单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
