'filename："Asc&Chr?Converter?v1.0.vbs"
'writer：t0nsha??????@071028???WinXPSP2測試通過！
'Email：tunhsiaATgmail.com
'Blog:http://blog.csdn.net/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

總結

以上是生活随笔為你收集整理的Ascamp;Chr Converter v1.0.vbs的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。