【正确答案】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(j)=a(j+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)该题重点考查了利用冒泡算法对数组元素进行排序。