Ejercicio De Visual Basic

Prof. Adriana Montero Materia: Programación I 1. EJERCICIO1: APRENDE A SUMAR Crea un formulario con cinco etiquetas, una caja de texto, tres botones, dos imágenes y tres líneas. Modifica las propiedades de las etiquetas de las cantidades y la de la palabra de resultado como sigue: BackColor blanco y Border Style 1Fixed Single. Usa Font y ForeColor para el tamaño y color del contenido y Alignment 2-Center En Word crea las caritas y colócalas dentro de los cuadros de imágenes con su propiedad Stretch en True, las líneas hazlas más gruesas en BorderWidth 3 y BorderColor azul. Vamos a crear un procedimiento para generar al azar los números: Haz doble clic en el formulario. Haz clic en Tools (Herramientas)/Add Procedure (Agregar Procedimiento). En Add Procedure escribe el nombre del procedimiento, en este caso Azar y haz clic en Aceptar. Ahora escribe el código: Public Sub azar() n1 = Int(Rnd * 10) + 1 n2 = Int(Rnd * 10) + 1 Label1.Caption = n1 Label2.Caption = n2 End Sub Haz doble clic en el formulario y escribe el siguiente código: Private Sub Form_Load() Randomize Call azar Image1.Visible = False Image2.Visible = False End Sub El botón Otra Suma Private Sub Command1_Click() Call azar Text1.Text = "" Label3.Caption = "" Image1.Visible = False-

Image2.Visible = False End Sub El botón Revisar Private Sub Command2_Click() If Val(Text1) = Val(Label1) + Val(Label2) Then Label3.Caption = "Bien" Image1.Visible = True Else Label3.Caption = "Mal" Image1.Visible = False Image2.Visible = True End If End Sub El botón Salir Private Sub Command3_Click() Unload Me End End Sub

1

Prof. Adriana Montero Materia: Programación I 2. EJERCICIO 2: ORDENAR LOS NÚMEROS Crea un formulario con nueve etiquetas, dos de ellas serán las instrucciones y a las que contendrán los números (seis) cámbiales su Propiedad Alignment a 2-Center, BackColor blanco, BorderStyle a 1-Fixed Single y tres botones, ahora Introduce las siguientes declaraciones Haz doble clic en el formulario En la caja de combo de la esquina superior izquierda selecciona (General) Y escribe: Dim n1, n2, n3 As Integer (presiona Enter al terminar) Ahora crea un procedimiento: Haz doble clic en el formulario. Haz clic en Herramientas (Tools)/Agregar Procedimiento (Add Procedure). En Agregar Procedimiento escribe el nombre del Procedimiento (en este caso azar) y haz clic en Aceptar. Ahora escribe el siguiente código: Public Sub azar() n1 = Int(Rnd * 10) + 1 n2 = Int(Rnd * 10) + 1 n3 = Int(Rnd * 10) + 1 If n1 <> n2 And n2 <> n3 And n1 <> n3 Then Label1.Caption = n1 Label2.Caption = n2 Label3.Caption = n3 Else Exit Sub End If End Sub La etiqueta 4 Private Sub Label4_DragDrop(Source As Control, X As Single, Y As Single) Label4.Caption = Source Source.Visible = False End Sub La etiqueta 5 Private Sub Label5_DragDrop(Source As Control, X As Single, Y As Single) Label5.Caption = Source Source.Visible = False End Sub 2

Prof. Adriana Montero Materia: Programación I La etiqueta 6 Private Sub Label6_DragDrop(Source As Control, X As Single, Y As Single) Label6.Caption = Source Source.Visible = False End Sub

El botón Iniciar Private Sub Command1_Click() Label4.Caption = "" Label5.Caption = "" Label6.Caption = "" Label7.Caption = "" Label1.Visible = True Label2.Visible = True Label3.Visible = True Call azar End Sub El botón Resultado Private Sub Command2_Click() If Val(Label4.Caption) < Val(Label5.Caption) And Val(Label5.Caption) < Val(Label6.Caption) Then Label7.Caption = "Bien" Else Label7.Caption = "Mal" End If End Sub El botón Salir Private Sub Command3_Click() Unload Me End End Sub El formulario Private Sub Form_Load() Randomize Call azar End Sub

3