Сортировка массива по убыванию - VB (59469)

Формулировка задачи:

Есть программа, в которой вы вводите количество и элементы массива и она выводит через MsgBox элементы массива по убыванию... Нужно написать похожую программу, но которая бы брала исходные данные с файла(txt) и результат тоже записывала бы в файл txt

                    Листинг программы
                
 
                        
                          
                    
Sub macros11()
Dim x(200) As Double
MsgBox ("Задача: Сортировка массива по убыванию")
n = InputBox("Введите число элементов массива N")
For i = 1 To n
x(i) = InputBox("Введите элементы массива X(i)")
Next i
For i = 1 To n
For j = i + 1 To n
If x(i) < x(j) Then
b = x(i)
x(i) = x(j)
x(j) = b
End If
Next j
Next i
MsgBox ("Отсортированный по убыванию массив X(i)")
For i = 1 To n
MsgBox (x(i))
Next i
End Sub

Решение задачи: «Сортировка массива по убыванию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
For i = 1 To m
        Do
            q%=0
            For j = 1 To n - 1
                 If A(i, j) < A(i, j + 1) Then
                    tmp = A(i, j)
                    A(i, j) = A(i, j + 1)
                    A(i, j + 1) = tmp
                    q%=q%+1
                 End If
            Next j
            if q%=0 then Exit Do '!!!
         Loop
    Next i