打开考生目录下工程文件sjt5.vbp，在窗体上建立三个菜单（名称分别为Read、Calc、Save，标题分别为“读入数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2）（如图所示）。程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”菜单，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”菜单，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整数值通过计算求得，文件名为dataout.txt）。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。 程序代码如下所示： Option Base 1
Dim Arr(100) As Integer Dim sum As Integer
Sub ReadData()
Open App.Path & \"\\\" & \"datain1.txt\" For Input As #1 For i = 1 To 100 Input #1, Arr(i) Next i Close #1 End Sub
Sub WriteData(Filename As String, Num As Integer) Open App.Path & \"\\\" & Filename For Output As #1 Print #1, Num Close #1 End Sub
Private Sub calc_Click() Dim i As Integer sum = 0
Text1.Text = \"\" For i = 1 To 100
If Arr(i) Mod 3 = 0 Then sum = sum + Arr(i)
Text1.Text = Arr(i) & vbCrLf & Text1.Text End If Next i Print sum End Sub
Private Sub read_Click() Call ReadData End Sub
Private Sub save_Click()
Call WriteData(\"outdata.txt\End Sub
