如何用VB编翻译程序

翻译一下这段VB程序~

私人StoredValue双重

私人康斯特opNone = 0
私人康斯特opAdd = 1
私人康斯特opSubtract = 2
私人康斯特opMultiply = 3
私人康斯特opDivide = 4
私人经营者为整数

作为民营NewEntry布尔

'删除最后一个字符。
私人小组DeleteCharacter （ ）
作为暗淡文本字符串
昏暗min_len为整数

文本= txtDisplay.Text
如果左$ （文本， 1 ） = “ -”然后
min_len = 2
其他的
min_len = 1
如果完

如果莱昂（ txt ）的“ min_len然后
左txtDisplay.Text = $ （ txt文件，长度（文本） -1 ）
其他的
txtDisplay.Text = “ 0 ”
如果完
小组完

'清除当前的输入，保存价值和运营商。
私人小组cmdClear_Click （ ）
cmdClearEntry_Click
StoredValue = 0
算子= opNone
小组完

'清除当前的条目。
私人小组cmdClearEntry_Click （ ）
txtDisplay.Text = “ ”
小组完

'添加一个小数点的显示。
私人小组cmdDecimal_Click （ ）
如果仪表（ txtDisplay.Text ， “ 。 ” ）然后
响铃
其他的
如果NewEntry然后
txtDisplay.Text = “ 。 ”
NewEntry =假
其他的
txtDisplay.Text = txtDisplay.Text ＆ “ 。 ”
如果完
如果完
小组完

'计算的结果，以前的运作。
私人小组cmdEquals_Click （ ）
昏暗new_value双重

如果txtDisplay.Text = “ ”然后
new_value = 0
其他的
new_value = CDbl （ txtDisplay.Text ）
如果完
选择经营情况
案例opNone
StoredValue = new_value
案例opAdd
StoredValue = StoredValue + new_value
案例opSubtract
StoredValue = StoredValue -n ew_value
案例opMultiply
StoredValue = StoredValue * new_value
案例opDivide
StoredValue = StoredValue / new_value
最终选择
算子= opNone
NewEntry =真
格式txtDisplay.Text = $ （ StoredValue ）
小组完

'添加一个编号，以显示。
私人小组cmdNumber_Click （指数为整数）
如果NewEntry然后
格式txtDisplay.Text = $ （指数）
NewEntry =假
其他的
txtDisplay.Text = _
txtDisplay.Text与格式$ （指数）
如果完
小组完

'准备施行手术。
私人小组cmdOperator_Click （指数为整数）
'执行以前的运作。
cmdEquals_Click

请记住此操作。
算子=指数

'启动一个新的价值。
NewEntry =真
小组完
'的价值变化的迹象。
私人小组cmdPlusMinus_Click （ ）
如果NewEntry然后
txtDisplay.Text = “ -”
elseif的左$ （ txtDisplay.Text ， 1 ） = “ -”然后
权txtDisplay.Text = $ （ txtDisplay.Text ， 2 ）
其他的
txtDisplay.Text = “ -” ＆ t xtDisplay.Text
如果完
小组完

私人小组Command1_Click （ ）

小组完

私人的Sub命令 20_Click()
如果 Text49.文本 =1 然后
Text22.Text=Val(Label14. 说明)+1
结束如果
如果 Text49.文本 =2 然后
Text22.Text=Val(Label14. 说明)+3
结束如果
分类 14 。说明 = Text22.文本
使 X 暗淡, 如完整的事物 Y
X= 分类 14.说明
Y= 分类 14.说明
选择情形 X
情形是 >0
命令 11 。BackColor= vbRed

结束选择
选择情形 Y
情形是 <0
命令 11 。BackColor=&H8000000 F
结束选择
结束Sub

私人的Sub命令 35_Click()
使如完整的事物 m 暗淡
m= 命令 35.说明
如果分类 23.TabIndex=12 然后
分类 23 。说明 = 分类 23.说明 & m
结束如果
如果分类 24.TabIndex=12 然后
分类 24 。说明 = 分类 24.说明 & m
结束如果
如果分类 25.TabIndex=12 然后
分类 25 。说明 = 分类 25.说明 & m
结束如果
如果分类 26.TabIndex=12 然后
分类 26 。说明 = 分类 26.说明 & m
结束如果
如果分类 27.TabIndex=12 然后
分类 27 。说明 = 分类 27.说明 & m
结束如果
如果分类 28.TabIndex=12 然后
分类 28 。说明 = 分类 28.说明 & m
结束如果
如果分类 29.TabIndex=12 然后
分类 29 。说明 = 分类 29.说明 & m
结束如果
如果分类 30.TabIndex=12 然后
分类 30 。说明 = 分类 30.说明 & m
结束如果
如果分类 31.TabIndex=12 然后
分类 31 。说明 = 分类 31.说明 & m
结束如果
如果分类 32.TabIndex=12 然后
分类 32 。说明 = 分类 32.说明 & m
结束如果
如果分类 33.TabIndex=12 然后
分类 33 。说明 = 分类 33.说明 & m
结束如果
如果分类 34.TabIndex=12 然后
分类 34 。说明 = 分类 34.说明 & m
结束如果
如果分类 35.TabIndex=12 然后
分类 35 。说明 = 分类 35.说明 & m
结束如果
如果分类 36.TabIndex=12 然后
分类 36 。说明 = 分类 36.说明 & m
结束如果
如果分类 37.TabIndex=12 然后
分类 37 。说明 = 分类 37.说明 & m
结束如果
如果分类 38.TabIndex=12 然后
分类 38 。说明 = 分类 38.说明 & m
结束如果
如果分类 39.TabIndex=12 然后
分类 39 。说明 = 分类 39.说明 & m
结束如果
如果分类 40.TabIndex=12 然后
分类 40 。说明 = 分类 40.说明 & m
结束如果
结束Sub

