2. 计算机
  3. 去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有3个命令按钮，名称分别为Read、Cal和save，标题分别为“读入数据”、“判断计算”和“保存”，还有两个文本框(名称分别为Textl和Te

去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有3个命令按钮，名称分别为Read、Cal和save，标题分别为“读入数据”、“判断计算”和“保存”，还有两个文本框(名称分别为Textl和Te

admin2009-03-26  1.8K+
问题 去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有3个命令按钮，名称分别为Read、Cal和save，标题分别为“读入数据”、“判断计算”和“保存”，还有两个文本框(名称分别为Textl和Text2，其中Textl的MultiLine属性设置为True，ScrollBars属性设置为2)，程序运行界面如图31—5所示。

    程序运行后，如果单击“读人数据”按钮，则读入sjin．txt文件中的50个整数，放人一个数组中，数组的下界为l；如果单击“判断计算”按钮，则把该数组中大于400且是奇数的元素在文本框中显示出来，并求出它们的和，并把所求得的和在Text2中显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹下的sjout．txt文件中。在考生文件夹下有一个工程文件sj5．vbp，输出文件名为sjout．txt。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5．vbp，窗体文件名仍为sj5．frm。
选项
答案根据题意，将两个Text控件和3个Command控件添加到窗体上，Text的名称分别为Textl和Text2、Text属性全为空，其中Textl的MultiLine属性为True、ScrollBar属性为2、Command的名称分别为Commandl、Command2和Command3，Caption属性分别为“读人数据”、“判断计算”和“保存”。双击Commandl命令按钮，编写如下代码： Dim a(50)As Integer Dim total As Long Private Sub Commandl_Click() Dim str As String Dim i As Integer str="" Open"App．Pathl&＼sjin．txt"For Input As#1 ’打开文件准备读入 For i=1 To 50 ’利用For循环将50个数读人到数组中 Input#1，a(i) str=str+CStr(a(i))+vbCrLf’以字符串形式保存 Next i Close#1 Textl．Text=str’在Textl中显示数组 End Sub Private Sub Command2_Click() Dim i As Integer Dim str As String str="" total=0 For i=1 To 50’利用For循环遍历数组 If a(i)>400 And a(i)Mod 2=1 Then’判断是否大于400且是奇数 total=total+a(i) ’如果是则求和 str=str+CStr(a(i))+vbCrLf’并放入输出字符串中 End If Next i Textl．Text=str’在Textl中显示符合条件的数 Text2．Text=total’在Text2中显示和 End Sub Private Sub Command3 Click() Open"App．Pathg&＼sjout．txt"For Output As#2’打开文件准备写入 Print#2，total’将求得的和写入文件中 Close#2 End Sub 单击[*] 按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/vV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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