欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

字符ANSI代码查询工具vbs版

程序员文章站 2022-08-27 14:58:38
复制代码 代码如下:x=inputbox("请输入字符","提示","test") if len(x)<>0 then for i=1 to len(x) ws...
复制代码 代码如下:

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