В текстовом файле записан массив целых чисел... - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4 из 5
Похожие ответы