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!"