2. 计算机
  3. 在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“计算保存”，如图3—6所示。要求程序运行后，如果单击“读人数据”

在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“计算保存”，如图3—6所示。要求程序运行后，如果单击“读人数据”

admin2010-07-13  39
问题 在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“计算保存”，如图3—6所示。要求程序运行后，如果单击“读人数据”按钮．则读人in．txt文件中的100个整数，放人一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存人result．txt文件)。

    注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入result．txt文件中，否则没有成绩。
选项
答案文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。本题涉及到文件的操作，读入顺序文件以顺序的方式打开，用”Input#”语句读取数据。另外需要注意的是，对文件操作结束后，一定要关闭文件。 ①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示： [*] ②打开工程资源管理器，在其空白处右键添加模块prog．bas(此文件已在考生文件夹里)，模块代码如下： Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="＼resuh．txt" Open App．Path&sFile For Output As#1 Print#1，a； Close#1 End Sub ③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Dim i(1 To 100)As Integer Private Sub Cmdl Click() Dim j As Integer j=0 Open App．Path&"＼in．txt"For Input As#1 For i=1 To 100 Input#1，i(j) Next j Close#1 For i=i To 100 Textl．Text=Textl．Text&i(j)&Space(5) Next j End Sub Private Sub Cmd2 Click() Dim sum AS Long Dim j As Integer sum=0 Textl．Text="" For j=1 To 100 If i(j)>=400 And i(j)<800 Then sum=sum+i(j) End If Next j Textl．Text=Textl．Text&sum&Space(5) putdata sum End Sub 标准模块代码 Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="＼result．txt" Open App．Path&sFile For Output As#l Print#1，a； Close#1 End Sub
解析
转载请注明原文地址:https://jikaoti.com/ti/zJg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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