如何用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