在窗体上创建三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“导入数据”、“计算”和“保存数据”,以及一个文本框,名称为Text1。编写事件过程,使得在运行时,单击“导入数据”按钮,从考生文件里读入data.txt文

admin2009-03-17  56

问题 在窗体上创建三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“导入数据”、“计算”和“保存数据”,以及一个文本框,名称为Text1。编写事件过程,使得在运行时,单击“导入数据”按钮,从考生文件里读入data.txt文件(其中有20个整数),在Text1中显示。单击“计算”,采用冒泡算法排序。单击“保存数据”,存入out.txt文件中。程序运行界面如图29所示。

选项

答案(1)Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件,在窗体建立一个文本框Text1,将其Text属性设为空。 (3)在工具箱中选择命令按钮控件,在窗体上创建三个命令按钮,名称分别为 Command1、Command2和Command3,标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮,弹出代码窗口,在其中添加如下代码; Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1,a Loop Close #1 End Sub (5)双击“计算”按钮,弹出代码窗口,在其中添加如下代码: Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)>a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮,弹出代码窗口,在其中添加如下代码: Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App.Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为 ylc.frm。

解析 (1)该题与上机模拟题十二在基本操作上类似,都考查了文件的读入操作并在文本框中输出;对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。
转载请注明原文地址:https://kaotiyun.com/show/jj1p777K
0

随机试题
最新回复(0)