В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами - VB

Узнай цену своей работы

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

Задание звучало так: В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Код, который мне удалось составить:
Форму прикрепил. И еще пару вопросов. 1) Как сделать, чтобы от кнопки "Ввод" на picturebox1 выводило кол-во элементов, которое я задал. А то, я в textbox ввожу, например - три. Программа, это "три" записывает вместо label, и все) 2) Так уж получилось, что я задал такой параметр, что Rnd создает числа случайным образом. Так вот, как бы мне написать, что бы интервал задавал сам пользователь, то бишь - Я. Как? Заранее спасибо!

Решение задачи: «В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами»

textual
Листинг программы
Dim A() As Integer
Dim B() As Integer
Dim n As Integer
 
Private Sub Command1_Click()
     Dim min As Integer, max As Integer
     Picture1.Cls
     Randomize
     n = Val(Text1.Text)
     min = InputBox("Введите нижнюю границу значений", "Ввод данных", 0)
     max = InputBox("Введите верхнюю границу значений", "Ввод данных", 1000)
     ReDim A(1 To n), B(1 To n)
     Picture1.Print "n = " & n
     For i = 1 To n
         A(i) = Int((max - min + 1) * Rnd + min)
         Picture1.Print "A(" & i & ") = " & A(i)
     Next i
End Sub
 
Private Sub Command2_Click()
    Picture2.Cls
    Picture2.Print "n = " & n
    Amax = A(1): Amin = Amax: imax = 1: imin = 1
    For i = 1 To n
        If A(i) > Amax Then
             Amax = A(i)
             imax = i
        End If
        If A(i) < Amin Then
           Amin = A(i)
           imin = i
        End If
    Next i
    B = A
    B(imax) = A(imin)
    B(imin) = A(imax)
    Picture2.Print "Минимальное значение массива  " & "A(" & imin & ") = " & A(imin)
    Picture2.Print "Максимальное значение массива " & "A(" & imax & ") = " & A(imax)
    For i = 1 To n
              Picture2.Print "B(" & i & ") = " & B(i)
    Next
End Sub

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


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

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

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