1、国家二级 VB机试（上机操作）模拟试卷 193及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 FOrml、标题为 “电影制作 ”的窗体上画 1个名称为 Cmbl、初始内容为空的下拉式组合框 (可以输入文本 )。 下拉列表中有 “音频效果 ”、 “视频效果 ”和 “视频过渡 ”3个表项内容。运行后的窗体如图 243所示。 注意：存盘时，将文件保存至考牛文件夹下，且窗体文件名为 sitl frm，工程文件名为 sitl vbp。 (2)在名称为Forml、标题为 “椭圆练习 ”的窗体上，画 1个名称为 Shap
2、el的椭圆，其高为 800、宽为 1200、左边距为 1000。椭圆的边框是宽度为 5的蓝色 ( l_tooC00000&)实线，椭圆填充色为黄色 (&l_t0000FFFF&)。再画 2个名称为 Commandl和Command2、标题为 “左移 ”和 “右移 ”的命令按钮。如图 2 44所示。要求：编写 2个按钮的 C1ick事件过程，使得每单击 “左移 ”按钮一次，椭圆向左移动 100；每单击“右移 ”按钮。次，椭圆向右移动 100。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意： 存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2 frm，工程文件名为 sjt2 vb
3、p。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsi3 vbp，相应的窗体文件名为vbsi3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单 词作为一个项目添加到列表框中，如图 2 28所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修
4、改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 vbsj4 vbp，请在窗体上画三个文本框，其名称分别为 Txt1、 Txt2和 txtResult，文本框内容分别设置为 “等级考试 ”、 “全国计算机 ”和空白。然后画两个单选按钮，其名称分别为 optChange和 optlrink，标题分别为 “交换 ”和 “连接 ”，如图 2-29所示。编写适当的事件程序，要求在程序运行时，先单击 “交换 ”单选按钮，使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使 “交换 ”单选按钮消失：然后单击 “连接 ”单选按钮，则把交换后的 Txt1和
5、Txt2的内容以 Txt1在前， Txt2在后的顺序连接起来，并在 txtRestJlt文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4 vbp，窗体文件名为 vbsj4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击“连接 ”单选按钮。退出程序时必须通过单击窗体 右上角的关闭按钮，否则可能无成绩。 三、综合应用题 3 考生文件夹下的工程文件 sit5 vbp中有一个初始内容为空的文本框 Text1，两个标题分别足 “读数据 ”和 “计算 ”的命令按钮：请画一个标题为 “各行甲均数的最大值为 ”的标签 Label2，再面一个初始内容为
6、空的文本框 Text2，如图 2 97所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入 20行 5列的二维数组 a中，并同时显示在 Text1文本框内； 单击 “计算 ”按钮，则自动统计二维数组 a中各行的甲均数，并将这些甲均数中的最大值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “计算 ”按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原 文件名存盘。
7、 国家二级 VB机试（上机操作）模拟试卷 193答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3 27在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生义件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3 28在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写 2个命令按钮的单击事什过程。 参考代码： Private Sub CommandlClick() Shapel Left=Shapel Left一 100 End Sub Private Sub Co
8、mmand2一 Click() Shapel Left=Shapel Left+100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生义件夹下的工程文件vbsj3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S1=txtSentense Text Do While Mid(S1， 11， 1)”And 11 步骤 2：在代码编辑窗口，编写 3个按钮的单击事件过程。 参考代码： Private Sub optChangeC1ick() Dim
9、 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，在窗体 Fonn1中画一个标签和一个文本框，其属性及值如表 3 54所示。 步骤 2：打开代码编辑窗口，在指定位置编写以下代码：参考代码： For i=1 To 20 Sum=0 For j=1 To 5 Sum=Sum+a(i， j) Next Avg=Sum 5 If i=1 Then Max=Avg E1seIf Max键运行程序，先单击 “读数据 ”按钮，接着单击 “计 算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
