|
ASC码对照表（Chr函数的使用）
Private Sub Picture1_Click()
Dim asc As Integer, i As Integer
Picture1.Print " ASCII码对照表"
For asc = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asc); "="; asc;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asc
End Sub
Chr函数
返回 String，其中包含有与指定的字符代码相关的字符 。
语法：Chr(charcode)
charcode 参数是一个用来识别某字符的 Long。
说明：
0 到 31 之间的数字与标准的非打印 ASCII 代码相同。例如，Chr(10) 可以返回换行字符。charcode 的正常范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。
注意 ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含 Unicode 的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。
****术语：
1：Long 数据类型
4 字节的整型值，取值范围从 -2,147,483,648 到 2,147,483,647。在 Visual Basic中可用符号 (&) 的类型声明字符来表示 Long。
2：ASCII 字符集
美国信息交换用标准码 (ASCII) 7 位字符集，用来表示标准美制键盘上的字母及符号。与 ANSI 字符集的前 128 字符 (0 – 127) 相同。
3：Unicode
国际标准化组织 (ISO) 字符标准。Unicode 使用 16 位 (2 字节) 编码方案，允许 65,536 个不同的字符空间。Unicode 包含标点符号、数学符号、修饰符号等的表示。
4：DBCS
使用 1 或 2 字节来表示一字符的字符集，超过个 256 字符也可表示
****例：本示例使用 Chr 函数来返回指定字符码所代表的字符。
Dim MyChar
MyChar = Chr(65) ' 返回 A。
MyChar = Chr(97) ' 返回 a。
MyChar = Chr(62) ' 返回 >。
MyChar = Chr(37) ' 返回 %。 |
