综合题解析：
【解题思路】根据题意在\读数\命令的Click事件过程中，通过调用ReadData过程将数据从in5.txt文件读入到数组Arr(窗体变量)中；在\计算\命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量sum；在\保存\命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件out5.txt。
ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、1、2、3四种值，0表示没有滚动条(默认值),1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。
Space()函数用于返回特定数目空格的 Variant (String)。 语法：Space(number)
必要的 number 参数为字符串中想要的空格数，Space 函数在格式输出或清除固定长度字符串数据时很有用。
【操作步骤】
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜
单项，并在窗体Form1中添加一个文本框。 其相关属性及其值见表3.23和3.24。
表3.23 标题控件 读入数据 计算并输出 存盘 Read Calc Save 名称 0 0 0 内缩符号 表3.24 控件 文本框 Name MultiLine ScrollBars Text 属性 Text1 TRUE 2 设置值 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1
Dim Arr(100) As Integer Sub ReadData()
Open App.Path & \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 & \Print #1, Num Close #1 End Sub 程序结束 参考答案
Dim sum As Long
Private Sub Calc_Click() Text1.Text = \
For i = 2 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i)
Next i Print sum End Sub
Private Sub Read_Click() ReadData End Sub
Private Sub Save_Click()
WriteData \
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。