Найдите максимальный и минимальный элементы массива

Dim a(10), i, j, k, amin, amax, ares As Integer
'Заполнение массива случайными числами
Private Sub Form_Load()
k = 0
For i = 0 To 1000
j = Int(100 * Rnd(i))
If j >= 10 Then
k = k + 1
a(k) = j
MsgBox a(k)
If k = 10 Then
Exit For
End If
End If
Next
'Поиск минимального и максимального элемента
amin = a(1)
amax = a(1)
For i = 1 To 10
If a(i) < amin Then
amin = a(i)
End If
If a(i) > amax Then
amax = a(i)
End If
Next
ares = amax - amin
MsgBox amin
MsgBox amax
MsgBox ares
 
End Sub

   Dim i as integer
   Dim A(1 to 10) as integer
   Randomize
   For i=1 to 10
        A(i)=10+rnd()*90
   Next i

Sub Test()
Dim i As Integer
Dim A(1 To 10) As Integer
   Randomize
   For i = 1 To 10
        A(i) = 10 + Rnd() * 90
   Next i
   For i = 1 To 10
        Debug.Print A(i); " ";
   Next i
   Debug.Print
End Sub

Dim a(10), i, j, k, amin, amax, ares As Integer
'Çàïîëíåíèå ìàññèâà ñëó÷àéíûìè ÷èñëàìè
Private Sub Form_Load()
k = 0
For i = 0 To 1000
j = Int(100 * Rnd(i))
If j >= 10 Then
k = k + 1
a(k) = j
'MsgBox a(k)
Debug.Print a(k)
If k = 10 Then
Exit For
End If
End If
Next
'Ïîèñê ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà
amin = a(1)
amax = a(1)
For i = 1 To 10
If a(i) < amin Then
amin = a(i)
End If
If a(i) > amax Then
amax = a(i)
End If
Next
ares = amax - amin
'MsgBox amin
'MsgBox amax
'MsgBox ares
Debug.Print "amin="; amin
Debug.Print "amax="; amax
Debug.Print "ares="; ares
End Sub