Question

如何用VB编翻译程序

我的问题是类似于翻译摩尔斯码。实际上就是将数字电报码，翻译成中文。比如：5324 5537 3322 6617 ……每一组代表一个中文单词或词组。在窗体上有两个文本框，将数字复制到第一个文本框，点击一下“翻译”按钮后，自动在第二个文本框显示出中文来。如果我已经有了每组数字所代表的中文含义的ini文件，一共有0000到9999一万个含义，下一步应该怎么做？我对VB一点不懂，请高手帮忙！

Answer 1

我建议使用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