如何用VB编翻译程序

我建议使用text文件，汉字之间不用分隔符，不分行，直接按照你的顺序放进去就好了（但注意，不能乱顺序，不能少字！）

然后使用下面的代码。

Const 标题 = "代码翻译成汉字"

Dim 汉字表 As String

Private Sub Command1_Click()

Dim 代码 As Integer

'排除错误的输入

If Not IsNumeric(Text1) Then 'text内容不是数字

MsgBox "你输入的不是十进制代码！" &vbCrLf &"请重新输入。", vbCritical, 标题

Text1 = ""

Exit Sub

End If

If Len(Text1) >4 Then '代码太长

MsgBox "你输入代码太长！" &vbCrLf &"请重新输入。", vbCritical, 标题

Text1 = ""

Exit Sub

End If

代码 = Int(Text1)

If 代码 >9999 Or 代码 <0 Then '超出范围

MsgBox "你输入代码没有对应的汉字！有效代码0~9999" &vbCrLf &"请重新输入。", vbCritical, 标题

Text1 = ""

Exit Sub

End If

'其他的输入错误我不知道还会有什么？你自己加在这里

Text2 = Mid(汉字表, 代码 + 1, 1) '唉，有效代码就是这一行！其他都是陪衬

End Sub

Private Sub Form_Load()

'界面安排

Command1.Caption = "翻译"

Text1 = ""

Text2 = ""

Text1.Move 300, 600, 1000, 500

Text2.Move 1500, 600, 1000, 500

Command1.Move 900, 1500, 1000, 500

Height = 3500

Width = 2900

Caption = 标题

'读入汉字表

Open App.Path &"\汉字表.txt" For Input As #1

Input #1, 汉字表

Close #1

End Sub

Private Sub Text1_Change()

Text2 = ""

End Sub

'检查正常的字符。

私人小组Form_KeyPress （ KeyAscii为整数）

txtDisplay_KeyPress KeyAscii

小组完

'检查是否有不寻常的字符。

私人小组Form_KeyUp （键码为整数，转变为整数）

txtDisplay_KeyUp键码，移

小组完

'保持光标的权利。

私人小组txtDisplay_Change （ ）

txtDisplay.SelStart =长度（ txtDisplay.Text ）

小组完

'保持光标的权利。

私人小组txtDisplay_GotFocus （ ）

txtDisplay_Change

小组完

'检查正常的字符。

私人小组txtDisplay_KeyPress （ KeyAscii作为整数）

昏暗通道作为字符串

染色体的CH = $ （ KeyAscii ）

选择病例路

案例“ 0 ”

cmdNumber_Click 0

案例“ 1 ”

cmdNumber_Click一日

案“ 2 ”

cmdNumber_Click第2

案“ 3 ”

cmdNumber_Click三

案“ 4 ”

cmdNumber_Click第4

案“ 5 ”

cmdNumber_Click五日

案“ 6 ”

cmdNumber_Click 6日

案“ 7 ”

cmdNumber_Click 7日

案“ 8 ”

cmdNumber_Click 8日

案“ 9 ”

cmdNumber_Click 9日

案例“ * ” ， “ × ” ， “ X ”的

cmdOperator_Click opMultiply

案例“ + ”

cmdOperator_Click opAdd

案例vbCrLf ， vbCr ， “ = ”

cmdEquals_Click

案例“ -”

cmdOperator_Click opSubtract

案“ 。 ”

cmdDecimal_Click

案例“ / ”

cmdOperator_Click opDivide

判例的“ C ” ， “ C ”类

cmdClearEntry_Click

最终选择

KeyAscii = 0

小组完

'检查是否有不寻常的字符。

私人小组txtDisplay_KeyUp （键码作为整数，移作为整数）

选取案例键码

案例vbKeyNumpad0

cmdNumber_Click 0

案例vbKeyNumpad1

cmdNumber_Click一日

案例vbKeyNumpad2

cmdNumber_Click第2

案例vbKeyNumpad3

cmdNumber_Click三

案例vbKeyNumpad4

cmdNumber_Click第4

案例vbKeyNumpad5

cmdNumber_Click五日

案例vbKeyNumpad6

cmdNumber_Click 6日

案例vbKeyNumpad7

cmdNumber_Click 7日

案例vbKeyNumpad8

cmdNumber_Click 8日

案例vbKeyNumpad9

cmdNumber_Click 9日

案例vbKeyMultiply

cmdOperator_Click opMultiply

案例vbKeyAdd

cmdOperator_Click opAdd

案例vbKeySeparator

cmdEquals_Click

案例vbKeySubtract

cmdOperator_Click opSubtract

案例vbKeyDecimal

cmdDecimal_Click

案例vbKeyDivide

cmdOperator_Click opDivide

案例vbKeyBack ， vbKeyDelete

DeleteCharacter

最终选择

键码= 0

小组完

---