Visual basic 6.0 (practica resueltas)

  Aprende a Sumar
                              [pic]
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 Wordcrea 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 casoAzar 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 azarText1.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
EndSub

 Ordenar los Números
                         [pic]
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 laesquina 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 Subazar()
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 SubLabel5_DragDrop(Source As Control, X As Single, Y As Single)
Label5.Caption = Source
Source.Visible = False
End Sub
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 = Trae
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 SubForm_Load()
Randomize
Call azar
End Sub

  Fecha Escrita
                                      [pic]
Crea un formulario con cinco etiquetas, tres cajas de texto, un marco, tres botones y escribe el siguiente código:
El botón Convertir
Private Sub Command1_Click()
Dim cadmes As String, mes As Integer
mes = Val(Text2)
Select Case mes
Case 1: cadmes = "Enero"
Case 2: cadmes = "Febrero"
Case 3:...