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

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

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

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有兩個(gè)文本框， 名稱為Text1、Text2，都可以多行顯示。還有三個(gè)命令按鈕，名稱分別為C1、 C2、C3，標(biāo)題分別為“取數(shù)”、“排序”、“存盤”。“取數(shù)”按鈕的功能是把考生目錄下的in5.dat文件中的50個(gè)整數(shù)讀到數(shù)組中，并在Text1中顯示出來;

　　“排序”按鈕的功能是對(duì)這50個(gè)數(shù)按升序排序，并顯示在Text2中;“存盤”按鈕的功能是把排好序的50個(gè)數(shù)存到考生目錄下的out5.dat文件中。如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序，要求閱讀程序并去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

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

　　執(zhí)行“排序”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C2_Click()

　　Dim k As Integer, i As Integer, j As Integer, ch As String

　　For i = 1 To 49

　　k = i

　　For j = i + 1 To 50

　　If a(k) > a(j) Then

　　k = j

　　End If

　　Next j

　　j = a(k)

　　a(k) = a(i)

　　a(i) = j

　　Next i

　　ch = ""

　　For k = 1 To 50

　　ch = ch + Str(a(k)) + " "

　　Next k

　　Text2.Text = ch

　　End Sub

　　在“取數(shù)”按鈕的Private Sub C1_Click()中，有二處地方需要修改。

　　1) 將語句

　　'Input #1, ?

　　改為

　　Input #1, a%(k%)

　　2) 將語句

　　'Text1.Text = ?

　　改為

　　Text1.Text = ch$

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

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

　　相關(guān)推薦：

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

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

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