三、綜合操作題

　　5考生文件夾下有一個(gè)工程文件sit5.vbp，窗體上有兩個(gè)文本框，名稱分別為Textl、Text2，都可以多行顯示。還有三個(gè)命令按鈕，名稱分別為cl、c2、c3，標(biāo)題分別為“取數(shù)”、“排序”、“存盤”。“取數(shù)”按鈕的功能是將考生文件夾下的in5.dat文件中的50個(gè)整數(shù)讀到數(shù)組中，并在Textl中顯示出來;“排序”按鈕的功能是對(duì)這50個(gè)數(shù)按升序排序，并顯示在Text2中;“存盤”按鈕的功能是把排好序的50個(gè)數(shù)存到考生目錄下的out5.dat文件中，如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序代碼，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后將修改后的文件按原文件名存盤。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：Str()函數(shù)、“冒泡法”排序、For循環(huán)語句、If判斷語句以及文件操作。

　　【解題思路】str函數(shù)用于數(shù)值轉(zhuǎn)化為字符串，語法為：str(number)。

　　在循環(huán)語句中Step表示步長，可以為正數(shù)，表示下一個(gè)變量加一個(gè)數(shù)，也可以為負(fù)數(shù)，則相反，在默認(rèn)情況下，步長為1，就不需要使用Step特意標(biāo)識(shí)。

　　“冒泡法”是一種重要的數(shù)據(jù)排序算法，它的核心思路是按順序讓一個(gè)數(shù)列中的每一個(gè)數(shù)都與它之后的所有的數(shù)逐一進(jìn)行比較，如果該數(shù)大于其后面的數(shù)，則把這兩個(gè)位置的數(shù)進(jìn)行交換。通過這樣的循環(huán)，最終按照從小到大的順序排列出該數(shù)列。從程序提供的代碼中可以看出，整型數(shù)組a的使用范圍是本窗體中的所有事件過程，用來存放從文件中讀取的數(shù)據(jù)。在排序中，使用雙重循環(huán)，外循環(huán)每循環(huán)一次，確定內(nèi)循環(huán)循環(huán)的次數(shù)，內(nèi)循環(huán)就是把本次循環(huán)中最大的數(shù)，放在數(shù)組的最后面，這樣就可以實(shí)現(xiàn)對(duì)這50個(gè)數(shù)的升序排序。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，

　　將問號(hào)改為正確的內(nèi)容，并編寫代碼。

　　參考答案(陰影部分是需考生填入的內(nèi)容)

　　Dim a(50) As Integer

　　Private Sub C1_Click()

　　Dim k As Integer，ch As String

　　Open"in5.dat"For Input As #1

　　ch=""

　　For k=1 T0 50

　　Input#1，_____a(k)_____將取出的數(shù)據(jù)存入數(shù)組a中

　　ch=ch+Str(a(k))+""´將數(shù)據(jù)存入ch

　　Next k

　　Close#1

　　Text1.Text=____ch______'在Text1文本框中顯示文件內(nèi)容

　　End Sub

　　Private Sub C2_click()

　　End Sub

　　Private Sub C3_Click()

　　Open"out5.dat"For Output As #1

　　Print#1，Text2.Text

　　Close#1

　　End Sub

　　需編寫的“排序”按鈕的代碼

　　Private Sub C2_Click()

　　Dim t As Integer

　　Dim i As Integer

　　Dim J As Integer

　　Dim ch As String

　　ch=""

　　For i=50 T0 2 Step-1使用冒泡算法從小到大排序

　　For J=1 To 49

　　If a(J)>a(j+1)Then’兩兩比較

　　t=a(J+1)

　　a(j+1)=a(J)

　　a(j)=t

　　End If

　　Next J

　　Next i

　　For J=1 T0 50´將排序后的數(shù)組重新賦給ch

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

　　Next j

　　Text2.Text=ch

　　End Sub

　　步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯(cuò)提示】注意冒泡排序的用法，理解位置交換的含義和方法，在交換時(shí)要有一個(gè)中間變量來起到傳遞的作用，否則會(huì)使其中一個(gè)值丟失而產(chǎn)生錯(cuò)誤。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)《MSOffice》全真模擬試題匯總

　　2015計(jì)算機(jī)二級(jí)《C語言程序設(shè)計(jì)》無紙化操作題匯總