2012年计算机二级VB上机试题及解题思路第53套

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：

　　1)如果单击“读数据”命令按钮，则把考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组 30个数)分别读入数组A和B，并分别将它们显示在Text1、Text2中;

　　2)如果单击“合并”命令按钮，则将 A、B两个数组合并为另一个按升序方式排列的数组C，并将合并后数组C中的数据依升序方式显示在Text3中。窗体中给出了所有控件(如图所示) 以及“读数据”命令按钮的Click事件过程，请完善“合并”命令按钮的Click事件过程，使其实现上述功能。

　　注意：

　　不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　单击“合并”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　ia = 1: ib = 1: ic = 1

　　Do While ia <= 30 And ib <= 30

　　If a(ia) < b(ib) Then

　　c(ic) = a(ia): ia = ia + 1

　　Else

　　c(ic) = b(ib): ib = ib + 1

　　End If

　　ic = ic + 1

　　Loop

　　Do While 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 = 1 To 60

　　Text3 = Text3 + Str(c(k)) + Space(2)

　　Next k

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总