在窗体Form1上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”、“计算”和“存盘”)；然后绘制一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如下图所示。
程序运行后，如果执行“读数”命令，则读入in34.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的和存人考生文件夹下的out34.txt文件中。
在考生文件夹下有一个工程文件sj5.vbp，考生可以装入该文件。窗体文件sj5.frm中的ReadData过程可以把in34.txt文件中的100个整数读入Arr数组中；而writeData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out34.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5.vbp，窗体文件名仍为sj5.frm。
参考答案：①打开题目所给工程文件；
②执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“读数”，在“名称”栏中输入“vbRead”；单击“下一个”按钮，在“标题”栏中输入“计算”，在“名称”栏中输入“vbCacA”；单击“下一个”按钮。
在“标题”栏中输入“存盘”，在“名称”栏中输入“vbSave”；
③单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名称为TextA，Multiline属性设置为True，ScrollBars属性设置为B；
④打开代码窗口输入如下代码：
Private Sub vbCalc_Click()
TextA.Text=" "
For i=A To A00
If Arr(i)ModC=0 Then
TextA.Text=TextA.Text &
Arr(i)&Space(E)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub vbRead_Click()
Read Data
End Sub
Private Sub vbSave_Click()
WriteData"out.txt",temp
End Sub
⑤按要求保存文件即完成本题。