Programacion Public Class Form1
Enviado por Martin Guncay • 29 de Octubre de 2017 • Examen • 2.457 Palabras (10 Páginas) • 182 Visitas
Uniandes
Nombre: Martin Guncay
- Realizar el siguiente ejercicio
[pic 1]
Public Class Form1
Private Sub btn_resulato_Click(sender As Object, e As EventArgs) Handles btn_resulato.Click
ListBox_total.Items.Add(txt_nombre.Text)
If chk_españa.Checked = True Then
ListBox_total.Items.Add("españa")
End If
If chk_francia.Checked = True Then
ListBox_total.Items.Add("francia")
End If
If chk_alemania.Checked = True Then
ListBox_total.Items.Add("alemania")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
- Realizar:
[pic 2]
Public Class Form1
Private Sub rdb_argentino_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_argentino.CheckedChanged
If rdb_argentino.Checked = True Then
lst_imprimir.Items.Add("argentino")
End If
End Sub
Private Sub rdb_tre20_30_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_tre20_30.CheckedChanged
If rdb_argentino.Checked = True Then
lst_imprimir.Items.Add("entre 20 a 30")
End If
End Sub
Private Sub rdb_colombia_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_colombia.CheckedChanged
If rdb_colombia.Checked = True Then
lst_imprimir.Items.Add("colombiano")
End If
End Sub
Private Sub rdb_entre30_40_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_entre30_40.CheckedChanged
If rdb_entre30_40.Checked = True Then
lst_imprimir.Items.Add("entre 30 a 40 años")
End If
End Sub
Private Sub rdb_uruguay_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_uruguay.CheckedChanged
If rdb_uruguay.Checked = True Then
lst_imprimir.Items.Add("uruguayo")
End If
End Sub
Private Sub rdb_mayor40_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_mayor40.CheckedChanged
If rdb_mayor40.Checked = True Then
lst_imprimir.Items.Add("mayor de 40 años")
End If
End Sub
End Class
3ro
[pic 3]
...