VB 的ASCII码

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 k

End Sub

4、执行结果