【正确答案】正确答案：根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2，Command的名称分别为Commandl和Command2、Caption属性分别为‘‘读入’’和‘‘排序”。双击Commandl命令按钮，编写如下代码： Dim a(50)As Long'全局变量 Private Sub Commandl Click() Textl．Text="" Open App．Path&"＼in．txt"For Input As #1'打开"in．txt"文件 Dim i As Integer Dim temp As Integer For i=1 To 50 Input#l，temp a(i)=temp'按顺序读入到数组中 Next i For i=1 To 50 Textl．Text=Textl． Text +CStr(a(i))+vbCrLf'将数组中的数放人Text中显示 Next i CIose#1 End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim temp As Integer Dim str As String str="" For i=1 To 50 '降序排列 temp=a(i) For j=1 To i If a(j) str '在Textl中显示 End Sub 单击[*]按钮运行程序，并按要求保存。