1、国家二级 VB机试（上机操作）模拟试卷 1及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画出包含三个命令按钮的控件数组，名称为 cmdl，下标分别为 0、1、 2， Caption分别为 ”开始 ”、 ”停止 ”和 ”退出 ”，如图 2 30(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时， ”停止 ”按钮不可见， ”退出 ”按钮不可用，如图 2-30(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文件名为 sjtl vbp。 2 在名称为
2、 Forml的窗体上画两个名称分别为 Commandl和 Command2、标题分别为 ”打开 ”和 ”保存 ”的命令按钮，和一个名称为 CDl的通用对话框，如图 2-31所示。请在属性窗口中设置 CDl的属性，使得打开通用对话框时，其初始路径是 ”C： ”。再编写适当的事件过程，使得运行程序，分别单击 ”打开 ”或 ”保存 ”按钮时，相应地出现 ”打开 ”或 ”保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sit2 frm，工程文件名为 sjt2 vbp。 二、简单应用题 3 考生文件夹中有工程文件 sjt3 v
3、bp。在窗体上有名称为 Combol的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为 ”输入正整数 ”、 ”判断 ”的命令按钮。程序运行时在组合框中选中一项，如图 2-32(a)所示，单击 ”输入正整数 ”按钮，通过输入对话框输入一个正整数，再单击 ”判断 ”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图 2-32(b)所示的是输入 56且选中的组合框选项为 ”判奇偶数 ”时 显示的信息框。在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意
4、：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。4 在考生目录下有一个工程文件 sjt4 vbp。窗体上有一大一小两个名称分别为Shape2、 Shapel的 Shape控件。请在属性窗口中将 Shapel控件设置为圆形，并将其颜色设置为红色 (颜色值为 &H000000FF&)，如图 2-33所示。要求：当单击窗体时， Shapel移动到矩形 (即 Shape2)左上角，再次单击窗体，则 Shapel移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其
5、他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题 5 在考生目录下已有一个工程文件 sjt5 vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组 a、 b中。请编写程序，当单击 ”合并数组 ”按钮时，将a、 b数组中相同下标的数组元素的值求和，并将结果存入数 组 c。单击 ”找最大值 ”按钮时，调用 find过程分别找出 a、 c数组中元素的最大值，并将所找到的结果分别显示在 Textl、 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的
6、其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。 国家二级 VB机试（上机操作）模拟试卷 1答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-16在窗体中用 ”复制 ”和 ”粘贴 ”画出控件数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，选择 工程 部件 命令，在弹出的 ”部件 ”对话框的列表中选中 ”MicroSoftCommon Dialog Control6 0”项目，单击 ”确定 ”按钮。步骤 2：在窗体
7、： Forml上画一个通用对话框，其相关属性设置如表 3-17所示。 步骤 3：编写两个命令按钮的 Click事件，加入下面的代码： 参考代码： Private Sub Commandl_Click( )CD1 ShowOpen或 CD1 Action=1End SubPrivate Sub Command2_Click( )CD1 ShowSave或 CD1 Action=2End Sub步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，将组合框的Style属性设置为 2。 步骤 2：在代码编辑窗口，去掉程
8、序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Select Case Combol ListIndex MsgBox Str(x) f1(x) MsgBox Str(x) f2(x) PriVate Function f2(ByVal x As Integer)As String If x Mod 7=0 Then 步骤 3：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，将 Shape1控件的 Shape属性设置为 3， BaekColor属性设置为 &H000000FF&。 步骤 2：在 代码编辑窗口，去掉程序
9、中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Private Flag As Boolean Shape1 Top=Shape2 Top+Shape2 Height- Shape1 Height Shape1 Left=Shape2 Left+Shape2 Width -Shape1 Width 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，打开代码编辑窗口，在指定位置编写代码。 参考代码： Private Sub find(x( ) As Integer， t As TextBox)
10、=以下为考生编写的程序 = Max=x(1) For i=2 To UBound(X) If x(i) Max Then Max=x(i) End If Next t Text=Max =考生编写的程序结束 = End Sub Private Sub Command2_Click( ) =以下为考生编写的程序 = For i=1 To UBound(a) C(i)=a(i)+b(i) Next =考生编写的程序结束 = Open App Path & “ out51 txt” For Output As #1 For i=0 To 9 Print #1， c(i) Next Close #1 End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键运行程序，先单击 ”读数据 ”按钮，再单击 ”合并数组 ”按钮，最后单击 ”找最大值 ”按钮。
