用vb制作翻译器

这个函数就是完成你没有规则的变换
private function GetUserCar(InCar as string) as string
Select case Incar
case "y":GetUserCar="k"
case "t":GetUserCar="r"
case "w":GetUserCar="q"
' .
' .可以接着加
' .
case else
GetUserCar=Incar
end select
end function
这个完成你输入字符串分解与生成
private function GetPassCar(UserInStr as string) as string
dim Temp as string
dim i as long
temp=space(len(UserInStr))
for i=1 to len(UserInStr)
mid(Temp,i,1)=GetUserCar(mid(UserInStr,i,1))
next
GetPassCar=Temp
end function
好了！你要的作用都好了！你用的时候只要调用一下就好了
如你说的
text2.text=GetPassCar(text1.text)
就行了
方法很多！想下也可以
如果查找的是也就是我用的GetUserCar这个函数你也可以用字符的
Asc码按位置建一个数组
chrarray(256) as string *1
eg:
asc("y")' 121
chrarray(asc("y"))="k"
.
.
.

private sub command1_click()
if text1.text= "y" then
text2.text= "k"
end if
if text1.text= "t" then
text2.text= "r"
end if
if text1.text="w" then
text2.text ="q"
end if
if text1.text= "ytw" then
text2.text ="krq"
end if

end sub

Private Sub Form_click()
Dim a(2, 1) As String
a(0, 0) = "y"
a(1, 0) = "t"
a(2, 0) = "w"

a(0, 1) = "k"
a(1, 1) = "r"
a(2, 1) = "q"
strt = Text1.Text
For j = 0 To UBound(a, 1)
strt = Replace(strt, a(j, 0), a(j, 1))
Next
text2.Text = strt
End Sub

鉴于你要翻译的字符没有什么规律 只好这样一一对应 用replace函数查找替换对应字符了