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

新建工程，添加文本框1个，按钮一个，文本框搞长点，不然显示不下
Private Sub Command1_Click()
Dim i As Long
Text1.Text = ""

For i = 33 To 127
Text1.Text = Text1.Text & Chr(i)
Next
End Sub

Private Sub Form_Activate()
For i = 33 To 127
b = b + 1
Print i & Space(2) & Chr(i) & Space(3);
If b = 6 Then
Print: b = 0
End If
Next i
End Sub

Dim i as Integer
For i = 33 to 127
Msgbox Chr(i)
Next