Site hosted by Angelfire.com: Build your free website today!
Fila B

H.U.P. que permita evaluar una nota.

Si ésta es menor a  11 mostrar una imagen. De lo contrario, si es aprobatoria, evaluar si es mayor o igual a 14 y menor e igual a 20. De ser así, contar estos usuarios; de lo contrario si es mayor o igual a 11 y menor o igual a 13  adicionar un punto a la nota.

 

Dim usuario As Integer
______________________________________________

Private Sub cmdaceptar_Click()
  If txtnota.Text < 11 Then
      imgcara.Visible = True
      Else
         If txtnota.Text >= 14  and   txtnota.Text <= 20 Then
            usuario = usuario + 1
            MsgBox ("aprobados [14 a 20]:  " &  usuario)
         Else
            txtnota.Text = txtnota.Text + 1
         End If

  End If

End Sub
________________________________________________
Private Sub cmdnuevo_click()
 txtnota.Text = ""
 imgcara.Visible = False
End Sub

Volver a la Página Principal