VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

Dim prom As Double, nota As Double, numNotas As Double
Dim i As Integer
prom = 0

numNotas = InputBox("Ingrese numero de notas a evaluar ej : 5,4 ")

' CRITERIOS DE EVALUACION
' -------------------------------
' nota < 3.0  --> muy mala
' 3.0 < nota < 4.0  --> mala
' 4.0 <= nota < 5.0 --> regular
' 5.0 <= nota < 6.0 --> buena
' 6.0 <= nota < 7.0 --> muy buena
' 7.0 --> excelente

For i = 1 To numNotas

    nota = InputBox("Ingrese nota")

    Select Case nota
    
        Case Is < 3
            MsgBox "Muy mala"
        Case 3 To 3.9
            MsgBox "Mala"
        Case 4 To 4.9
            MsgBox "Regular"
        Case 5 To 5.9
            MsgBox "Buena"
        Case 6 To 6.9
            MsgBox "Muy buena"
        Case 7
            MsgBox "Excelente"
          
    End Select

    prom = prom + nota

Next i

MsgBox "Promedio de notas : " & Round(prom / numNotas, 2)

End Sub