谁能写个VB代码是 计算机的加减乘除的

谁能写个VB代码是 计算机的加减乘除的

这个没有用按钮
用输入计算 你可以设置成 button 就可以

Private Sub Command1_Click() '清零
Text3.Text = ""
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click() '计算器加计算
If Val(Text1.Text) > 0 Then
Text3.Text = Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "+" & Val(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command4_Click() '计算器减计算
If Val(Text1.Text) > 0 Then
Text3.Text = -Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "-" & Val(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command5_Click()
If Val(Text1.Text) > 0 Then
If Text3.Text = "" Then
Text3.Text = Text1.Text
Else
Text3.Text = Val(Text1.Text) * Val(Text3.Text)
End If
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "×" & Val(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command6_Click()
If Val(Text1.Text) > 0 Then
If Text3.Text = "" Then
Text3.Text = Text1.Text
Else
Text3.Text = Val(Text3.Text) / Val(Text1.Text)
End If
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "÷" & Val(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '计算器计算
If Val(Text1.Text) > 0 Then '输入数据有效
If Text2.Text = "" Then
If KeyCode = vbKeyReturn Then '计算器加计算
Text3.Text = Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text1.Text
Text1.Text = ""
End If
If KeyCode = vbKeySpace Then '计算器减计算
Text3.Text = -Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "-" & Val(Text1.Text)
Text1.Text = ""
End If
Else
If KeyCode = vbKeyReturn Then '计算器加计算
Text3.Text = Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "+" & Val(Text1.Text)
Text1.Text = ""
End If
If KeyCode = vbKeySpace Then '计算器减计算
Text3.Text = -Val(Text1.Text) + Val(Text3.Text)
Text3.Text = Format(Text3.Text, "0.00")
Text2.Text = Text2.Text & "-" & Val(Text1.Text)
Text1.Text = ""
End If
End If
End If
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub
仅供参考

Sub test() Dim a As Integer a = (12 + 2 * 3) / 6 - 2 MsgBox a End Sub

vc我会

新建 text1.text text1.text = Val(Text1.Text) + "2" '就是 text1.text 中的数值 加 2 text1.text = Val(Text1.Text) - "2" '就是 text1.text 中的数值 减 2 text1.text = Val(Text1.Text) * "2" '就是 text1.text 中的数值 乘 2 text1.text = Val(Text1.Text) / "2" '就是 text1.text 中的数值 除 2