【正确答案】正确答案： 在本题中涉及文件的操作，用Write#或Input#语句读取数据，对文件操作完后一定要关闭文件。 根据题意，将一个文本框控件和两个命令按钮添加到窗体中，根据题意的要求设置属性，即文本框的名称为Textl、MultiLine属性为true、ScrollBars属性为2，两个命令按钮的控件的Caption属性分别为“读取”和“排列保存”，名称为Commandl和Command2。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加”一“添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode5．bas”，单击“确定”按钮即添加成功。模块的代码如下： Function writeData(total AS Long) Open App．Path&．"＼result．txt"For Append As#1 Write#1，total Close#1 End Function 分析程序可知，程序在读取的同时就进行了排序，一旦读取的数比当前数大，则将两数位置交换，继续比较后面的数。补充后的具体代码如下： Dim str(50)As String'全局变量 Dim a(50)As Long'全局变量 Private Sub Commandl Click() Textl．Text="" Open App．Path&"＼in．txt"For Input As#1 Dim i As Integer For i=0 To 49 Input #1，a(i) Next i For i=0 TO 49 str(i)=a(i) Textl．Text= Textl．Text +str(i)+vbCrLf Next i Close#l End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim temp As Integer Dim k As Integer Textl．Text="" For i=0 To 49 temp=a(i) For i=0 TO i If a(j)< temp Then For k=i To j+1 Step-1 a(k)=a(k-1) Next k a(j)=temp Exit For End If Next j Next i For i=0 TO 49 str(i)=a(i) Textl．Text= Textl．Text +str(i)+vbCrLf writeData(str(i)) Next i End Sub 单击