Πώς να μετατρέψετε Digit σε Word σε Visual Basic 6.0

Μετατροπή ψηφία στα λόγια μπορεί να φαίνεται αντίθετος προς την πραγματικότητα , αλλά στην πραγματικότητα όλα τα γράμματα , οι αριθμοί , τα σημεία στίξης και αποθηκεύονται ως αριθμοί από τον υπολογιστή εσωτερικά. Αυτό σημαίνει ότι μπορείτε να μετατρέψετε κανονικούς αριθμούς όπως το " 41 " στην επιστολή τους ισοδύναμα ( 41 είναι ο αριθμός που χρησιμοποιείται για την αποθήκευση το γράμμα "Α" ) . Visual Basic 6 παρέχει ένα απλό " Χρ " για να μετατρέψετε τους αριθμούς στην επιστολή τους ισοδύναμα , το οποίο το καθιστά εύκολο να επεξεργαστεί τους καταλόγους των αριθμών σε λέξεις . Οδηγίες
Η 1

Πάρτε τη σειρά των αριθμών που σας δίνεται , και να μεριμνήσει , στη συνέχεια, σε μια σειρά . Για παράδειγμα, αν έχετε τους αριθμούς 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103, τότε θα γράψετε στην κορυφή της λειτουργίας μετατροπής σας :

Dim αριθμοί ( ) ως παραλλαγή

αριθμοί = Array ( 66 , 111 , 123 , 125 , 101 , 114 , 0 , 42 , 101 , 123 , 111 , 103 ) 2

Αντιγραφή και επικόλληση του παρακάτω κώδικα μετά τον παραπάνω κώδικα για να δημιουργήσει μια νέα σειρά :

Δημ. secretMessage ως String = " "

για i = 0 Για να numbers.Count

secretMessage = secretMessage & Chr ( αριθμοί ( i ) )

Επόμενο
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε μια συνάρτηση εκδήλωση για να δείτε το μυστικό μήνυμα " Visual Basic & rdquo ? pop up :

MsgBox secretMessage
Η
εικόνων