2. 计算机
  3. 在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有一个文本框，名称为Textl、MultiLine属性为True、ScrollBars属性为2；两个命令按钮，名称分别为Commandl和Comm

在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的。在名称为Forml的窗体上有一个文本框，名称为Textl、MultiLine属性为True、ScrollBars属性为2；两个命令按钮，名称分别为Commandl和Comm

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

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件，否则没有成绩。
选项
答案文本框显示的内容由Text属性设置，Multiline属性设置文本框是否可多行显示；按钮的标题由Caption属性设置，单击命令按钮触发Click事件。题中涉及对文件的操作，读人顺序文件以顺序的方式打开，用Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。 根据题意要求将一个文本框控件和两个命令按钮，其中文本框的名称为Namel、MultiLine属性为True、滚动属性为2命令按钮的名称分别为Commandl和Command2、Caption的属性分别为“读取”和“计算保存”。在“工程”窗口中单击右键在弹出的快捷菜单中选择“添加”→“添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode．bas”，单击“确定”按钮即添加成功。模块mode．bas中的代码如下： Function writeData(total As Long) Open App．Path&"＼out．txt"For Output As#1 Write#1，total Close#1 End Function 窗体中补充后的代码如下： Dim a(50)As Long’全局变量 Dim str(50)As String’全局变量 Dim total As Long Dim n As Integer Private Sub Commandl Click() total=0 n=0 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 If a(i)>=500 Then total=total+a(i) ’当符合条件时进行相加 n=n+1 ’当符合条件是则n增l End If str(i)=a(i) Textl．Text=Textl．Text+str(i)+vbCrLf’将数组中的50个数放人Text中显示 Next i total=total＼n Close#1 End Sub Private Sub Command2 Click() Textl．Text=total writeData(total)’将结果保存到out．txt End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/HV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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