Un programa escrito en programación VB para evaluar puntuaciones.

Subbotón protegido 31 _ Haga clic (el remitente ByVal es el objeto, ByVal e es el sistema. EventArgs) maneja Button31. Haga clic en

Atenuar a como un número entero

si TextBox1. Texto = " " o TextBox2. Text = " "Entonces

MsgBox("¡Ingrese el nombre o la calificación del estudiante!")

Salir del conector

Terminará si...

a = CInt(TextBox2.Text)

Si 0 & lta y a & lt entonces 61

TextBox3. Texto = Cuadro de texto1. Texto&"-"&"falló"

ElseIf 60<a y a<Then 71

TextBox 3. Texto = Cuadro de texto1. Texto&"-"&"hasta"

ElseIf 70<a y a<Then 81

TextBox 3. Texto = Cuadro de texto1. Texto&"-"&"medium"

ElseIf 80<a y a<then91

TextBox 3. Texto = Cuadro de texto1. Texto&&"-"&"OK"

ElseIf 90<a y a<then100

TextBox 3. Texto = Cuadro de texto1. text & "-" & "excelente"

Terminará si...

Finalizar conector

Este es el código de fondo para el botón.

Tres cuadros de texto y etiquetas siguen a tu imagen.

Si tienes alguna pregunta, ponte en contacto con nosotros online. ....