Programas Para Visual Basic

Ejercicio 1: Reloj y Calendario
Crea un formulario con cuatro etiquetas, un reloj con intervalo de 1000 y escribe el
siguiente código:
Private Sub Timer1_Timer()
Label2.Caption = TimeLabel4.Caption = Date
End Sub

Ejercicio 2: Tipo de Cambio
Crea un formulario con tres etiquetas, tres cajas de texto, cuatro botones y escribe
el siguiente código:
Escribe el siguiente código:
El botónVer Pesos
Private Sub Command1_Click()
Text1 = Val(Text2) * Val(Text3)
End Sub
El botón Ver Dólares
Private Sub Command2_Click()
Text2 = Val(Text1) / Val(Text3)
End Sub
El botón Nuevo CálculoPrivate Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command4_Click()
Unload Me
End
End Sub

Ejercicio 3: Concatenación
Creaun formulario con cuatro etiquetas, cuatro cajas de texto, tres botones y escribe el siguiente código:
El botón Concatenar Datos
Private Sub Command1_Click()
Text4 = Text1 & " " & Text2 & " " &Text3
End Sub
El botón Nuevos Datos
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub
El botón Salir del Programa
Private Sub Command3_Click()Unload Me
End
End Sub

Ejercicio 4: Alarma
Crea un formulario con tres etiquetas, dos cajas de texto, dos botones, un reloj con intervalo de 1000 y escribe el siguiente código:
El botón Establecerla Alarma y Minimizar
Private Sub Command1_Click()
Form1.WindowState = 1
Timer1.Enabled = True
End Sub
El botón Salir
Private Sub Command2_Click()
Unload Me
End
End Sub
El reloj
Private SubTimer1_Timer()
Dim horas As String
hora = Format(Time, "hh:mm")
If hora = Text1.Text Then
Beep
MsgBox Text2.Text, vbOKOnly + vbInformation, "Aviso de la Alarma"
Timer1.Enabled = FalseForm1.WindowState = 0
End If
End Sub

Ejercicio 5: Conversiones
Crea un formulario con dos etiquetas, dos cajas de texto, un marco, cuatro botones de opción, tres botones y escribe el siguiente código:...