2. 计算机
  3. 在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有两个命令按钮，名称分别为Commandl和Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为Textl、MultiLine属

在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有两个命令按钮，名称分别为Commandl和Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为Textl、MultiLine属

admin2009-03-26  81
问题 在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有两个命令按钮，名称分别为Commandl和Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为Textl、MultiLine属性为True、ScrollBars属性为2；要求如果单击“读取数据”按钮，则读入in．txt文件中的50个整数，放入一个数组中，同时在文本框中显示出来；如果单击“保存”按钮，则计算数组中小于300或大于或等于800的所有数之和，把求和结果在文本框Textl中显示出来，如图32—5所示。同时把结果存人考生文件夹中的文件out．txt中。(在mode．bas中的writedata过程可以把结果存入out．txt文件。)。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件中，否则没有成绩。
选项
答案本题中涉及文件的操作，对文件的操作包括几个基本步骤，首先要打开文件，然后再读取文件，对文件操作完后，一定要记得关闭文件。用Input#语句读取顺序文件中的数据。 根据题意，将一个文本框控件和两个命令按钮放入Forml窗体中，然后根据需要设置各个控件的属性，先选中Textl控件，然后设置其滚动属性为2，MuhiLine属性为True；选中Commandl(读人数据)设置其Caption属性为“读取数据”，Command2的Caption属性为“保存”。将考生文件夹下的标准模块mode．bas文件添加到工程中。双击Commandl，进人代码窗口，补充后的具体代码如下： Dim a(49)As Long’全局变量 Dim str(49)As String’全局变量 Private Sub Commandl_Click() Textl．Text="" Open"App．Path&in．txt"For Input As#1’打开“in．txt”文件 Dim i As Integer Dim temp As Integer For i=0 To 49 Input#1，temp a(i)=temp’按顺序读人到数组中 Next i For i=0 To 49 str(i)=a(i) Textl．Text=Textl．Text+str(i)+vbCrLf ’将数组中的数放入Text中显示 Next i Close#1 End Sub Private Sub Command2_Click() Dim total As Long Dim i As Integer total=0 For i=0 To 49 If a(i)>800 Or a(i)<300 Then total=total+a(i) ’对符合条件的数进行求和 End If Next i writeData(total) ’将结果保存到out．txt中 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/nV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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