Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB para convertir números arábigos en caracteres chinos

Programación VB para convertir números arábigos en caracteres chinos

Preparar el control Text1 y el control Label1

Private Sub Form_Load()

Text1 = ""

Label1.AutoSize = True< / p>

End Sub

Sub privado Text1_Change()

Dim strCh como cadena, temp como cadena, i como entero

strCh = "cero Uno , dos, tres, cuatro, cinco, seis, siete, ocho, nueve"

temp = ""

For i = 1 To Len(Text1)

temp = temp amp; Mid (strCh, CInt(Mid(Text1, i, 1)) 1, 1)

Etiqueta1.Caption = temp

End Sub

Sub privado Text1_KeyPress(KeyAscii como entero)

Seleccione caso KeyAscii

Caso vbKeyBack

Texto1 = ""

El caso es lt; Asc("0")

KeyAscii = 0

El caso es gt; KeyAscii = 0

Fin de selección

Fin de sub