Как отсортировать - VB

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

У меня есть задание: есть файла in.txt out.txt в файле in.txt 9 чисел 1 9 2 0 3 8 4 7 6 5 записаны в столб надо отсортировать в документе In и перенести в файл out.txt с переносом нету проблем проблема в сортировке нужна помощь

Решение задачи: «Как отсортировать»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim a(1 To 9) As Long, i As Long, j As Long, t As Long
    Open "in.txt" For Input As #1
    Open "out.txt" For Output As #2
    For i = 1 To 9
        Input #1, a(i)
        For j = 1 To i - 1
            If a(j) > a(i) Then 
                t = a(i)
                a(i) = a(j)
                a(j) = t
            End If
    Next j, i
    For i = 1 To 9
        Print #2, a(i)
    Next i
    Close
End Sub
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы