VB里怎么把字符转成ASCII码啊？

cc="sadsad"
aa=""
do until len(cc)=0
aa=aa & asc(cc) & ","
cc=right(cc,len(cc)-1)
loop

aa中保存的就是ASCII码 串

do...loop是循环语句，len()是求字符串长度的函数，do until len(cc)=0意思是如果字符串的长度为0就不再执行do...loop之间的两行语句了。right()是截取子字符串函数，cc=right(cc,len(cc)-1)执行的结果是去掉最左边的一个字符。

你应该看一些VB的教程。

cc="sadsad"
aa=""
do until len(cc)=0
aa=aa & asc(cc) & ","
cc=right(cc,len(cc)-1)
loop

aa中保存的就是ASCII码串
do...loop是循环语句，len()是求字符串长度的函数，do until len(cc)=0意思是如果字符串的长度为0就不再执行do...loop之间的两行语句了。right()是截取子字符串函数，cc=right(cc,len(cc)-1)执行的结果是去掉最左边的一个字符。

Asc() 字符转成 ASCII码
chr() ASCII码 转成字符