Het omzetten van cijfers om woorden lijkt misschien tegen onze intuïtie , maar eigenlijk alle letters , cijfers en leestekens worden als getallen opgeslagen door de computer intern . Dat betekent dat je normale nummers zoals " 41 " in hun brief equivalenten ( 41 is het nummer dat wordt gebruikt om de letter " A " te slaan ) kan omzetten . Visual Basic 6 biedt een eenvoudige " Chr " functie om getallen om te zetten in hun brief equivalenten , wat het makkelijk maakt om lijsten van getallen te verwerken in woorden maakt . Instructies
1 Neem de reeks getallen je krijgt , en leg vervolgens in een array . Bijvoorbeeld als je de getallen 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 dan zou je schrijven op de top van uw conversie functie :
Dim nummers ( ) als Variant nummers
= Array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 ) op Twitter Copy 2 en plak de volgende code na de code hierboven om een nieuwe reeks te maken: Dim secretMessage
als String = " "
voor i = 0 To
numbers.Count secretMessage = secretMessage & Chr ( nummers ( i ) ) volgende
Kopieer en plak de volgende code in een evenement functie om de geheime boodschap " Visual Basic & rdquo zien
3 , pop-up : MsgBox secretMessage
|
