用VB把字符转换为ASCII ascii转换为字符 如何将vb中的字符串转换成ascii码
作者&投稿：凌乖 （若有异议请与网页底部的电邮联系）
可使用Asc 函数将字符转换为ASCII，使用Chr 函数将ASCII转换为字符。
Asc 函数，返回一个 Integer，代表字符串中首字母的字符代码。
Asc 函数示例
本示例使用 Asc 函数返回字符串首字母的字符值（ASCII 值）。
Dim MyNumber
MyNumber = Asc("A") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
MyNumber = Asc("字符") ' 返回 -10282。
Chr 函数，返回 String，其中包含有与指定的字符代码相关的字符 。
Chr 函数示例
本示例使用 Chr 函数来返回指定字符码所代表的字符。
Dim MyChar
MyChar = Chr(65) ' 返回 A。
MyChar = Chr(97) ' 返回 a。
MyChar = Chr(62) ' 返回 >。
MyChar = Chr(-18437) ' 返回 符。
一、字符转ASCII码：code=ASC（strCHAR）
二、ascii转字符：strChar=CHR（code）
源码介绍： 任意字符的ASCII码转换工具，基于VB6的源代码，可以把任意字符（数字、字母、汉字）转化成ascii码，也可以把ascii码还原成最初的字符。转化后的的结果（注：每个字符之间用“/”间隔开）。
使用说明：一共三个大文本框，你也可以在第二个文本框输入ASCII码，点击还原后会还原回原来的内容，注意填写格式:/1/2/3/4
原理：举个例子，用asc("你")把“你”转化成ASCII码的值为：-15133 ， 用chr("-15133")把ASCII码值还原成“你”
Mid("hello", 5, 1),这个意思是：取hello中的值，5代表从第五个开始取,1代表取的值的长度。
下个软件，我学的不是本专业，没看懂，。
怎么把VB中的把ASC码转换成字符~
Asc(string)
返回值： Integer
返回字符串中第一个字符的字符代码。
提示: Chr 函数可以将一个Ascii码转换为相对应的字符
Dim i As Integer, str As String, ascstr As String
str = InputBox("请输入字符串")
For i = 1 To Len(str)
ascstr = ascstr & CStr(Asc(Mid(str, i, 1)))
Next i
Print ascstr
