Cofigo fuente

As System. EventArgs) Handles Buttonl . CIick If O Then T2. Text – ‘POSITIVO» Eiself val(T1 . Text) < O Then T2. Text = "NEUTRO" T2. Text Eise End If End Sub "NEGATIVO" Private Sub Button e As System. EventA MsggoxResult. Yes Th End Else ora Clic , Sv. içx to View 2. System. Object, ByVal gaoxstyIe. yesN0) - SALIO") Private Sub sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click TI . Text Nothing 2. Text = Nothing TI . Focus() End sub End Class tl . Text Nothing t2. Text = Nothing tl . Focus() Private Sub Button3_Click(ByVal sender As System.

Object, ByVal e As System. EventArgs) Handles Button3. Click If MsgBox(«salir de la aplicacion’ , MsgBoxStyle. YesNo, «seguro de salir») MsggoxResult. Yes Then MsgBox(«no salio») Erld sub [pic] Public Class Forml e As System. EventArgs) Handles Buttonl Click f val(tl . text) < O or val(tl . text) > 20 Then Msggox(«error de notas») tl . text = Nothing tl . focus() Exit Sub EiseIfVal(tl . text) < 9 Then t2. text = "insuficiente" Eiselfval(tl . text) < 13 Then t2. text = "deficiente" . text) < 16 Then t2. text "bueno" . text) < 19