复制代码 代码如下:

x=InputBox("请输入字符","提示","Test")

If Len(x)<>0 then

For i=1 To Len(x)

WScript.echo "字符 [" & Mid(x,i,1) & "] ANSI代码为: " & Asc(Mid(x,i,1))

Next

Else

MsgBox "请输入英文字符",64,"提示"

End if