计算器VB代码

我用VB下了这样一段代码，可是56+8计算出来结果是7，加、减、乘运算全部是除的结果，除的运运算是乘的结果。加（选项按钮）名称为Js1，减为Js2，依此类推。输入数值一（TextBox)名称为Numbox1，输入数值二的TextBox名称为Numbox2，结果显示的Textbox名称是Resultbox。“计算”按钮的名称是Run。请各位指教。
Private Sub Js1_Click()
Fuhao.Caption = "＋"
End Sub

Private Sub Js2_Click()
Fuhao.Caption = "－"
End Sub

Private Sub Js3_Click()
Fuhao.Caption = "×"
End Sub

Private Sub Js4_Click()
Fuhao.Caption = "÷"
End Sub

Private Sub Run_Click()
Dim Number1 As Single, Number2 As Single, Result As Single
Number1 = Numbox1.Text
Number2 = Numbox2.Text
If Js1.Value = Ture Then
Result = Number1 + Number2
End If
If Js2.Value = Ture Then
Result = Number1 - Number2
End If
If Js3.Value = Ture Then
Result = Number1 * Number2
End If
If Js4.Value = Ture Then
If Number2 = "0" Then
MsgBox "除数不能为零"
Else
Result = N

求VB计算器代码 计算器VB代码 VB计算器代码 求一个VB计算器代码 谁知道人品计算器VB代码? 急求VB计算器代码 我的vb计算器代码 紧急！垂泣跪求VB简易计算器代码！ 求一个VB简易计算器代码 用VB编计算器的代码是什么?