[問答題] 下面出現(xiàn)的“考生文件夾”均為c：wexam25160001。 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請?jiān)谟刑?hào)的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。 本題描述如下： 在名稱為Form1的窗體上有一個(gè)文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)”和“計(jì)算保存”，如圖8-5所示。要求程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入“in.txt”文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1)，同時(shí)在文本框中顯示出來；如果單擊“計(jì)算保存”按鈕，則計(jì)算小于或等于700的所有數(shù)之和，并把求得的結(jié)果在文本框Text1中顯示出來，同時(shí)把該結(jié)果存入考生文件夾中的文件“out.txt”中。 (在考生文件夾下的標(biāo)準(zhǔn)模塊mode.bas中的putdata過程可以把結(jié)果存入指定的文件) 注意：文件必須存放在考生文件夾下，窗體文件名為 sjt5.frm，工程文件名為sjt5.vbp，計(jì)算結(jié)果存入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 窗體代碼： O

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