1、VB机试模拟试卷 165及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个标签，其名称为 Labell，然后通过属性窗口设置窗体和标签的属性，实现如下功能： 窗体标题为 “设置标签属性 ”； 标签的位置为：距窗体左边界 500，距窗体顶边界 300； 标签的标题为 “等级考试 ”； 标签可以根据标题的内容自动调整其大小； 标签带有边框。程序的运行情况如图 1-134所示。要求：不编写任何代码。注意：存盘时必须存放在 考生文件夹下，工程文件名为sitl vbp，窗体文件名为 s
2、jtl frm。 (2)在名称为 Forml的窗体上画一个命令按钮和一个水平滚动条，其名称分别为 Commandl和HScroll1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性： Max=窗体宽度 Min=0LargeChange=50SmallChange=10而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 1-135所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程 文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj
3、t3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 20个 0 1000的随机整数，放入一个数组中，然后输出这 20个整数中大于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Commandl，标题为“输出大于 500的整数之和 ”)，即可求出这些整数的和，并在窗体上显示出来 (如图1-123所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把 程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 fr
4、m，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 O100范围内不能被 7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在FunctionFun()和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjl5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是： 如果单击 “读数据 ”命令按
5、钮，则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B，并分别将它们显示在 Text1、 Text2中； 如果单击 “合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组 C中 的数据依升序方式显示在 Text3中。窗体中给出了所有控件 (如图 1-66所示 )以及 “读数据 ”命令按钮的 Click事件过程，请完善 “合并 ”命令按钮的 Click事件过程，使其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的 “关闭 ”按钮结束程序，否
6、则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 165答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE“工程，在窗体Forml中画一个标 签，并设置它的相关属性，其属性及值如表 2-75所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体Forml中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 2-76所示。 步骤 2：打开代码编辑窗口，分别编写命令按钮的 Click事件过程和水平滚动条的 Change事件过程。
7、 参考代码： PriVate Sub Commandl_Cl ick() HScrolll Max=Fermi Width HScrolll Min=0 HScroll1 LargeChange=50 HScrolll SmallChange=10 End Sub PriVate Sub HScrolll_Change() Print Me HScroll1 Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按要求画出控件并设置其相应属性即可。 第 2小题 根据题意，本题需在命令按钮的单击事件过程中编写设置水平滚动条相关属性的语句，在滚动
8、条的 Change事件过程中编写在窗体上输出滚动条当前 Value值的语句。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjtl vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Sum=0 If arrN(i)500 Then Sum=Sum+arrN(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的内容。 参考代码：
9、 Sum=0 For i t 0 To 100 If i Mod 7O Then Sum； Sum+i End If Next i Fun=Sum 步骤 2：按要求将文件保存至考生文件夹中 。 【试题解析】 第 l小题 生成 0 1000范围内随机整数的表达式为： Int(Rnd*1000)。为求出 20个随机整数中大于 500的整数之和，可首先预设累加和变量 Sum=0，然后通过 For循环语句逐一判断数组中的各元素是否大于 500，若大于则累加到 Sum中，循环结束后输出 Sum的值。 第 2小题 判断整数 A能被整数 B整除的条件表达式为： AModB=0。本题原程序要求编写的 Fun过
10、程首先预设累加变量 Surn=0，然后通过 For循环逐一判断循环变量是否能被 7整除。每找到一个不能被 7整除 的数，则将这个数加到累加变量 Sum中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1打开考生文件夹下的本题工程文件 sjt5 vbp。 步骤 2：编写 “合并 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() 考生编写程序开始 ia=l； ib=l； ic=1 Do While ia= 30 And ib=30 If a(ia)b(ib)Then c(ic)=a(ia)； ia=ia+l Else c(ic)=b
11、(ib)； ib=ib+1 End If ic=ic+1 Loop Do Whille ia=30 c(ic)=a(ia) ； ia=ia+1 ； ic=ic+1 Loop Do While ib=30 c(ic)=b(ib) ； ib=ib+1； ic=ic+1 Loop 考生编写程序结束 以下程序将合并后的数组 C显示在 Text3申 For k=l To 60 Text3=Text3+Str(c(k)+Space(2) Next k End Sub 步骤 3：运行程序，单击 “读数据 ”按钮，然后单击 “合并 ”按钮获得结果，然后通过窗体右上角的 “关闭 ”按钮结束程序。 步骤 4：按要
12、求将文件保存至考生文件夹中。 【试题解析】 数组使用相同的名字引用一系列变量，并用数字索引来识别它们。数组有上界和下界，数组的元素在上下界内是连续的。 Visual Basic对每一个索引值都分配空间，所 以不要不切实际地声明一个太大的数组。在很多情况下，使用数组可以缩短和简化程序，因为可以利用索引值设计循环，高效处理多种情况。 根据题意，要求实现两个数组的有序合并，可以设置三个变量 ia、 ib、 ic用于标识当前分别在三个数组中的当前元素下标，初值均为 l；接下来进行循环，分别比较 a(ia)和 b(ib)的大小，若 a(ia)bob)，则将 a(ia)放入 c(ic)中，然后令 ia加 l指向a的下一个元素；否则将 b(ib)放入 c(ic)中并令 ib+l指向 b的下一个元素；最后令ic加 1指向 c的下一个元素位置。 循环结束的条件是 a数组已经比较完或者 b数组已经比较完，此时需要将数组中余下的数据连接到 c数组中。
