一、题目:
要求编写一段代码,运用Chr函数将ASCII值转换为对应的字符。
二、代码:
Sub 示例_1_02()
Dim myChar1$, myChar2$
myChar1 = Chr(69) ' 返回 E。
myChar2 = Chr(101) ' 返回 e。
[a1] = "myChar1= ": [b1] = myChar1
[a2] = "myChar2= ": [b2] = myChar2
End Sub
三、代码详解
1、Sub 示例_1_02():宏程序的开始语句。
2、Dim myChar1$, myChar2$:变量myChar1和myChar2声明为字符串变量。
也可以写为 Dim myChar1 As String 。String 之字符码的范围是 0 到 255。字符集的前 128 个字符(0 到 127)对应于标准的 U.S. 键盘上的字符与符号。这前 128 个字符与 ASCII 字符集中所定义的相同。后 128 个字符(128 到 255)则代表特殊字符,例如国际字符,重音符号,货币符号及分数。String 的类型声明字符为美元号 ($)。
3、myChar1 = Chr(69):把Chr(69)的值赋给变量myChar1。这里返回大写字母E。
Chr函数根据字符代码返回一个字符。
语法
Chr(charcode)
必要的 charcode(字符代码) 参数是用来识别某字符的。
4、myChar2 = Chr(101):把Chr 函数的值赋给变量myChar2。这里返回小写字母e。
5、[a1] = "myChar1= ": [b1] = myChar1:把字符串“myChar1= “赋给A1单元格,把变量myChar1的值赋给B1单元格。
6、[a2] = "myChar2= ": [b2] = myChar2:把字符串“myChar2= “赋给A2单元格,把变量myChar2的值赋给B2单元格。
7、End Sub:程序的结束语句,和“Sub示例_1_02()”相对应。