2012年計算機二級VB上機試題及解題思路第53套

　　3. 綜合應用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有三個標簽、三個文本框和兩個命令按鈕，均使用默認名稱。程序的功能是：

　　1)如果單擊“讀數(shù)據(jù)”命令按鈕，則把考生文件夾下in5.dat文件中兩組已按升序方式排列的數(shù)(每組 30個數(shù))分別讀入數(shù)組A和B，并分別將它們顯示在Text1、Text2中;

　　2)如果單擊“合并”命令按鈕，則將 A、B兩個數(shù)組合并為另一個按升序方式排列的數(shù)組C，并將合并后數(shù)組C中的數(shù)據(jù)依升序方式顯示在Text3中。窗體中給出了所有控件(如圖所示) 以及“讀數(shù)據(jù)”命令按鈕的Click事件過程，請完善“合并”命令按鈕的Click事件過程，使其實現(xiàn)上述功能。

　　注意：

　　不得修改已經(jīng)存在的控件和程序，在結束程序運行之前，必須進行合并操作，且必須通過窗體右上角的“關閉”按鈕結束程序，否則無成績。最后，程序按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件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

　　'以下程序將合并后的數(shù)組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年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總