1、国家二级 VB机试（上机操作）模拟试卷 9及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画三个单选按钮，其名称分别为 Optionl、 Option2和 Option3，如图2-67(a)所示，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能： 窗体标题为 ”设置单选按钮属性 ”； 三个单选按钮的标题分别为 ”按钮 1”、 ”按钮 2”和 ”按钮 3”； 初始状态时，第一个单选按钮为 ”选中 ”； 程序运行后，第二个单选按钮 ”禁用 ”； 程序运行后，第三个单选按钮不可见。程序的运行情况如图
2、 2-67(b)所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Commandl和 VScrolll，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度， Min=0，LargeChange=50， SmalIChange=1 0如果移动垂直滚动条的滚动框，则 在窗体上显示滚动框的位置值。程序的运行情况如图 2-68所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工
3、程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 20个 0 1000的随机整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Commandl，标题为 ”输出小于 500的整数之和 ”)，即可求出这些整数的和，并在 窗体上显示出来 (如图2-69所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把
4、修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0100范围内所有偶数的平方和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun( )和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 s
5、jt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，并输出矩阵右上 -左下对角线上的数据，如图 2-70所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉 程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。国家二级 VB
6、机试（上机操作）模拟试卷 9答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画三个单选按钮，并设置它的相关属性，其属性及值如表 3-34所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个命令按钮和一个垂直滚动条，在属性设置窗口中设置其相关 属性，其属性及值如表 3-35所示。 步骤 2：打开代码编辑窗口，分别编写命令按钮的 Click事件过程和垂直滚动条的 Change事件过程。参考代码： Private Sub Commandl_Click( )V
7、Scrolll Max=Forml HeightVScrolll Min=0VScrolll LargeChange=50VScrolll SmallChange=10End SubPrivate Sub VScrolll_Change( )Print Forml VScrolll ValueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： arrN(i) =Int(Rnd* 1000) Sum=0 If ar
8、rN(i) 5 0 0 Then Sum=Sum+arrN(i) 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的 内容。 参考代码： Sum=0 For i=0 To 100 Step 2 Sum=Sum+i*i Next i Fun=Sum 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。步骤 2：打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Dim Mat (M， N) Open App Path & “ & in5 txt For_ Input As #1 Input #1， Mat(i， j) If i + j = 6 Then 步骤 3：按要求将文件保存在考生文件夹中。
