Ako previesť číslice do aplikácie Word v aplikácii Visual Basic 6.0

Prevod čísel na slová môžu zdať absurdné , ale v skutočnosti všetky písmená , číslice a interpunkčné znamienka sú uložené ako čísla v počítači interne . To znamená , že môžete previesť normálne čísla , ako je " 41 " do ich listu ekvivalenty ( 41 je číslo slúži k ukladaniu písmeno " A " ) . Visual Basic 6 poskytuje jednoduchú funkciu " Chr " pre prevod čísla k ich písmen ekvivalenty , ktoré umožňuje jednoduché spracovanie zoznamov čísel do slov . Pokyny dovolená 1

Vezmite rad čísel ste daný , a zabezpečiť potom do poľa . Napríklad , ak máte čísla 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 a potom by ste napísať v hornej časti konverzný funkcie :

Dim čísla ( ) As Variant

čísla = Array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 )
2

Copy a vložte nasledujúci kód po kóde vyššie uvedeného postupu vytvoriť nový reťazec :

Dim secretMessage ako String = " "

i = 0 numbers.Count

secretMessage = secretMessage & Chr ( čísla ( i ) )

Ďalšie
3

skopírujte a vložte nasledujúci kód do funkcie udalostí vidieť tajnú správu " Visual Basic & rdquo , pop - up :

MsgBox secretMessage

• Predchádzajúca strana: Popis jazyka 
• Ďalšia strana: Ako zmeniť Windows prihlásení v systéme Windows XP pomocou VB