10.04.2019 Views

Ejercicios de programación .net (nivel inicial)

Se muestra el funcionamiento de los conceptos básicos para programar en .net

Se muestra el funcionamiento de los conceptos básicos para programar en .net

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Public Class Form4<br />

Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles Button1.Click<br />

Dim A, B, C As Double<br />

A = Val(TextBox1.Text)<br />

B = Val(TextBox2.Text)<br />

C = Val(TextBox3.Text)<br />

If A > B And A > C Then<br />

TextBox4.Text = "EL MAYOR ES: " & A<br />

ElseIf B > A And B > C Then<br />

TextBox4.Text = "EL MAYOR ES: " & B<br />

ElseIf C > B And C > A Then<br />

TextBox4.Text = "EL MAYOR ES: " & C<br />

End If<br />

End Sub<br />

Private Sub Button2_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles Button2.Click<br />

TextBox1.Text = ""<br />

TextBox2.Text = ""<br />

TextBox3.Text = ""<br />

TextBox4.Text = ""<br />

TextBox1.Focus()<br />

End Sub<br />

Private Sub Button3_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles Button3.Click<br />

Form5.Show()<br />

Me.Hi<strong>de</strong>()<br />

End Sub<br />

Private Sub Button4_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />

System.EventArgs) Handles Button4.Click<br />

End<br />

End Sub<br />

End Class<br />

Leonel Navarrete

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!