1、VB机试模拟试卷 190及答案与解析 一、基本操作题( 30分) 1 在名为 Form1的窗体上绘制一个名为 Chk1的复选框数组,含 3个复选框,它们的标题依次为 First、 Second和 Third,其下标分别为 0, 1, 2。初始状态下,Second和 Third为选中状态。运行后的窗体如下图所示。注意: 文件必须存放在考生文件夹中,工程文件名为execise47.vbp, 窗体文件名为 execiSe47.frm。 二、简单应用题( 40分) 2 在考生文件夹中有工程文件 execise83.vbp及窗体文件 execise83.finn。在名为Form1的窗体中有一个名为 Im
2、age1的图像框,有一个名为 Timer1的计时器,有一个名为 HS1的滚动条,还有一个名为 Cmd1、标题为 Begin的命令按钮。要求程序运行后,单击 Begin按钮,则图像框中的图片根据计时器中设定的时间间隔交替变更,如果改变滚动条中滚动框的位置,则图片交替变换的速度也随之变化 (如下图所示 )。 本程序不完整,请补充完整,并能正确运行。 要求: 去掉程序中的注释符 “”,把程序中的问号 “?”改为正确的内容,使其实现上述功能,但不得修改程序的其他 部分。最后,按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题( 30分) 3 在考生文件夹下有一个工程文件 sjl5 vbp,其窗
3、体上有三个标签、三个文本框和两个命令按钮,均使用默认名称。程序的功能是: 如果单击 “读数据 ”命令按钮,则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B,并分别将它们显示在 Text1、 Text2中; 如果单击 “合并 ”命令按钮,则将 A、 B两个数组合并为另一个按升序方式排列的数组 C,并将合并后数组 C中的数据依升序方式显示在 Text3中。窗体中给出了所有控件 (如图 1-66所示 )以及 “读数据 ”命令按钮的 Click事件过程,请完善 “合并 ”命令按钮的 Click事件过程,使其实现上述功能。注意:不得修改已经存在的
4、控件和程序,在结束程序运行之前,必须进行合并操作,且必须通过窗体右上角的 “关闭 ”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。 VB机试模拟试卷 190答案与解析 一、基本操作题( 30分) 1 【正确答案】 二、简单应用题( 40分) 2 【正确答案】 三、综合应用题( 30分) 3 【正确答案】 【 操作步骤】 步骤 1打开考生文件夹下的本题工程文件 sjt5 vbp。 步骤 2:编写 “合并 ”按钮的单击事件过程。 参考代码: Private Sub Command2_Click() 考生编写程序开始 ia=l; ib=l; ic=1 Do While ia= 30 And i
5、b=30 If a(ia)b(ib)Then c(ic)=a(ia); ia=ia+l Else c(ic)=b(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:运行程序,单击 “
6、读数据 ”按钮,然后单击 “合并 ”按钮获得结果,然后通过窗体右上角的 “关闭 ”按钮结束程序。 步骤 4:按要求将文件保存至考生文件夹中。 【试题解析】 数组使用相同的名字引用一系列变量,并用数字索引来识别它们。数组有上界和下界,数组的元素在上下界内是连续的。 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数组中。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1