[問答題] 下面出現(xiàn)的“考生文件夾”均為c:wexam25160001。 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請(qǐng)?jiān)谟刑?hào)的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。 本題描述如下： 在名稱為Form1的窗體上有一個(gè)文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2，兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)”和“排序顯示保存”，如圖5-6所示。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入in.txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1)：如果單擊“排序顯示保存”按鈕，則對(duì)這100個(gè)整數(shù)按從大到小進(jìn)行排序，把排序后的全部數(shù)據(jù)在文本框Text1中顯示出來，然后存入考生文件夾的out.txt文件中。 (考生文件夾下的標(biāo)準(zhǔn)模塊model.bas中的putdata過程可以把指定個(gè)數(shù)的數(shù)組元素存入out．txt文件。)注意：文件必須存放在考生文件夾下，窗體文件名為sjt5.frm，工程文件名sjt5.vbp，排序結(jié)果存入out.txt文件中，否則沒有成績(jī)。

第二步：編寫程序代碼。 程序提供的代碼。 model.bas代碼： Sub putdata(a() As Integer，n As Integer) Dim sFile As String sFile ="out.txt" Open App.Path & sFite For Output As #1 For i= 1 To n Print #1， a(i) ； Next Close #1 End Sub 窗體代碼： Option Explicit Dim i(1 T

在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 文本框顯示的內(nèi)容由Text屬性設(shè)置：按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件：在本題中涉及到文件的操作，讀入順序文件以順序的方式打開，用Input#語句讀取數(shù)據(jù)，另外需要注意的是對(duì)文件操作完后，一定要關(guān)閉文件。排序的方法有多種，如冒泡排序、選擇排序等，本題用的是選擇排序法。 選擇法排序的思想是：每一次循環(huán)從數(shù)組的n-i+1(I=1，2，…，n-1)個(gè)元素中選擇一個(gè)值最小的元素與你n-i+1個(gè)元素的前面那個(gè)元素交換位置，即與整個(gè)數(shù)組的第i個(gè)位置的元素交換位置。如此下去，直到i=n-1時(shí)，排序結(jié)束。解題步驟： 第一步：建立界面并設(shè)置控件的屬性。程序中用到的控件及其屬性見表5-5。