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

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

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

    注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符(即“’”号)，但不能修改其他部分。文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件，否则没有成绩。
选项
答案文本框显示的内容由Text属性设置，Multiline属性决定文本框是否可多行显示；按钮的标题由Caption属性设置，单击命令按钮触发Click事件。题中涉及对文件的操作，读人顺序文件以顺序的方式打开，用input#语句读取数据。对文件操作完后，一定要关闭文件。 题目给出的源程序中已设计好窗体，且已给出标准模块代码，考生只需将它添加到当前工程即可。在“工程”窗口中单 击右键，在弹出的快捷菜单中选择“添加”一“添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode．bas”，单击“确定”按钮即添加成功。 标准模块代码如下： Option Explicit Sub writedata(t_FileName As String，t_Str As Variant) Dim sFile As String sFile="＼"&t_FileName Open App．Path&sFile For Output As#1 Print#1，t_Str Close#1 End Sub 单击Commandl进入代码窗口，补充后的窗体代码如下： Option Explicit Dim i(1 To 50)As Integer Private Sub Commandl_Click() Textl．Text="" Dim j As Integer Open App．Path&"\in．txt"For Input As#1 For j=1 To 50 Input#1，i(j) Textl．Text Textl．Text&i(j)&Space(5) Next j Close#1 End Sub Private Sub Command2 Click() Dim temp As Long Dim j As Integer For j=1 To 30 temp=temp+i(j) Next j temp=temp／30 Textl．Text=temp writedata"out．txt"，temp End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/cGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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