Найти максимальное и минимальное число из ряда заданных чисел

  Dim n As Integer
    Dim i As Integer
    Dim a(n) As Integer
    Dim max As Integer
    Dim min As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        n = InputBox("Введите количество чисел")
        i = 1
        Do While i <= n
            a(i) = InputBox("Введите а" & i)
            i += 1
        Loop
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = 1
        a(i) = max
        a(i) = min
        If i <= n Then
            If a(i) > max Then
                max = a(i)
            Else
                If a(i) < min Then
                    min = a(i)
                End If
            End If
            i = i + 1
        End If
    End Sub

Dim min As Integer=a(0)
Dim max As Integer=a(0)
For j As Integer=1 To n-1
If a(j)>max Then max=a(j)
If a(j)<min Then min=a(j)
Next

 a(i) = InputBox("Введите а" & i)

Do While i <= n-1

  i = 1
        n = InputBox("Введите кол-во чисел")
        Do While i <= n - 1
            a(i) = InputBox("a" & i) 'выделяет "индекс находится вне границ массива"
            i = +1
        Loop

Dim a() As Integer= New Integer(10){}
    Dim n As Integer=10