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

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

admin2009-03-26  57
问题 在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮．名称分别为Cmdl和Cmd2，标题分别为“读人数据”和“排序并保存”，如图4—6所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)：如果单击“排序并保存”按钮，则对这100个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件result．txt中(在程序中的标准模块prog．bas过程可以把指定个数的数组元素存入result．txt文件中)。

    注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm．工程文件名称为sj5．vbp，排序结果存入result．txt文件，否则没有成绩。
选项
答案除了基本的操作外，本题涉及到的知识点主要有循环和数组的使用两个方面。先在窗体上建立控件，再设置控件属性，然后研读提供的代码，正确分析并完成程序。文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；在本题中涉及到文件的操作，读人文件并以顺序的方式打开，用“Input#”语句读取数据，另外需要注意的是对文件操作结束后，一定要关闭文件。 ①文本框显示的内容通过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="＼result．txt" Open App．Path&sFile For Output As#1 For i=1 To n Print#l，a(i)； Next i Close#1 End Sub ④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： 窗体代码 Option Explicit Dim i(1 To 100)As Integer Private Sub Crodl Click() Dim j As Integer Open App．Path&"＼"&．"in．txt"For Input As#l For i=1 To 100 Input#l，i(j) Textl．Text=Textl．Text&i(j)&．Space(5) Next i Close#l End Sub Private Sub Crod2 Click() Dim j As Integer Dim k As Integer Dim l AS Integer Dim temp As Integer For k=l TO 99 For 1=k+1 To 100 If i(k)>i(1)Then temp=i(k)：i(k)=i(1)：i(1)=temp Next i Next k Textl．Text="" For i=1 To 100 Textl．Text=Textl．Text&i(j)&Space(5) Next j End Sub ⑤调试并运行程序。 ⑥按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/rV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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