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

admin2009-03-26  37

问题 在名称为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://kaotiyun.com/show/rV1p777K
0

最新回复(0)