Índice

Solución 4.4 Mostrar un mensaje según la edad y el sexo

Sub SuEdad()  
    Dim strHombre As String * 1 
    Dim strMujer  As String * 1 
    Dim intEleccionSexo As Integer 
    Dim dblEdad As Double 
    Dim varTestEntradaEdad As Variant 
    intEleccionSexo = MsgBox("¿Es usted un hombre?", _ 
    vbYesNo, "Su edad") 
    If intEleccionSexo = vbYes Then 
        varTestEntradaEdad = InputBox("¿Qué edad tiene?", , 0) 
        If varTestEntradaEdad <> " " Then 
     ...