2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第53套

　　3. 綜合應(yīng)用(1小題，計(jì)30分)

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

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

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

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

　　注意：

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

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過(guò)程。

　　單擊“合并”按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　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

　　'以下程序?qū)⒑喜⒑蟮臄?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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt5.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫(kù)工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總