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 1-
Fixed 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() [Link] = False
n1 = Int(Rnd * 10) + 1 End Sub
n2 = Int(Rnd * 10) + 1 El botón Revisar
[Link] = n1 Private Sub Command2_Click()
[Link] = n2 If Val(Text1) = Val(Label1) + Val(Label2) Then
End Sub [Link] = "Bien"
Haz doble clic en el formulario [Link] = True
y escribe el siguiente código: Else
[Link] = "Mal"
Private Sub Form_Load() [Link] = False
Randomize [Link] = True
Call azar End If
[Link] = False End Sub
[Link] = False El botón Salir
End Sub Private Sub Command3_Click()
El botón Otra Suma Unload Me
Private Sub Command1_Click() End
Call azar End Sub
[Link] = ""
[Link] = ""
[Link] = False-
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
[Link] = n1
[Link] = n2
[Link] = n3
Else
Exit Sub
End If
End Sub
La etiqueta 4
Private Sub Label4_DragDrop(Source As Control, X As Single, Y As Single)
[Link] = Source
[Link] = False
End Sub
La etiqueta 5
Private Sub Label5_DragDrop(Source As Control, X As Single, Y As Single)
[Link] = Source
[Link] = 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)
[Link] = Source
[Link] = False
End Sub
El botón Iniciar
Private Sub Command1_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
[Link] = True
[Link] = True
Call azar
End Sub
El botón Resultado
Private Sub Command2_Click()
If Val([Link]) < Val([Link]) And Val([Link]) <
Val([Link]) Then
[Link] = "Bien"
Else
[Link] = "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