1、国家二级 VB机试（上机操作）模拟试卷 209及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；存 Frame1中画两个甲选按钮，名称分别为 Option1、 Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在 Frame2中画一个名称为 Check1的复选框，标题为 “下划线 ”。运行后的窗体如图 2-120所示。 注意：存盘时必须存放在考生文件夹下，工程文
2、件名为 sitl vbp，窗体文件名为sjt1 frm。 (2)在名称为 Forml的窗体上从上到下面两个义本框，名称分别为Textl、 Text2；再画一个命令按钮，名称为 Commandl，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则在 1ext2中显示选中的字符个数 (如图 2 121所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文 件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)学生文
3、件夹下的工程文件 sjt3 vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为 Text1：两个标题分别为 “读数据 ”和 “查找 ”的命令按钮，其名称分别为 Cmd1、 Cmd2。请画一个标题为 “查找结果 ”的标签 Labet1，再画一个名称为 Text2，其初始内容为空的文本框，如图 2 95所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下in3 dat文件中已按升序排列的 30个整数读入一维数组 a中，并同时显示在 Text1文奉框内； 单击 “查找 ”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组
4、a的数值范围，则无须进行相应查找工作，直接在 Text2内给出结果；否则，在一维数组 a中查找该数，并根据查找结果在 Text2文本框内品示相应信息。命令按钮的 Click事件过程已给出，但 “查找 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为止确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名 存盘。 (2)考生文件夹下的工程文件 sjt4 vbp中有一个初始内容为空的文本框 Text1，一个包含三个元素的文本框控件数组Text2，两个标题分别是 “读数据 ”和 “统计 ”的命令按钮，两个分别含有三个元素的标签控件数组
5、 Label1和 Label2，如图 2 96所示。程序功能如下： 考生义件夹下 in4 dat文件中存有 20个考生的考号及数学和语文单科考试成绩。单击 “读数据 ”按钮，可以将 in4 dat文件内容读入到 20行 3列的二维数组 a中，并同时显示在 Text1文本框内； 单击 “统计 ”按钮，则对考尘数学和语文 的平均分在 “优秀 ”、 “通过 ”和 “小通过 ”三个分数段的人数进行统计，并将人数统计结果显示在控件数组 Text2中相应位置。其中，平均分在 85分以上 (含 85分 )为 “优秀 ”，平均分在 60 85分之间 (含 60分 )为 “通过 ”，甲均分在 60分以下为 “不
6、通过 ”。 命令按钮的 Click事件过程已经给出，但 “统计 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用题 3 在考生目录下已有一 个工程文件 sit5 vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组 a、 b中。请编写程序，当单击 “合并数组 ”按钮时，将a、 b数组中相同下标的数组元素的值求和。并将结果存入数组 c。单击 “找最大值 ”按钮时，调用 find过程分别找出 a、 c数组中元素的最大值，并将所找到的结果分别显示在
7、Text1、 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。 国家二级 VB机试（上机操作）模拟试卷 209答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 66在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “
8、标准 EXE”工程，如表3 67所列在窗体 Forml中画出控件并设置它们的属性。步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Commandl一 Click() Text2 Text=Forml Text1 SelLength End Sub 步骤 3：按要求将文件保存争考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sis vbD，打开代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： If hum 230 Then 步骤 2：按要求将文件保存至考生文件
9、夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sit4 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Avg=(a(i， 2)+a(i， 3) 2 Case Is=85 Case 60 To 84 End Select Text2(n一 1)=x(n) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，打玎代码编辑窗口，在指定位置编写代码。 参考代码： Private Sub find(X()As Integer，
10、 t As TextBox) =以下为考生编写的程序 = 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.C1 ick() =以下为考生编写的程序 = 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 Close31 End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，再单击 “合并数组 ”按钮，最后单击 “找最大值 ”按钮。