私人的Sub命令 37_Click()
分类 19 。说明 =""
分类 20 。说明 =""
分类 21 。说明 =""
分类 23 。说明 =""
分类 24 。说明 =""
分类 25 。说明 =""
分类 26 。说明 =""
分类 27 。说明 =""
分类 28 。说明 =""
分类 29 。说明 =""
分类 30 。说明 =""
分类 31 。说明 =""
分类 32 。说明 =""
分类 33 。说明 =""
分类 34 。说明 =""
分类 35 。说明 =""
分类 36 。说明 =""
分类 37 。说明 =""
分类 38 。说明 =""
分类 39 。说明 =""
分类 40 。说明 =""
结束Sub

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

---

昌乐县18276683571： 如何用VB编翻译程序 - ？
在春先定： 我建议使用text文件,汉字之间不用分隔符,不分行,直接按照你的顺序放进去就好了(但注意,不能乱顺序,不能少字!) 然后使用下面的代码. Const 标题 = ＂代码翻译成汉字＂ Dim 汉字表 As String Private Sub Command1_Click() Dim ...

昌乐县18276683571： 用VB编写一个能把英文单词翻译成中文单词的程序怎么编写 - ？
在春先定： 用google api

昌乐县18276683571： VB怎么做汉译英程序 - ？
在春先定： 有个看似简单的方法 把庞大的中英对照数据库,然后在VB里用调用数据库的编程语句写程序就行了.

昌乐县18276683571： vb怎么做翻译软件? - ？
在春先定： 先以空格分割单词,再将单词与实现做好的数据库中的数据对比并提取相应的翻译.记得采纳啊

昌乐县18276683571： 怎么样用VB编译一个英汉小字典,只要能够查询单词,即选中一个单词,在textbox里就能显示其意思,不慎感谢 - ？
在春先定： public type dictionary english as string chinese as string end type private dic() as dictionary'定义一个字典,然后赋值 private sub form_load redim dic(10) dic(0).english=＂access＂ dic(0).chinese=＂vt. 存取;接近;使用＂ & vbcrlf & ＂n. 通路;进...

昌乐县18276683571： 求用vb编写一个'文字翻译成代码'的软件 - ？
在春先定： 两个批处理 第一输入的 color d echo off echo. 两次输入内容 set /p dosname=请输入内容:echo %dosname%>>test.txt set /p dosname=请输入内容:echo %dosname%>>test.txt pause ———————————————————— 保存成批处理...

昌乐县18276683571： 用VB如何制作简单的编译器? - ？
在春先定： 首先你得 知道什么是 编译原理 如果没上过这门课的话劝你还是别研究了涉及到很多专业知识的 至少至少你得知道什么是 “自动机”、“产生式”... 此外还有各种算法 不是一句两句就能说清的当然 如果硬要做编译器你可以试着 练下你的 逻辑、思考能力课题:算术表达式求值 内容:输入任意算术表达式 由简单机械步骤 算出其结果

昌乐县18276683571： 如何用VB读取十六进制文件,并翻译为中文？
在春先定： 读取的话,你就可以逐行读出来,然后两个16进制字符做成一个字节: 比如十六进制A,B char c; c = A * 16 + B; 如果你读到的是字符'A','B' 那么就要换算一下,对应的16进制值.比如'A'对应A(10). 至于翻译成中文,这个要看你使用哪种编码了 有ANSI,Uicode等

昌乐县18276683571： VB2005怎么编译程序？
在春先定： 先新建项目,再添加源文件,最后才能编译

昌乐县18276683571： VB2010怎样编译程序? - ？
在春先定： 菜单栏上 生成 -生成解决方案(F6) 调试的时候已经生成(debug) 一般生成的文件在我的文档里面 或者直接在 解决方案资源管理器 右击项目 在windows资源管理器文件夹打开 bin 目录下