Cofigo fuente

Solo disponible en BuenasTareas
  • Páginas : 2 (422 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de diciembre de 2010
Leer documento completo
Vista previa del texto
DEBER 1

[pic]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(T1.text) > 0 ThenT2.Text = "POSITIVO"
ElseIf Val(T1.Text) < 0 Then
T2.Text = "NEGATIVO"
Else
T2.Text = "NEUTRO"
End If
End Sub

Private Sub Button2_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("SALIR DE LA APLICACION", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
End
ElseMsgBox("NO SALIO")
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
T1.Text = NothingT2.Text = Nothing
T1.Focus()
End Sub
End Class

DEBER 2

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
If Val(t1.Text) < 1 Or Val(t1.Text) > 5 Then
MsgBox("error de notas")
t1.Text = Nothing
t1.Focus()
Exit SubElseIf Val(t1.Text) = 5 Then
t2.Text = "A"
ElseIf Val(t1.Text) = 4 Then
t2.Text = "B"
ElseIf Val(t1.Text) = 3 Then
t2.Text = "C"
ElseIfVal(t1.Text) = 2 Then
t2.Text = "D"
Else
t2.Text = "E"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
t1.Text = Nothing
t2.Text = Nothing
t1.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
If MsgBox("salir de la aplicacion", MsgBoxStyle.YesNo, "seguro de salir") = MsgBoxResult.Yes Then
End
Else
MsgBox("no...
tracking img