例: Chr function

Dim myAlph As String
Dim letterCode As Long
' Iterate through the character codes for "a" through "z".
' Build an alphabet string by concatenating the letters.
For letterCode& = Asc("a") To Asc("z")
   myAlph$ = myAlph$ & Chr$(letterCode&)
Next
Print myAlph$         ' Prints abcdefghijklmnopqrstuvwxyz