1、国家二级 VB机试（上机操作）模拟试卷 229及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Labell的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试 ”，并使标签的外观如图 2 173所示。运行后的窗体见图 2 173。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sit1 frm。(2)在名称为 Forml的窗体上画一个名称为 lmagel的图像框，有边框，并可以自动调整
2、装入图片的大小以适应图像框的尺寸；再画三个命令按钮，名称分别为 Command1、 Command2、Command3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”。在考生目录下有两个图标文件，其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “红桃 ”按钮，则在图像框中显示红桃图案 (即 Misc34 ico文件，如图 2 174所示 )；单击“黑桃 ”按钮，则在图像框中显示黑桃图案 (即 Misc37 ico文件 )：单击 “清除 ”按钮，则 清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。 注意：要求程序中不得使用变量，每
3、个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sil2 vbp，窗体文件名为 sjt2.frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体文件名为vbsi3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在 文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 2 28所示
4、。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 vbsj4 vbp，请在窗体上画三个文本框，其名称分别为 Txt1、 Txt2和 txtResult，文本框内容分别设置为 “等级考试 ”、 “全国计算机 ”和空白。然后画两个单选按钮，其名称分别为 optChange和 optlrink，标题分别为 “交换 ”和 “连接 ”，如图 2-29所示。编写适当的事件程序，要求在程序运行时，先单击 “交换 ”单选按钮，使 Txt1文本框中内容与
5、 Txt2文本框中内容进行交换，并使 “交换 ”单选按钮消失：然后单击 “连接 ”单选按钮，则把交换后的 Txt1和 Txt2的内容以 Txt1在前， Txt2在后的顺序连接起来，并在 txtRestJlt文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4 vbp，窗体文件名为 vbsj4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击“连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 三、综合应用题 3 考生文件夹下有工程文件 sjt5 vbp。程序运行时，外观如图 2 187所示，单击“显示数据 ”按钮
6、，则将考生文件夹下 in5 dat文件的内容读入到 5行 40列的：维数组 a中，并按 5行显示在 Text1文本框内；单击 “统计 ”按钮，则计算每行中小于50的数之和，及这些数的平均值 (平均值保留 2位小数，是否四舍五入不限 )，并将它们 (共 10个值 )分别显示在 Labell数组及 Text2数组中。单击 “保存 ”按钮，则保存计算结果。 “显示数据 ”和 “保存 ”按钮的 Click事件过程已经给出，请编写 “统计 ”按钮的 Click事件过程实 现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “统计 ”进行统计，且必须单击 “保存 ”
7、按钮保存结果，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 229答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画三个单选按钮，并设置它的相关属性，其属性及值如表 3 93所示。 步骤 2：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 394在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写三个命令按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Imagel
8、 Picture = L0adPicture(App Path ” MiSC34 iCO”) End Sub Private Sub Command2一 Click() Imagel Picture = LoadPicture(App Path ”MiSC37 iCO”) End Sub Private Sub Command3一 Click() Imagel PiCture=LoadPicture() End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生义件夹下的工程文件vbsj3 vbp。 步骤 2：打开
9、代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S1=txtSentense Text Do While Mid(S1， 11， 1)”And 11 步骤 2：在代码编辑窗口，编写 3个按钮 的单击事件过程。 参考代码： Private Sub optChangeC1ick() Dim temp As String temp=Txt1 Text Txt1 Text=Txt2 Text Txt2 Text=temp optChange ViSible=False End Sub Private Sub optLinkC1ick() txtResult Text=Txt1 Text Txt2 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案 】 【操作步骤】 步骤 1：打开考生文件中的奉题工程文件 sit5 vbp，打开代码编辑窗口，在指定位置编写以下代码： 参考代码： For i=1 To 5 Sum=0 Counter=0 For j=1 To 40 If a(i， j)键运行程序，先单击 “显示数据 ”按钮。接着单击 “统计 ”按钮，然后单击 “保存 ”按钮保存结果。
