Problema de programación básica de VB, urgente
Subcomando privado1_Click()
Atenuar A(9) como cadena, n como entero, R como cadena
A(0) = "LING": A(1) = "YI": A(2) = "ER": A(3) = "SAN": A(4) = "SI"
A(5) = "WU" : A(6) = "LIU": A(7) = "QI": A(8) = "BA": A(9) = "JIU"
n = InputBox("Por favor, introduzca Un número entero (dentro de 1000): ")
Seleccione el caso Len(Str(n))
Caso 2
R = A(n)
Caso 3
Si n < 20 Entonces
R = "SHI" + A(n Mod 10)
Si no
R = A(n\10) + "SHI" + A(n Mod 10)
Finalizar si
Si (n Mod 10 = 0) Y (n <> 0) Entonces R = Izquierda(R, Len(R) - 4)
Caso 4
Si n Mod 100 = 0 Entonces
R = A( n \ 100) + "BAI"
De lo contrario, si n Mod 10 = 0, entonces
R = A(n \ 100) + "BAI" + A(n \ 10 Mod 10) + "SHI"
ElseIf (n \ 10) Mod 10 = 0 Entonces
R = A(n \ 100) + "BAI" + "LING" + A(n Mod 10)
De lo contrario
R = A(n \ 100) + "BAI" + A(n \ 10 Mod 10) + "SHI" + A(n Mod 10)
Fin Si
Fin Seleccionar
Imprimir n
Fin Sub