VB 输出所有Ascii字符和对应的编码

Private Sub Picture1_Click()
Dim asc As Integer, i%
Picture1.Print " ASC码对照表"
For asc = 32 To 126
Picture1.Print Tab(8 * i + 2); Chr(asc); "="; asc; '8表示每项占8列
i = i + 1
If i = 7 Then i = 0: Picture1.Print '每行显示7项
Next asc
End Su