例026 输出ASCII码表 1.案例说明 目前计算机中用得最广泛的字符集及其编码,是由美国国家标准局(ANSI)制定的ASCII码。ASCII码由8位二进制组成,一共可包含 256个符号。本例使用循环语句输出ASCII中.的可见字符,如图所示。 2.关键技术 使用Do..Loop 循环时,可以不知道循环的具体次数。如果知道循环的次数,可以使用 For..Next循环语句来执行循环。For 循环的语法如下: For循环变量=初始值To终值[step 步长值] 语句序列1 [Exit For] [语句序列2] Next [循环变量] 在For循环中使用循环变量来控制循环,每重复一次循环之后,循环变量的值将与步长值相加。步长值可正可负,如果步长值为正,则初始值必须小于等于终值,才执行循环体,否则退出循环。如果步长值为负,则初始值必须大于等于终值,这样才能执行循环体。如果 没有设置Step,则步长值默认为1。For-Next 循环结构的流程图如图3-28所示。For循环一般都可计算出循环体的执行次数,计算公式如下: 循环次数=[(终值- 初值) /步长值]+1 这里用中括号表示取整。 在事先不知道循环体需要执行多少次时,应该用Do循环。而在知道循环体要执行的次数时,最好使用For...Next循环。 3.编写代码 (1) 新建Excel工作簿,按快捷键“Alt+F11”进入VBE环境。 (2)单击菜单“插入/模块”命令向工程中插入-一个模块。 (3)在模块中编写以下子过程: Sub ASCII() Dim a, i As Integer i = 2 For a = 32 To 126 Cells(i, 1) = a Cells(i, 2) = Chr(a) i = i + 1 Next End Sub (4)返回Excel操作环境,向工作表中插入-一个按钮,为按钮指定执行上步创建的宏。 (5)单击按钮,得到如图所示的结果。 |
|