1、国家二级 VB机试（上机操作）模拟试卷 24及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个标签，其名称为 Labell，然后通过属性窗口设置窗体和标签的属性，实现如下功能： 窗体标题为 ”设置标签属性 ”； 标签的位置为：距窗体左边界 500，距窗体顶边界 300； 标签的标题为 ”等级考试 ”； 标签可以根据标题的内容自动调整其大小； 标签带有边框。 程序的运行情况如图 2-134所示。 要求：不编写任何代码。 注 意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件
2、名为 sjtl frm。 2 在名称为 Forml的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Commandl和 HScrolll，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性： Max=窗体宽度 Min=0 LargeChange=50 SmallChange=1 0 而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 2-135所示。 要求：不得使用任何变量。 注 意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt
3、3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 20个 0 1000的随机整数，放入一个数组中，然后输出这 20个整数的平均值。程序运行后，单击命令按钮 (名称为 Commandl，标题为 ”输出平均值 ”)，即可求出其平均值，并在窗体上显示出来 (如图 2-136所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为 正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。
4、程序运行后，单击命令按钮，即可计算出 0200范围内能被 3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被 3整除的整数的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun( )和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，界面如图 2-137所示，其功能如下： 单击 ”读数据 ”按钮，则把考生文件夹下文件 in5 dat中的 12组整数 (其中每组含有 10个数，共计 1
5、20个整数 )读到数组 a中； 单击 ”计算 ”按钮，则对每组数求平均值，并将所求各组数的平均值截尾取整后存入数组 s中； 单击 ”显示 ”按钮，则将所求各组数的平均值显示在文本框 Textl中； 单击 ”存盘 ”按钮则把计算结果存盘。在给出的窗体文件中已经有了全部控件，且 ”读数据 ”、 ”显示 ”和 ”存盘 ”按钮的Click事件过程已经给出，请为 ”计 算 ”按钮编写适当的事件过程以实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须用 ”存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 24答案与解析 一、基本操作
6、题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个标签，并设置它的相关属性，其属性及值如表 3-75所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个命令按钮和一个水 平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 3-76所示。 步骤 2：打开代码编辑窗口，分别编写命令按钮的 Click事件过程和水平滚动条的 Change事件过程。参考代码： Private Sub Commandl_Click( )HScrolll Max=Forml WidthHScro
7、lll Min=0HScrolll LargeChange=50 HScrolll SmallChange=1 0End SubPriVate Sub HScrolll_Change( )Print Me HScrolll ValueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1 000) Sum=0 Sum=Sum+arrN(i) Aver=Sum 2 0 步骤 2：按要
8、求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的内容。 参考代码： Sum=0 For i=0 To 2 00 If i Mod 3=0 Then Sum=Sum+i End If Next i Fun=Sum 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，编辑 ”计算 ”按钮单击事件的内容。 参考代码： For i=1 To 12 Sum=a(i， 1) For j=2 To 1 0 Sum=Sum+a(i， j) Next j s(i)=Int(Sum 1 0) Next i 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键运行程序，先单击 ”读数据 ”按钮，接着单击 ”计算 ”按钮，然后单击 ”显示 ”按钮查看结果，最后单击 ”存盘 ”按钮保存结果。
