Question

怎么把VB中的把ASC码转换成字符

我把字符转换成ASC码以后每个码加上一个值，现在要把加完后的值减回去，再转成字符，这要怎么弄？
Private Sub Command1_Click()
mm$ = ""
n = Len(Text1.Text)
For i = 1 To n
b$ = Mid$(Text1.Text, i, 1)
c$ = Asc(b$) - 10
mm$ = mm$ & c$
Next
Label1.Caption = mm$
End Sub
这是转成ASC码以后的，再转回字符我就不会了，高手赐教

Answer 1

Asc(string)
返回值： Integer
返回字符串中第一个字符的字符代码。
提示: Chr 函数可以将一个Ascii码转换为相对应的字符

Answer 2

Private Sub Command1_Click()
mm$ = ""
n = Len(Text1.Text)
For i = 1 To n
b$ = Mid$(Text1.Text, i, 1)
c$ = chr（Asc(b$) - 10）
mm$ = mm$ & c$
Next
Label1.Caption = mm$
End Sub
这样就好了

追问

b$值直接就是ASC码啊

追答

MID$返回的是asc码？

还是说其他的？

没听明白。

追问

我的意思是Mid$的值b$已经是asc码了，我要把它加上一个数值再转成字符

追答

mid$读出来的不是asc码吧？

像这样：

a$=mid$("aaaaa",1,1)

a$的值为"a"才对。

不信你试试。

追问

我的意思是把有效的asc码的值给Mid$，再转换成字符

追答

我还是没听明白？

是这样吗？

得到一句文本，把文本里的每个字符的asc码减去10，然后输出这个新文本？

我明白了，就是说mm$是一串ASC码组成的字符串，要把这串字符串在加上10还原成原文本？

我觉的你开始的代码转换回去的难度很大，因为有不同的理解，如243851，可以理解为24-38-51，也可以理解为2438-51等等，我觉得改成改成这样有实现的可能：

For i = 1 To n
b$ = Mid$(Text1.Text, i, 1)
c$ = Asc(b$)
mm$ = mm$ & c$ &“ ”
Next

用空格区分。