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

在名称为Forml的窗体上画一个文本框，名称为Textl，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmdl和Cmd2．标题分别为“读入数据”和“保存数据”，如图55—8所示。程序运行后，如果单击“读人数据”按

admin2010-07-13  29
问题 在名称为Forml的窗体上画一个文本框，名称为Textl，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmdl和Cmd2．标题分别为“读入数据”和“保存数据”，如图55—8所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放人一个数组中(数组下界为1)，并在文本框Textl中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Textl中显示出来，并存入考生文件夹中的result．txt文件中(考生文件夹中有标准模块prog．bas，其中的putdata过程可以把指定个数的数组元素存人restJlt．txt文件)。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，结果存入out．txt文件，否则没有成绩。
选项
答案 除了考查基本操作外，本题主要考查的是数组的使用。 ①文本框显示的内容通过Text属性设置，Multiline属性决定文本框是否可多行显示。若需要多行显示，必须将Multiline属性设置为True，同时将Scrollbars属性设置为2。 ②建立界面并设置控件属性。按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到的控件及属性设置见下表： [*] ③打开工程资源管理器，在其空白处右键添加模块prog．bas(此文件已在考生文件夹里)，模块代码如下： Option Explicit Sub putdata(a()As Integer，n As Integer) Dim sFile AS String sFile="＼Out．txt" Open App．Path&sFile For Output As#l For i=1 To n Print#1，a(i)； Next i Close#1 End Sub ④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： 窗体代码 Dim i(1 To 100)As Integer Private Sub Cmdl Click() Dim j As Integer j=0 Open App．Path&"kin．txt"For Input As#1 For j=1 To 100 Input#1，i(j) Next j Close#1 Fori=1 To 100 Textl．Text=Textl．Text&i(j)&Space(5) Next j End Sub Private Sub Cmd2 Click() Dim temp As Long Dim j As Integer Textl．Text="" For i=1 To 50 Textl．Text=Textl．Text&i(j)&Space(5) Next j putdata i，50 End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/KLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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