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

第二步：編寫程序代碼。 程序提供的代碼。 prog.bas的代碼： 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 窗體代碼： Dim i(1 To 100) As I

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