Non sono molto pratico di visual basic e chiedo se qualcuno sa illustrarmi questa piccola applicazione che chiede all'utente di inserire valori di base e altezza di un triangolo, ne calcola la base e poi calcola l'area massima e quella minima trovata. Soprattutto su questo ultimo punto non mi trovo(check??). Devo arrivare a riuscire a riscrivere questa applicazione da solo!!!

codice:
Private Sub Command1_Click()
Dim base(100) As Integer
Dim altezza(100) As Integer
Dim areetriangoli(100) As Double
Dim i As Integer
Dim ntriangoli As Integer
Dim areamax As Integer
Dim areamin As Integer


ntriangoli = Val(InputBox("quanti triangoli sono?"))
If ntriangoli < 2 Then
        MsgBox ("i triangoli devono essere minimo DUE")
        End
End If

For i = 1 To ntriangoli
    base(i) = Val(InputBox("inserislci il valotre del " & i & "° base"))
    If base(i) < 1 Then
       MsgBox ("come puo essere il lato di un poligono pari o minore di 0")
       End
    End If
    
    altezza(i) = Val(InputBox("inserisci il valore della " & i & "altezza"))
    If altezza(i) < 1 Then
        MsgBox ("come puo essere il lato di un poligono pari o minore di 0")
       End
    End If
       
   areetriangoli(i) = base(i) * altezza(i) / 2
   MsgBox ("il risultato è" & CStr(areetriangoli(i)))
     
Next i

 areamax = areamassima(areetriangoli(), ntriangoli)
 areamin = areaminima(areetriangoli(), ntriangoli)
MsgBox ("L'area massima è" & CStr(areamax) & ". L'area minima è" & CStr(areamin))
 
End Sub

Private Function areamassima(aree() As Double, naree As Integer) As Double
Dim check As Double

  check = aree(1)
For i = 1 To naree
    
    If aree(i) > check Then
     check = aree(i)
    End If
Next i

areamassima = check

End Function

Private Function areaminima(aree() As Double, naree As Integer) As Double
Dim check As Double
   
  check = aree(1)
For i = 1 To naree
    
    If aree(i) < check Then
     check = aree(i)
    End If
Next i

areaminima = check


End Function