Найти минимальный элемент массива A(N) и поменять его местами с первым элементом массива

Dim A() As Integer, i As Integer, min As Integer, j As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = InputBox("Enter n", , 10)
ReDim A(n) ' Размеры массива А -  n-строк, m-столбцов
For i = 1 To n
 A(i) = Int(Rnd * 101) 'Заполняем массив случайными числами
 Print A(i); vbTab;
Next i
min = A(1)
For i = 1 To n
 If min > A(i) Then min = A(i): j = i
Next i
Print
Print "Минимальный злемент  A("; j; ") = "; A(j);
A(j) = A(1): A(1) = min
'Процедура вывода на печать
Print
min = A(1)
For i = 1 To n
 If min > A(i) Then min = A(i)
 Print A(i); vbTab;
Next i
End Sub

Print
For i = 1 To n
 Print A(i); vbTab;
Next i
End Sub

Option Explicit
Dim i As Integer, j As Integer
Dim nMast As Integer, nDost As Integer
Dim Mast As String, Dost As String
Dim Kart(1 To 4, 6 To 14) As String
Private Sub Command1_Click()
Mast = "Пики.ТрефыБубныЧервы"
Dost = "Шесть.Семь..ВосемьДевятьДесятьВалет.Дама..КорольТуз..."
For i = 1 To 4
  For j = 6 To 14
   Kart(i, j) = Mid(Mast, 5 * (i - 1) + 1, 5) & Mid(Dost, 6 * (j - 6) + 1, 6)
  Next j
Next i
nMast = InputBox("Введите номер масти (от 1 до 4)", , 3)
nDost = InputBox("Введите номер достоинства (от 6 до 14)", , 12)
Print Kart(nMast, nDost)
End Sub

Option Explicit
Dim M(1 To 4) As String, N(6 To 14) As String
Dim i As Integer, j As Integer
Dim nMast As Integer, nDost As Integer
Dim Mast As String, Dost As String
Private Sub Command1_Click()
Mast = "Пики.ТрефыБубныЧервы"
Dost = "Шесть.Семь..ВосемьДевятьДесятьВалет.Дама..КорольТуз..."
For i = 1 To 4
   M(i) = Mid(Mast, 5 * (i - 1) + 1, 5)
Next i
For i = 6 To 14
   N(i) = Mid(Dost, 6 * (i - 6) + 1, 6)
Next i
nMast = InputBox("Введите номер масти (от 1 до 4)", , 3)
nDost = InputBox("Введите номер достоинства (от 6 до 14)", , 12)
Print M(nMast); N(nDost)
End Sub

Option Explicit
Dim i As Integer, j As Integer
Dim nMast As Integer, nDost As Integer
Dim Mast As String, Dost As String
Dim Kart(1 To 4, 6 To 14) As String
Private Sub Command1_Click()
Mast = " ПиковТрефовБубновЧервов"
Dost = "Шестёрка Семёрка  ВосьмёркаДевятка  Десятка  Валет    Дама     Король   Туз"
For i = 1 To 4
  For j = 6 To 14
      Select Case j
        Case 11, 13, 14
           Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ый  " & Mid(Dost, 9 * (j - 6) + 1, 9)
        Case Else
           Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ая  " & Mid(Dost, 9 * (j - 6) + 1, 9)
        End Select
  Next j
Next i
nMast = InputBox("Введите номер масти (от 1 до 4)", , 3)
nDost = InputBox("Введите номер достоинства (от 6 до 14)", , 12)
Print Kart(nMast, nDost)
End Sub