三、綜合操作題

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

　　參考解析：

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

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

　　在循環語句中Step表示步長，可以為正數，表示下一個變量加一個數，也可以為負數，則相反，在默認情況下，步長為1，就不需要使用Step特意標識。

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

　　【操作步驟】

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

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

　　將問號改為正確的內容，并編寫代碼。

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

　　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)_____將取出的數據存入數組a中

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

　　Next k

　　Close#1

　　Text1.Text=____ch______'在Text1文本框中顯示文件內容

　　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´將排序后的數組重新賦給ch

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

　　Next j

　　Text2.Text=ch

　　End Sub

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

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

　　相關推薦：

　　2015年計算機二級《MSOffice》全真模擬試題匯總

　　2015計算機二級《C語言程序設計》無紙化操作題匯總