В текстовом файле записан массив целых чисел... - VB
Формулировка задачи:
Помогите пожалуйста написать программу ко вторнику.
В текстовом файле записан массив целых чисел (положительных и отрицательных). Каждое число записанно в отдельной строке. Нужно прочитать этот массив и упорядочить его, расположив числа в порядке возрастания. На экранной форме необходимо разместить поля для ввода имени файла и два текстовых окна для вывода исходного массива и для результата его обработки.
Если можете напишите плз пояснения.Буду очень радаДобавлено через 1 час 22 минуты 33 секунды
Только нужно в Visual Basic
Решение задачи: «В текстовом файле записан массив целых чисел...»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim A() 'объявляем массив ReDim A(0) 'читаем данные из файла в массив Open TextBox1.Text For Input As #1 Do Until EOF(1) Line Input #1, A(UBound(A)) A(UBound(A)) = Int(A(UBound(A))) ReDim Preserve A(UBound(A) + 1) Loop Close ReDim Preserve A(UBound(A) - 1) n = UBound(A) 'кол-во значений 'выводим исходный массив TextBox2.Text = "" For i = 0 To n - 1 TextBox2.Text = TextBox2.Text & A(i) & ", " Next i TextBox2.Text = TextBox2.Text & A(n) 'сортируем массив Call Sort(A, n) 'выводим отсортированный массив TextBox3.Text = "" For i = 0 To n - 1 TextBox3.Text = TextBox3.Text & A(i) & ", " Next i TextBox3.Text = TextBox3.Text & A(n) End Sub 'процедура сортировки пузырьковым методом Public Sub Sort(ByRef Arr(), ByVal n As Long) Dim i As Long Dim j As Long Dim tmp As Double For i = 0 To n Step 1 For j = 0 To n - 1 - i Step 1 If Arr(j) > Arr(j + 1) Then tmp = Arr(j) Arr(j) = Arr(j + 1) Arr(j + 1) = tmp End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д