Hur konvertera siffran till ord i Visual Basic 6.0

Konvertera siffror till ord kan tyckas motsägande , men egentligen alla bokstäver , siffror och skiljetecken lagras som tal av datorn internt . Det innebär att du kan konvertera vanliga siffror som ” 41 ” i sin skrivelse motsvarigheter ( 41 är antalet används för att lagra bokstaven ” A ”) . Visual Basic 6 är en enkel ” Chr ” funktion att konvertera tal till sin skrivelse motsvarigheter , vilket gör det enkelt att bearbeta listor med tal i ord
1 .
Ta serie siffror du gett , och ordna sedan i en matris . Till exempel om du har numren 66 , 111, 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 Då skulle du skriva på toppen av din konvertering funktion :

Dim tal () som Variant

tal=array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 )
2 .
Kopiera 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 till siffror. Räkna

secretMessage=secretMessage Chr ( nummer ( i) )

Nästa
3 .
Kopiera och klistra in följande kod till ett evenemang funktionen för att se det hemliga meddelandet ” Visual Basic ” dyka upp :

MsgBox secretMessage

tips och varningar