1、国家二级 VB机试（上机操作）模拟试卷 360及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画 1个名称为 Cbol的组合框，组合框的列表项分别是：北京、天津、上海。请设置组合框的参数，使其外观如图 3-6所示。窗体的标题是 “用组合框 ”。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl frm，工程文件名为 sjtl vbp。 (2)在名称为Form1的窗体上画 1个名称为 P1的图片框，窗体的标题为 “程序设计 ”，如图 3-7(a)所示。编写适当的事件过程，使得程序运行后，单击窗体， 则在图片框中显示窗体的标题，并把窗体的标题变为 Basic，如图
2、 3-7(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，在程序运行时，单击 “输入整数 ”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 3 158(a)是输入 53后的结果，如图 3 158(b)是输入 100的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考
3、生文件夹下有一个工程文件 sjt4 vbp。在其窗体中 “待选城市 ”下的 List1列表框中有若干个城市名称。程序运行时，选中 List1中若干个列表项，如图 3 159(a)所示，单击“选中 ”按钮则把选中的项目移到 List2中：单击 “显示 ”按钮，则在 Text1文本框中显示这些选中的城市，如图 3 159(b)所示。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释 符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。三、综合应用题 3 考生文件夹下的工程文件 sjt5 vbp中有一个
4、初始内容为空的文本框 Text1，两个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请画一个标题为 “各行平均数的最大值为 ”的标签 LabeE，再画一个初始内容为空的文本框 Text2，如图 3 106所示。 程序功能： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入 20行5列的二维数组 a中，并同时显 示在 Text1文本框内； 单击 “计算 ”按钮，则自动统计二维数组 a中各行的平均数，并将这些平均数中的最大值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述功能。注意：考生不得
5、修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “计算 ”按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 360答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1 中加入一个组合框。按表 4-3设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。(2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个图片框。按表 4-4设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写窗体的 Click事件代码。参考代码
6、： Private Sub Form_Click()P1 Print Form1 CaptionForm1 Caption=“Basic“End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)根据题目要求，在窗体上放置一个组合框。组合框可通过修改组合框的 Style属性值来改变其显示类型，值为 0-Dropdown Combo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为 1-SimpleCombo时，表示简单组合框，包括一个文本框和一个不带下拉列表的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分；值
7、为 2-Dropdown List时，表示下拉式列表，这种样式仅允 许从下拉式列表中选择。根据题目要求，显然需要把组合框的 Style属性设置为 1-Simple Combo。 (2)根据题目要求，在窗体上放置一个图片框，然后分别设置窗体和图片框的属性。题目要求单击窗体时改变窗体的标题 Caption属性，因此需要在窗体的 Click事件中编写处理代码。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： n=InputBox(“请输入一个整数 “) If m M
8、od k=0 Then fun=s 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： For k=List1 ListCount-1 To 0 Step -1 List2 AddItem List1 List(k) List1 RemoveItem k Text1=Text1 & “ “ & List2 List(k) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题源程序在 “输入整数 ”按钮的单击事件过程中，将接收到的数值赋给变
9、量 n，并通过调用函数 fun，在窗体上显示其所有约数因子，并返回约数因子的个数。函数 fun利用一个 For循环逐一判断参数 m能否被 1 Abs(m) 2间的整数整除，若能整除，则其为 m的一个约数，将其用 Print方法显示在窗体上，并将记录约数因子个数的变量 s加 1。循环结束时将 s作为函数返回值。 (2)在 “选中 ”按钮的单击事件中，由 List1的最后一项依次向前进行遍历判断是否被选中 ，最后一项的索引值是 ListCount-1，第一项的索引值是 0，所以应该是反向循环，步长为 -1；在循环体中如果该项被选中，则将其加入 List2中，同时在List1中删除这一项。 在 “显
10、示 ”按钮的单击事件中，通过一个 For循环依次取出 List2中的每一项并将其连接到 Text1中。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在窗体Form1中画一个标签和一个文本框，其属性及值如表 4-64所示。步骤 2：打开代码编辑窗口，在指定位置编写以下代码。参考代 码： For i=1 To 20Sum=0For j=1 To 5sum=Sum+a(i， j)NextAvg=Sum 5If i=1 ThenMax=AvgElse If Max键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题可利用一个嵌套的 For循环来完成计算工作：在外循环 (循环变量的取值为 1 20)体中，先初始设置记录每行数据之和的变量 Sum的初值为0，接着通过内循环 (循环变量的取值为 1 5)体完成对每行数据的累加工作。内循环结束后，用表达式 Avg=Sum 5计算出该行的平均值。如果是第一次执行外循环的循环体，则将当前 Avg的值记录在变量 Max中，否则仅在其他行 Avg值大于Max的值时，才将其记录在变量 Max中。嵌套 For循环结束时，变量 Max的值即为每行平均数中的最大值，将其显示在文本框 Text2中。
