想做一个ASCII转换程序
在Text1中输入一组任意的字符，在Text2将其转化为十进制ASCII码，但在显示的ASCII值是第一位转换的字符在输出的数据上+0第二位加1.…………第N位加N－1
Dim i As Integer
Dim j As Integer
Dim X As Integer
Dim a As Double, t1 As String, t2 As String
Dim t4 As String, t5 As String, t6 As String, t7 As String



Private Sub Command1_Click()
If Text1 <> "" Then
Timer1.Enabled = True
Else
MsgBox "请输入内容！", 48, "提示"
End If
End Sub

Private Sub Command2_Click()
If Text2 <> "" Then
Timer2.Enabled = True
Else
MsgBox "请输入内容！", 48, "提示"
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10 '设置转化每个数据的时间
Timer2.Enabled = False
Timer2.Interval = 10 '设置还原每个数据的时间
X = 0
End Sub

Private Sub Timer1_Timer()
t1 = Text1.Text
t2 = Text2.Text
t3 = Text3.Text
t4 = Text4.Text
'For j = 0 To 9
Text3.Text = Asc(Mid(Text1.Text, Len(Text1.Text) - i, 1) + 1)
Text2.Text = Text3 + "，" + Text2
i = i + 1
If i >= Len(Text1.Text) Then
Timer1.Enabled = False
End If
'Next j
End Sub

Private Sub Timer2_Timer()
X = X + 1
a = Split(Text2.Text, "，")
Text3 = Chr(a(X))
Text4 = Text4 + Text3 '这里如果text4=text4+text3就会倒着输出
If X >= Len(Text1) Then
Timer2.Enabled = False
End If
End Sub

一个ASCII转换的程式，但输出的值比原ASCII大1，且输出的每增加一位其值又加上相应的位数，如输入的每一位+0，第二位加1………第N位+N-1，举例：输入123ABC，输出为50，52，54，69，71，73.输入1111由输出为50，51，52，53，经常有混合输入但，输出均为十进制ASCII码
Dim i As Integer
Dim X As Integer
Dim a() As String
 
Private Sub Command1_Click()
If Text1 <> "" Then
i = 0
Text2 = ""
Timer1.Enabled = True
Else
MsgBox "请输入内容！", 48, "提示"
End If
End Sub
  
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Text3.Text = Asc(Mid(Text1.Text, Len(Text1.Text) - i, 1) + 1) + Len(Text1.Text) - i - 1
Text2.Text = Text3 + "，" + Text2
i = i + 1
If i >= Len(Text1.Text) Then
Timer1.Enabled = False
End If
End Sub

运行结果为：只能输入数字不能输入字母及符号，当输入9时出现49，应该是58的，恳求解决下为谢

谢谢，我在去试试，以后要多多请教你们。