建一个中间变量就可以了。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
t = Replace(t, "a", "1")
t = Replace(t, "b", "2")
t = Replace(t, "c", "3")
Text2.Text = t
End Sub
不需要用replace啊
dim a as string,b as string,i as integer
for i=1 to len(text1.text) step 1
a=mid(text1.text,i,1)
select case a
case "a"
a=1
case "b"
a=2
case "c"
a=3
end select
b=b & a
next i
text2.text=b
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024