在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2和Command3， 标题分别为...
注意：
1）必须把排序后大于500的所有整数保存到文件out5.txt中，否则没有成绩。
2）存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp， 窗体文件名为sjt5.frm。
图1
图2
参考解析: 【考点分析】本题考点是控件的基本属性，文件的读写操作，字符串的转换，数组数据的排序。
【解题思路】查看输入文件数据特点，读取数据到字符串变量中，转换成数值保存到数组中，同时显示在文本框中。对数组数据排序使用冒泡排序方法。显示大于500的数据只要依次比较数组中的数据即可。
【操作步骤】
步骤1：新建工程，保存到考生文件夹下。工程名为sjt5.vbp，窗体文件名为sjt5.frm。
步骤2：添加一个文本框控件，三个命令按钮控件，属性设置如下。
控件 文本框
属性 Name MultiLine Scrollbars
值 Text1 True 2
控件 命令按钮 命令按钮 命令按钮
属性 Name Caption Name Caption Name Caption
值 Command1 取数 Command2 排序 Command3 存盘
步骤3：编写各按钮的程序代码。
参考答案（阴影部分是需要考生填入的内容）
Dim a(100) As Integer '定义数据存储读出的数据
Private Sub Command1_Click()
Dim s As String
Dim l As Integer
l = 1 '数组数据下标从1开始
Text1 = "" '文本框清空
Open "in5.txt" For Input As #1 '打开输入文件准备读取数据
Do While Not EOF(1) '读取文件直到文件结束
Line Input #1, s '读取一行，存放在变量s中
a(l) = Val(s) '把字符串变量转换为数值保存到数组中
Text1 = Text1 + s '在文本框中显示读出的数据
l = l + 1 '数组下标递增
If l > 100 Then Exit Do '只读取前100个数据
Loop
Close #1 '关闭打开的文件
End Sub
'''''''''排序过程'''''
Private Sub sort()
Dim temp As Integer
Dim n As Integer
Dim k As Integer
For n = 1 To 100 '冒泡排序算法
For k = 1 To (100 - n)
If a(k) < a(k + 1) Then '降序
temp = a(k)
a(k) = a(k + 1)
a(k + 1) = temp
End If
Next k
Next n
End Sub
Private Sub Command2_Click()
Call sort '调用排序过程
Text1 = "" '文本框显示清空
Dim n As Integer
For n = 1 To 100 &nb
百度扫一扫练题
关注千题库公众号
