1、国家二级 VB机试（上机操作）模拟试卷 23及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个命令按钮，其名称为 Commandl，如图 2-130(a)所示，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为 ”设置按钮属性 ”； 命令按钮的标题为 ”等级考试 ”； 程序运行后，命令按钮不显示； 命令按钮的标题用三号常规黑体显示。 程序的运行情况如图 2-130(b)所示。 要求：不编写任何代码。 注 意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名
2、为 sjtl frm。 2 在名称为 Forml的窗体上画一个标签，其名称为 Labell，在属性窗口中把BorderStyle属性设置为 1，如图 2-131(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使标签移到窗体的右上角 (只允许在程序中修改适当属性来实现 )。程序运行情况如图 2-131(b)所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 30个 0 1000的随机整
3、数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮 (名称为 Commandl，标题为 ”输出最小值 ”)，即可求出其最小值，并在窗体上显示出来 (如图 2-132所示 )。这个程序不完整 ,请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 01000范围内不能被 7整除的整数的个数，并在文本框中显示出
4、来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun( )和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合 应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画两个命令按钮，其名称分别为 Cl和 C2，标题分别为 ”读入数据 ”和 ”计算 ”(如图 2-133所示 )。程序运行后，如果单击 ”读入数据 ”按钮，则调用题目所提供的 Re
5、adDatal和 ReadData2过程读入 datainl txt和datain2 txt文件中的各 20个整数，分别放入 Arrl和 Arr2两个数组中；如果单击 ”计算 ”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中 (即第一个数组的第 n个元素减去第二个数组的第， n个元素，其结 果作为第三个数组的第 n个元素。这里的 n为 1， 2， ， 20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WfiteData过程将所求得的和存入考生文件夹下的 DataOut txt文件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程
6、序一次，最后把修改后的文件以原来的文件名存盘。国家二级 VB机试（上机操作）模拟试卷 23答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个命令按钮，并设置它的相关属性，其 属性及值如表 3-72所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-73在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写窗体的单击事件过程。参考代码： Private Sub Form_Click( )Labell Top=0Labell Left = -Forml
7、Labell Width +Me WidthEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件 中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： arrN(i) =Int(Rnd*1 000) Min=arrN(1) If arrN(i) Min Then 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的内容。 参考代码： For i=1 To 1 00
8、0 If i Mod 7 0 Then Y=Y+1 End If Next i Fun=Y 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在窗体中如表3-74画出控件，并设置其属性。 步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Dim Sum As InteqerPrivate Sub C1_Click( )ReadData1ReadData2End Sub Private sub C2_ClicK( )Dim Arr3(20) As IntegerDim Sum As IntegerSum=0For i=1 To 20Arr3(i) =Arrl(i) -Arr2(i)Sum=Sum+Arr3(i)Next iPrint”Sum=“； SumWriteData”dataout txt”， SumEnd Sub步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按 F5键运行程序，先单击 ”读入数据 ”按钮，然后单击 ”计算 ”按钮。
