Chr 函数

返回与指定的 ANSI 字符代码关联的字符。

语法

Chr(charcode)

注释

charcode 参数是用于标识字符的数字。0 到 31 之间的数字与标准的不可打印 ASCII 代码相同。例如，Chr(10) 返回换行符。

以下示例使用 Chr 函数返回与指定字符代码关联的字符：

以下示例说明了 Chr 函数的用法：

示例 1：

Dim MyChar
MyChar = Chr(65)   ' Returns 'A'.
'Output: 'A’

示例 2：

MyChar = Chr(97)   ' Returns 'a'.
'Output: 'a’

示例 3：

MyChar = Chr(62)   ' Returns '>'.
'Output: '>’

示例 4：

MyChar = Chr(37)   ' Returns '%'.
'Output: '%’

示例 5：

Dim LineFeed, CarriageReturn
LineFeed = Chr(10)   ' Returns a linefeed character.
CarriageReturn = Chr(13)   ' Returns a carriage return character.
'LineFeed contains value as Line Feed
'CarriageReturn contains value as Carriage Return

示例 6：

Dim CombinedChars
CombinedChars = Chr(72) & Chr(101) & Chr(108) & Chr(108) & Chr(111)   ' Returns 'Hello'.
'Output: "Hello"

示例 7：

Dim SpecialChar
SpecialChar = Chr(64)  
'Output: '@’

示例 8：

SpecialChar = Chr(35)    ' Returns '#'.
'Output: '#’

示例 9：

Dim WelcomeMessage
WelcomeMessage = "Welcome" & Chr(32) & "to" & Chr(32) & "VBScript!"   ' Inserts space using Chr(32).
'Output: "Welcome to VBScript!"