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 ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online