PRACTICA 20 a la 24

PRACTICA 20
Manejo de operadores de manejo de fechas y estructuras de
selección
Objetivo: ​
Emplea  los  operadores  de  fechas  y  las  estructuras   de  control  de  selección 
mediante  el desarrollo  de  aplicaciones  que  le  permitan  visualizar  de  manera  integrada  una 
fecha dada. 
Elabora una aplicación que acepte fechas como tres números (dd, mm, aaaa) y las visualice del modo usual 

 

 
Código Fuente: 
Private Sub CmdAceptar_Click() 
    Dim CadMes As String, Mes As Integer 
Mes = Val(txtMes) Rem Comando para seleccionar entre un rango de opciones y evitar  el uso de IF anidado 
  Select Case Mes 
        Case 1:  CadMes = "Enero" 

Case 2:  CadMes = "Febrero" 
Case 3:  CadMes = "Marzo" 
Case 4:  CadMes = "Abril" 
Case 5:  CadMes = "Mayo" 
Case 6:  CadMes = "Junio" Case 7:  CadMes = "Julio" 
Case 8:  CadMes = "Agosto" 
Case 9:  CadMes = "Setiembre" 
        Case 10: CadMes = "Octubre" 
        Case 11: CadMes = "Noviembre" 
Case 12: CadMes = "Diciembre" 
Case Else             MsgBox "Error de datos...", vbCritical, "Mensaje" 
Call CmdLimpiar_Click 
Exit Sub 
    End Select 
lblFecha = txtDia & " de " & CadMes & " de " & txtAnno 
End Sub 
 
Private Sub CmdLimpiar_Click() txtDia = "" 
txtMes = "" 
txtAnno = "" 
txtDia.SetFocus 
End Sub 
Private Sub CmdSalir_Click() 
    If MsgBox("¿Desea terminar la aplicación?", vbQuestion + vbYesNo, "Pregunta") = 
vbYes Then           End 
    Else: Call CmdLimpiar_Click 
End If 
End Sub 
 
 

PRACTICA 21 
Manejo de estructuras de
repetición
Objetivo:  Emplea  las   estructuras  de  repetición,  mediante  el  desarrollo  de  aplicaciones de 
aplicaciones para controlar el flujo de la información. 
Elabora una aplicación que lea un número entero y muestre la tabla de multiplicar de dicho número. 

 
Código Fuente: Private Sub cmdSalir_Click() 
End 
End Sub 
Private Sub Command1_Click() 
TxtNumero = "": TxtTabla = "" 
    TxtNumero.SetFocus 

End Sub 
Private Sub TxtNumero_Change() ...