Asc&Chr Converter v1.0.vbs

'filename："Asc&Chr Converter v1.0.vbs"
'writer：t0nsha      @071028   WinXPSP2测试通过！
'Email：tunhsiaATgmail.com
'Blog:http://blog.youkuaiyun.com/t0nsha/
On Error Resume Next
Function Ascii(arg)
    if(IsNumeric(arg)) Then
        Ascii=Chr(arg)
    Else
        Ascii=Asc(arg)
    End If
End Function
Do
arg = InputBox("使用说明："&VbCrLf& "输入字符求asc码，输入asc码求字符，求数字asc码请在数字后加字母（如：输入a得97，输入97得a，输入9a得9的asc码57），仅单字符转换。","Asc&Chr Converter v1.0")
if not IsEmpty(arg) Then MsgBox(arg & " is converted to:" &Ascii(arg))
Loop Until IsEmpty(arg)

 

转载于:https://www.cnblogs.com/zlja/archive/2007/10/28/2449206.html