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

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

Задание звучало так: В массиве "В" по сравнению с массивом "А", максимальное и минимальное значение поменять местами. Код, который мне удалось составить:

                    Листинг программы
                
 
                        
                          
                    
Dim A(100)
Dim B(100)
 
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 1 To n
A(i) = Int(1001 * Rnd + 1)
B(j) = Int(1001 * Rnd + 1)
Picture1.Print "a"; i; "="; A(i)
Next
End Sub
 
Private Sub Command2_Click()
Amax = -1E+200
Amin = 1E+200
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
For i = 1 To n
j = i
If i = imax Then
B(j) = A(imin)
Else
If i = imin Then
B(j) = A(imax)
Else
B(j) = A(i)
End If
End If
Next
For i = 1 To n
Picture2.Print "b"; i; "="; B(i)
Next
End Sub

Форму прикрепил. И еще пару вопросов. 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