Private Sub Command3_Click()
Open "c:\ASCII码与字符.txt" For Output As #1
Print #1, "ASCII码", "字符"
For i = 33 To 126
Print #1, i,
Print #1, Chr(i)
Next i
Close #1
Shell "notepad.exe c:\ASCII码与字符.txt", 1
'Kill "c:\ASCII码与字符.txt"
End Sub
Private Sub Command3_Click()
Open "c:\ASCII码与字符.txt" For Output As #1
Print #1, "ASCII码", "字符"
For i = 33 To 126
Print #1, i,
Print #1, Chr(i)
Next i
Close #1
Shell "notepad.exe c:\ASCII码与字符.txt", 1
'Kill "c:\ASCII码与字符.txt"
End Sub