Crea un formulario con ocho etiquetas, nueve cajas de texto, tres botones ye escribe el siguiente código:

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text1.SetFocus

End Sub

El botón Prom. Gral. Redondeado

Private Sub Command1_Click()

Dim n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As Double

Dim promedio As Integer

n1 = Val(Text2): n2 = Val(Text3)

n3 = Val(Text4): n4 = Val(Text5)

n5 = Val(Text6): n6 = Val(Text7)

promedio = ((n1 + n2 + n3 + n4 + n5 + n6) / 6)

Text8 = Str(promedio)

If promedio >= 9.5 Then

Text9 = "Excelente"

End If

If promedio >= 9 And promedio < 9.5 Then

Text9 = "Muy Bien"

End If

If promedio >= 8.5 And promedio < 9 Then

Text9 = "Bien"

End If

If promedio >= 8 And promedio < 8.5 Then

Text9 = "Regular"

End If

If promedio < 8 Then

Text9 = "Mal"

End If

End Sub