用vb制作翻譯器

私有函數get usercar(InCar as string)as string

選擇案例實例

案例“y”:get user car = " k "

案例“t”:get user car = " r "

案例“w”:get user car = " q "

。

妳可以以後再加。

。

其他情況

GetUserCar=Incar

結束選擇

結束功能

這就完成了輸入字符串的分解和生成。

私有函數GetPassCar(UserInStr as string)作為字符串

字符串形式的dim Temp

暗淡我壹樣長

temp=space(len(UserInStr))

for i=1到len(UserInStr)

mid(Temp，I，1)= get user car(mid(user instr，I，1))

然後

GetPassCar=Temp

結束功能

好吧！妳想要的都準備好了！當妳使用它的時候，就調用它。

如妳所說。

text 2 . text = GetPassCar(text 1 . text)

去做吧。

方法有很多！妳可以考慮壹下。

如果妳正在尋找我使用的函數GetUserCar，妳也可以使用字符。

Asc代碼按位置構建數組。

chrarray(256)作為string *1

例如:

asc("y")' 121

chr array(ASC(" y ")= " k "

。

。

。