在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为“读人数据”、“计算显示”和“保存”，一个文本框，名称为Textl，MultiLine属性设置为True，ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“读人数据”命令．则读入sjin．txt文件中的50个整数，放人一个数组中，数组的下界为1；如果执行“计算显示”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的平均数，并把所求得的和在文本框中显示出来；如果执行“保存”命令，则把所求得的平均值存人考生文件夹下的sjout．txt文件中。在考生文件夹下有一个工程文件sj5．vbp。请将程序中有问号的地方用相应的代码补完整，并将代码前的所有注释符(即“'”号)去掉。
【正确答案】正确答案：根据题意，在名为Forml的窗体内添加3个主菜单，名称分别为Read、Arg和Save，Caption属性分别为“读人数据”“计算显示”和“保存”，画一个列表框控件，Name为Listl，单击读人数据菜单，进入代码窗口，编写如下代码： Dim a(50)As Long'全局变量 Dim str(50)As String'全局变量 Dim total As Long Private Sub Arg_Click() '求平均值 total=total＼50 Textl．Text=total End Sub Private Sub Read_Click() total=0 Textl．Text="" Open"App．Pathg&＼sjin．txt"For
Input
As#1'打开"sjin．txt"文件 Dim i As Integer Dim temp As Integer For i=1 To 50'利用For循环读人数据 Input#1，temp a(i)=temp'按顺序读入到数组中 Next i For i=1 To 50 total=
total
+a(i) '求和 str(i)=a(i) Textl．Text=Textl．Text+str(i)+vbCrLf'将数组中的50个数放人Text中显示 Next i Close#1 End Sub Private Sub Save_Click() '保存数据 Open"App．Path&＼sjout．txt"For Output As#1
Write
#1，total Close#1 '将结果保存到out．txt End Sub 单击
【答案解析】