В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д