[問答題] 下面出現(xiàn)的“考生文件夾”均為c：wexam25160001。 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請在有 號的地方填入正確內容，然后刪除及所有注釋符(即’號)但不能修改其他部分。存盤時不得改變文件名和文件夾。 本題描述如下： 在名稱為Form1的窗體上有一個文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2：兩個命令按鈕名稱分別為Cmd1和Cmd2，標題分別為“讀入數(shù)據(jù)”和—“計算保存”，如圖6-5所示。要求程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入“in.txt”文件中的100個整數(shù)，放入—個數(shù)組中 (數(shù)組下界為1)，同時在文本框中顯示出來：如果單擊“計算保存”按鈕，則計算其中前50個數(shù)之和，并把求和結果在文本框Text1中顯示出來，同時把結果存入考生文件夾中的文件“out.txt”中。 (在考生的文件夾下有標準模塊mode.bas，其中的putdata過程可以把結果存入指定的文件)。 注意：文件必須存放在考生文件夾下，窗體文件名為sjt5.frm，工程文件名為sjt5.vbp，計算結果存入out.txt文件，否則沒有成績。

第二步：編寫程序代碼。 程序提供的代碼。 mode.bas代碼： Option Explicit Sub putdata(t_FileName As String，t_Str As Variant) Dim sFile As String sFile="" & t_FileName Open App.Path & sFile For Output As #1 Print #1，t_Str Close #1 End Sub 窗體代碼： Option Explicit ’D

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