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

10.04.2019 Views

Bucle For Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim I As Integer For I = 2 To 100 Step 2 ListBox1.Items.Add(I) Next End Sub End Class Leonel Navarrete

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End If If CheckBox2.Checked = True Then TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) End If If CheckBox3.Checked = True Then TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) End If If CheckBox4.Checked = True Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) End If CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click FORM2.SHOW() Me.Hide() End Sub End Class Leonel Navarrete

Public Class Form1<br />

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

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

If CheckBox1.Checked = True Then<br />

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)<br />

End If<br />

If CheckBox2.Checked = True Then<br />

TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)<br />

End If<br />

If CheckBox3.Checked = True Then<br />

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)<br />

End If<br />

If CheckBox4.Checked = True Then<br />

TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)<br />

End If<br />

CheckBox1.Checked = False<br />

CheckBox2.Checked = False<br />

CheckBox3.Checked = False<br />

CheckBox4.Checked = False<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 />

End<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 />

FORM2.SHOW()<br />

Me.Hi<strong>de</strong>()<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!