Konvertera siffror till ord kan verka kontraproduktivt intuitivt , men faktiskt alla bokstäver , siffror och skiljetecken lagras som tal med datorn internt . Det innebär att du kan konvertera vanliga tal som " 41 " i sina brev ekvivalenter ( 41 är det nummer som används för att lagra bokstaven " A " ) . Visual Basic 6 ger en enkel " Chr " -funktion för att konvertera tal till sin skrivelse motsvarigheter , vilket gör det enkelt att bearbeta listor med siffror till ord . Instruktioner
1
Ta nummerserie du ges , och arrangerar sedan i en matris . Till exempel om du har siffrorna 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 då du skulle skriva på toppen av din konvertering funktion :
Dim siffror () As
Variant
tal = Array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 )
2
Copy och klistra in följande kod efter att koden ovan för att skapa en ny sträng :
Dim secretMessage som String = " "
för i = 0 att numbers.Count
secretMessage = secretMessage & Chr ( nummer ( i) ) katalog
Nästa
3
Kopiera och klistra in följande kod i en händelse funktion för att se det hemliga meddelandet " Visual Basic & rdquo , dyker upp :
MsgBox secretMessage
