vb编程，ASCII转换问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 21:16:35
制作一个按钮，后面可以输入一串字符，首先将输入的字符转换成十进制的ASCII码，再将ASCII码加上一个数字，比如加10，然后将结果转换回一串字符，最后在输入框内显示结果

请高手给出编程代码，要能运行出来的小程序
VB不太懂，可能语言表达的不太清楚

分有的是
单个字符，比如123456，分别转换1，2，3，4，5，6

Private Sub Command1_Click()
Dim TempStr As String, i As Integer
For i = 1 To Len(Text1)
TempStr = TempStr & Chr(Asc(Mid(Text1, i, 1)) + 10)
Next
Text2 = TempStr
End Sub

Private Sub Form_Load()
Text1 = "123456"
End Sub

dim a as string
dim n as string
n=""
for i=1 to len(text1.text)
a=trim(left(text1.text,i,1))
n=n+chr(asc(a)+10)
next i
text1.text=n
这是每个都加一下，如果只是再后面加个字符也一样！
dim a as string
dim n as srting
n=""
for i =1 to len(text1.text)
a=trim(left(text1.text,i,1))
n=n&a+"....."
next i
如果你是给密码加密的话，最好不要+自定义的字符，加ASC码
dim a as string
dim n as string
n=""
for i= 1 to len(text1.text)
a =trim(left(text1.text,i,1))
n=n+a+asc(65+i)
next i
text1.text=n

一串字符的asc码+ 10还是单个？描述有问题？

////////////////////字符串
Private Sub Comman