11 lines
249 B
Text
11 lines
249 B
Text
|
Public Sub Form_Open()
|
||
|
|
Dim sChar As String
|
||
|
|
|
||
|
|
sChar = InputBox("Enter a character")
|
||
|
|
Print "Character " & sChar & " = ASCII " & Str(Asc(sChar))
|
||
|
|
|
||
|
|
sChar = InputBox("Enter a ASCII code")
|
||
|
|
Print "ASCII code " & sChar & " represents " & Chr(Val(sChar))
|
||
|
|
|
||
|
|
End
|