2. 计算机
  3. 在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为“读人数据”、“计算显示”和“保存”，一个文本框，名称为Textl，MultiLine属性设置为True，ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“

在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为“读人数据”、“计算显示”和“保存”，一个文本框，名称为Textl，MultiLine属性设置为True，ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“

admin2010-07-13  57
问题 在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为“读人数据”、“计算显示”和“保存”，一个文本框，名称为Textl，MultiLine属性设置为True，ScrollBars属性没置为2。程序运行时的窗体界面如图16—7所示。如果执行“读人数据”命令．则读入sjin．txt文件中的50个整数，放人一个数组中，数组的下界为1；如果执行“计算显示”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的平均数，并把所求得的和在文本框中显示出来；如果执行“保存”命令，则把所求得的平均值存人考生文件夹下的sjout．txt文件中。在考生文件夹下有一个工程文件sj5．vbp。请将程序中有问号的地方用相应的代码补完整，并将代码前的所有注释符(即“’”号)去掉。

    注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5．vbp．窗体文件名
仍为sj5．frm。
选项
答案根据题意，在名为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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/5Lmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)