控制结构（27）

例6.27  编程打印ASCII编码表，仅输出可显示的ASCII字符和对应的ASCII编码。

设计步骤如下：

(1) 建立应用程序用户界面。

新建工程，在窗体上添加2个命令按钮控件Command1、Command2，将它们的Caption属性设置为“显示”、“退出”。

 (2)编写代码

编写“显示”命令按钮Command1的Click事件代码：

Private Sub Command1_Click()

Dim asc As Integer, i As Integer

Print "          ASCII编码对照表"

For asc = 32 To 126

Print Tab(7 * i + 1); Chr(asc); "="; asc;

i = i + 1

If i = 5 Then i = 0: Print

Next asc

End Sub

编写“退出”命令按钮Command2的Click事件代码：

Private Sub Command2_Click()

End

End Sub

(3)运行程序

按【F5】健或单击工具栏上“启动”按钮运行程序。