Ingrese un número de tres dígitos en el cuadro de texto, luego ejecute el formulario en una computadora independiente e imprima el número de dígitos, decenas y centenas del número en el formulario de programación vb.
text1 se utiliza para ingresar un número de tres dígitos
El código es el siguiente:
Privado
Sub
Form_Click()
Imprimir
"El primer dígito es:"
&
Val(Text1.Text)
Mod
10
Imprimir
"El dígito de las decenas es:"
&
Val (Texto1.
10
Mod
10
Imprimir
"El dígito de las centenas es:"
&
p>Val(Texto1.Text)
100
Fin
Sub".