Programación VB: ingrese un número entero y determine si el número es un número negativo, un número de un dígito, un número de dos dígitos o un número de tres dígitos o más.
Subcomando privado1_Click()
Dim x
x = Val(InputBox("Ingrese un número", , -500))
Si x > 0 Entonces
MsgBox x & "Sí" & Len(CStr(x)) & "Número positivo"
ElseIf x < 0 Entonces
MsgBox x & "es" & Len(CStr(Abs(x))) & "número negativo"
Else
MsgBox x & "es 0" p >
Finalizar si
Finalizar sub