1樓：_死亡狙擊手
public function convertstring(byval strtext as string)
dim stra as variant
stra = " -a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z-a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z"
stra = split(stra, "-")
for i = 0 to ubound(stra)
strtext = replace(strtext, stra(i), format(i, "00") & " ")
next i
convertstring = trim(strtext)
end function
將以上函式新增到模組中，然後使用**
text2.text = convertstring(text1.text)
就可以將text1中的內容轉換為數字並顯示到text2中
注意，我編寫的這個函式只會轉換英文字母和空格(你可以看看stra= "")，如果不是英文字母空格就會直接保留
用vb製作翻譯器
2樓：棘棘芽
這個函式就是完成你沒有規則的變換
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 *1eg:asc("y")' 121
chrarray(asc("y"))="k"...
3樓：放大天使
private sub command1_click()if text1.text= "y" thentext2.text= "k"
end if
if text1.text= "t" thentext2.text= "r"
end if
if text1.text="w" thentext2.text ="q"
end if
if text1.text= "ytw" thentext2.text ="krq"
end if
end sub
4樓：匿名使用者
private sub form_click()dim a(2, 1) as stringa(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函式查詢替換對應字元了
vb 如何做翻譯器？
5樓：劉越
以下均為本人親自做的：
1.首先新建一個模組(內容如下)
public cidian(50000, 2) as string '一個可以存放5萬的單詞的詞庫陣列
public nowwei as long '表示當前詞庫數目
public sub ctoe(view1 as object)
for i = 1 to nowwei step 1 '查詢(中文轉英文)
if view1.text = cidian(i, 1) then
msgbox (cidian(i, 2)) '顯示結果
exit sub
end if
next
msgbox ("無結果")
end sub
public sub etoc(view1 as object)
for i = 1 to nowwei step 1 '查詢(英文轉中文)
if view1.text = cidian(i, 2) then
msgbox (cidian(i, 1)) '顯示結果
exit sub
end if
next
msgbox ("無結果")
end sub
public sub addcidian(chinese as string, english as string) '增加詞典
nowwei = nowwei + 1
cidian(nowwei, 1) = chinese
cidian(nowwei, 2) = english
end sub
2.使用函式
你可以在指定的地方使用以下函式：
(1)etoc(view1 as object) '查詢(英文轉中文)
view1是使用者輸入框
(2)ctoe(view1 as object) '查詢(中文轉英'查詢(英文轉中文)
view1是使用者輸入框
(3)addcidian(chinese as string, english as string)'增加詞典
chinese 是中文
english 是英文
3.例子：
private sub command1_click()
call ctoe(text1)
end sub
private sub command2_click()
call etoc(text1)
end sub
private sub form_load()
call addcidian("測試", "test") '增加3條詞典
call addcidian("你", "you")
call addcidian("你好嗎", "how are you")
end sub
希望能夠對你有幫助
vb怎麼做中英文翻譯器？請提供**和所需要檔案！ 70
6樓：匿名使用者
採用資料庫，比較方便：
先談談簡單思路：
把所有單詞，放入一個資料表，只要2個欄位，英文，中文。
然後，在窗體上新增2個文字框，1個按鈕。
2個文字框，1個用來處理英文，另1個用來處理中文當輸入英文，單擊按鈕，就到資料表查詢，若找到，就顯示中文，若沒找到就顯示「錯誤提示」
當輸入中文，單擊按鈕，就到資料表查詢，若找到，就顯示英文，若沒找到就顯示「錯誤提示」
這是最簡單的思路：
當單詞不斷增加，可以分別以第1個字母為表名，建立多個表；還可以建立索引；等等方法。
VB 用函式實現1 2！ 3！
private sub form click dim i,j as integer dim temp,answer as doublefor i 1 to 10 temp 1 for j i to 1 step 1temp temp j next j answer answer tempnext i...
求簡單的VB作業，求用VB解答
題目都沒有，如何寫，瞎寫嗎？寫 x y z 嗎？dim b as integer private sub command1 click if 123456 falseprint hello falseelsemsgbox 密碼錯誤 1 b b 1 if b 3 then msgbox 你沒有機會了 ...
excel用vb實現，ABC列為每行有數字若干行，DE1是公式判斷，返回0和1,當為0時不再往下計算
d列為0，不再往下計算d列資料，e列為0,不再往下計算e列資料。還是d為0，則d,e列相同行的下面均不計算，或者e為0，de列相同行均不往下計算 還是d為0，且e為0，才不計算下面的？很難分別你的意思。sub mysub dim i as integer end sub 直接計算出再判斷不是更好？下...