private sub cmdcvt_click()
dim str,strascii,lenstr,temp
str=inputbox$("请输入要转换的字符：")
lenstr=len$(str)
for i=1 to lenstr
temp=mid$(str,i,1)
strascii=strascii & asc$(temp)
next
txtascii.text=strascii
end sub