1、国家二级 VB机试（上机操作）模拟试卷 348及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 Pic的图片框，通过属性窗口将考生文件夹下的文件 Tul-1jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示 “VB等级考试 ”，如图 3一 179所示。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个名称为 Command1的 命令按钮，标题为 “命令按钮 ”。然后建立一个菜单，标题为 “控
2、件 ”，名称为 menu，包含两个子菜单项，一个是 “显示命令按钮 ”，名称为subMenul；另一个是 “隐藏命令按钮 ”，名称为 subMenu2，如图 3 180所示。编写适当的事件过程，使得程序运行时，如果选择 “显示命令按钮 ”菜单命令，则显示命令按钮控件；而如果选择 “隐藏命令按钮 ”。菜单命令，则隐藏命令按钮控件。 注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 1im。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm，包含了
3、所有控件和部分程序，如图 3 109所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C+、 Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optionl，然后单击 “确定 “按钮，则文本框中显示 “笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击“确定 ”按钮，则文本框中显示 “上机 ”。其中 “”是在列表框中所选择的项目。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分
4、。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “计算并输出 ”。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数， 并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用 “ ”连接起来，如图 3 110所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?“改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保
5、存工程文件和窗体文件。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序功能如下： 1)单击 “读数据 ”按钮，从文件中读出数据，放入二维数组 a中。 2)单击 “生成新数组 ”按钮时，依据 a数组生成 b数组；若 a数 组元素为素数，则直接将 a数组元素的值赋给 b数组中相同下标的数组元素；若 a数组元素的值能被2整除，则将该元素值的平方作为 b数组同下标的元素；若 a数组元素为其他值，则将该元素乘 2的值作为 b数组同下标的元素。 3)单击 “查找最大值 ”按钮，则在 b数组中找最大值并显示在 Label2标签上。 在给出的窗体文件中已经有了全部控件，标准模块中有判
6、断素数的函数IsPrime。要求去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写相应的程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。 最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。 国家二级 VB机试（上机操作）模拟试卷 348答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个名称为 Pic的图片框，并设置其 Picture属性为 Tu1-1 jpg。 步骤 2：双击窗体打开代码编辑窗口，在窗体的 Click事件过程中输入代码。参考代码： PriVate
7、Sub Form_Click() Pic Print “VB等级考试 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求建立菜单项。 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码： PriVate Sub subMenul_Click() Command1 Visible=True End Sub Private Sub subMenu2_Click() Command1 Visible=False End Sub 步骤
8、 4：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按要求在窗体及框架中画出控件，并设置其相应属性，然后在窗体的单击事件中调用图片框的 Print方法显示文本。 (2)要实现本题中的功能，应在 “显示命令按钮 ”菜单项的 Click事件过程中，令命令按钮的 Visible属性为 True，在 “隐藏命令按钮 ”菜单项的 Click事件过程中，设置命令按钮的 Visible属性为 False。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在窗体上选中列表框，为其 List属性输入四个项目： Visual Basic、 Turbo
9、 C、 C+、 Java，注意每输入一项后用 +键换到下一项输入。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的单击事件过程。参考代码： If Optionl Vatlue And List1 Text“Then Text1 Text=List1 Text & OptiOn2 Captio n End If End If 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定 ”按钮，单击窗体右上角的关闭按钮结束程序。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “
10、”，将问号 “?”改为正确的内容。参考代 码： iSum=0 isum=iSum+j If isum=1250 Then 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题根据是选择 “笔试 ”或 “上机 ”分为两种情况，若选择 “笔试 ”则在文本框中显示列表框的 Text属性值与单选按钮 Optionl的 Caption属性值的组合内容；若选择 “上机 ”则在文本框中显示列表框的 Text属性值与单选按钮Option2的 Caption属性值的组合内容。 (2)程序设计思路：按顺序让 1 500中的每一个数都与它之后的所有的数逐一相加， 在相加过程中若累加和等于或超过 12
11、50时，则停止该组数继续相加，并将和等于 1250的该组数的开头和结尾的数按题目要求输出。源程序使用嵌套 For循环完成上述功能，变量 iSum用于记录每组数累加时的和，其初值应为 0；表达式iSum=iSum+j用于实现累加功能；当累加和正好等于 1250时，输出该组数的开头和结尾的数，即 i和 j。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的工程文件 sjr5 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。在 “由考生编写 ”处补充 正确代码。参考代码： Open App Path & “ in5 txt“For Input As #
12、1 Input #1， a(i， j) Private Sub Command2_Click() =以下由考生编写 = For i=1 To 5 For j=1 To 5 If sushu(a(i， j)=True Then b(i， j) =a(i， j) Else If a(i， j)Nod 2=0 Then b(i， j)=a(i， j)*a(i， j) ElSe b(i， j)=a(i， j)*2 Erld If End If Next i， j =考生编写程序结束 = End Sub Private Sub Command3_Click() =以下由考生编写 = Dim k As L
13、ong k=0 For i=1 To 5 For j=1 To 5 f b(i， j)k Then k=b(i， j) Next i， j Label2 Caption=k =考生编写程序结束 = Open App Path & “ out5 txt“ For Output As #1 Print #1， Label2 Caption Close #1 End Sub 步骤 2：按 运行程序，单击各按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 题目要求从文件中读取数据放到数组 a当中，给数组 a赋值通过嵌套的 For循环来实现。 “生成新数组 ”按钮的事件处理过程，按照规则来得到数组b，需要通过嵌套循环实现数组元素逐个赋值。同样，在查找最大值的时候通过嵌套的循 环逐个搜索数组 b的各个元素，就可以得到最大值。
