[問答題] 在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有2個(gè)文本框，名稱為Text1、Text2，都可以多行顯示；還有3個(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文件中。如圖5所示。在窗體中已經(jīng)給出了全部控件和部分程序。

要求：閱讀程序并去掉程序中的注釋符，在程序中的橫線處填寫正確的內(nèi)容，并編寫“排序”按鈕的Click事件過程，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

[題目提供的源程序]

Dim a(50) As Integer

Private Sub C1_Click()

Dim k As Integer, ch As String

0pen "in5.dat" For Input As #1

ch=""

For k=1 To 50

Input #1, (1)

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

Next k

Close #1

Text1.Text= (2)

End Sub

Private Sub C2_Click()

’考生應(yīng)編寫的程序

End Sub

Private Sub C3_Click()

O

[操作步驟] 第1步：打開工程文件sjt5.vbp。 第2步：分析并修改源程序。 [1]a(k) [2]ch “排序”按鈕的參考代碼如下： Private Sub C2_Click( ) ’考生應(yīng)編寫的程序 For i=1 To 49 For j=1 To 50-i If a(j)＜a(j+1) Then t=a(j) a(j)=a(j+1) a(j+1)=t End If Next j Next j For j=1 To 50 ch=ch+Str(a(i))+""

程序首先打開文件in5.dat，并從文件中讀取數(shù)據(jù)，從讀取語句的下一行“ch=ch+Str(a(k))+""”可以看出，將讀取的數(shù)據(jù)連接到ch的后面，連接的內(nèi)容為a(k)，所以讀取語句Input中的變量應(yīng)該是a(k)。文件內(nèi)容讀取結(jié)束后，文件的所有內(nèi)容都連接到變量ch中，將ch賦值給Text1.Text即可在文本框中顯示出文件的內(nèi)容。 排序可采用多種方法，如選擇法、冒泡法等。