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

第二步：編寫程序代碼。 程序提供的代碼。 標(biāo)準(zhǔn)模塊代碼： Sub putdata(a() As Integer, n As Integer) Dim sFile As String sFile = "esult.txt" Open App. Path& sFile For Output As #1 For i = 1 To n Print #1, a(i) ; Next Close #1 End Sub 窗體代碼： Option

分析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 文本框顯示的內(nèi)容由Text屬性設(shè)置：按鈕的標(biāo)題由Caption屬性沒置，單擊命令按鈕觸發(fā)Click事件：在本題中涉及到文件的操作，讀入順序文件以順序的方式打開，用Input#語句讀取數(shù)據(jù)，另外需要注意的是對文件操作完后，一定要關(guān)閉文件。解題步驟： 第一步：建立界面并沒置控件屬性。程序中用到的控件及其屬性見表4-4。