Question

如何在vb中，当Text1输入一个数（或字母）时，按Command1,Text2为另一个数（或字母）？

例如，当Text1输入a，按Command1，Text2为3；当Text1输入b，按Command1，Text2为5……以此类推。各位帮帮忙啊！！！

Answer 1

Private Sub Command1_Click()
Dim a() As String
Dim b() As String
ReDim a(Len(Text1.Text) - 1) As String
ReDim b(Len(Text1.Text) - 1) As String
For i = 0 To Len(Text1.Text) - 1
a(i) = Mid(Text1.Text, i + 1, 1)
Next
For i = 0 To UBound(a)
b(i) = (Asc(a(i)) - 96) * 2 + 1
Text2.Text = Join(b, "")
Next
End Sub

Answer 2

Private Sub Command1_Click()
Text2.Text = (Asc(Text1.Text) - 96) * 2 + 1
End Sub

追问

能Text1输入ab时，Text2为35吗？或者当a代表12345，b代表6789，即无规律时，如何编写？？？拜托了！！！！！！！

追答

1.能Text1输入ab时，Text2为35吗？
这个我想可以这样，你先把text1赋值给一个字符型变量（假如a）,然后分解出一个个字母赋值给一个数组变量，调用一个转换的程序function（代码参照上面），再用连接符&把转换好的连接起来，存放到text2中，就可以了
2.或者当a代表12345，b代表6789，即无规律时，如何编写？？？
这个没有规律是啥意思？？c,d等其他字母随便赋值？？那可以参照上面一个问题，只不过在转换程序function中重新定义一下，代码不一样罢了