1、首先打开VB
2、双击进入代码界面，将加载事件改为单击事件
3、chr是幻踔佐曝返回ASCII的函数，在代码界面输入代码Private Sub Form_Click() Dim k As Integer, i As Integer '定义变量Print "" '打印到屏幕 For k = 32 To 126 '一个for循环 Print Tab(8 * i + 2); Chr(k); "="; k; 'chr是返回ASCII码的函数 i = i + 1 If i = 7 Then i = 0: Print Next kEnd Sub
4、执行结果
