用VB编写程序，找出编码为33～127所对应的字符

来源：百度知道编辑：UC知道时间：2024/06/16 22:08:02

Private Sub Command1_Click()
Me.Cls
Dim i As Long
For i = 33 To 127
Print i & ":" & Chr(i)
Next i
End Sub

Private Sub Command1_Click()
Cls
Dim i As Integer
For i=33 To 127
Print i & ":" & Chr(i), '打印出所需的信息
If i-1 Mod 5=0 Then Print '控制换行
Next i
End Sub