Question

vbs中，怎么将字符串中，每个字符的ascii码值+1？

比如字符串"Test"，将字符'T','e','s','t'的ascii值分别+1，然后返回+1后的字符串。
刚接触vbs，请大神提供下思路和相关函数即可，有代码最好，谢谢！

Answer 1

Private Sub Command1_Click()

s = "Test"

For i = 1 To Len(s)

Mid(s, i, 1) = Chr(Asc(Mid(s, i, 1)) + 1)

Next i

Print s

End Sub

Answer 2

获取每一位的ASCII，加一后再一个一个拼起来

Answer 3

字符的ascii值，
asc("A")，该值为65
chr(65) 该值为A