利用VB语言设计编程简易计算器，要求实现简单的加、减、乘、除计算操作。

Answer 1

Option Explicit
Dim a As Integer, b As Integer, c As Integer, d As StringPrivate Sub cmd_0_Click()
txt_jg.Text = txt_jg.Text & "0"
End SubPrivate Sub cmd_1_Click()
txt_jg.Text = txt_jg.Text & "1"
End SubPrivate Sub cmd_2_Click()
txt_jg.Text = txt_jg.Text & "2"
End SubPrivate Sub cmd_3_Click()
txt_jg.Text = txt_jg.Text & "3"
End SubPrivate Sub cmd_4_Click()
txt_jg.Text = txt_jg.Text & "4"
End SubPrivate Sub cmd_5_Click()
txt_jg.Text = txt_jg.Text & "5"
End SubPrivate Sub cmd_6_Click()
txt_jg.Text = txt_jg.Text & "6"
End SubPrivate Sub cmd_7_Click()
txt_jg.Text = txt_jg.Text & "7"
End SubPrivate Sub cmd_8_Click()
txt_jg.Text = txt_jg.Text & "8"
End SubPrivate Sub cmd_9_Click()
txt_jg.Text = txt_jg.Text & "9"
End SubPrivate Sub cmd_cheng_Click()
a = Val(txt_jg.Text)
txt_jg.Text = txt_jg.Text & "*"
txt_jg.Text = ""
d = "*"
End SubPrivate Sub cmd_chu_Click()
a = Val(txt_jg.Text)
txt_jg.Text = txt_jg.Text & "/"
txt_jg.Text = ""
d = "/"
End SubPrivate Sub cmd_clear_Click()
txt_jg.Text = ""
End SubPrivate Sub cmd_denghao_Click()
b = Val(txt_jg.Text)
If d = "+" Then
c = a + b
ElseIf d = "-" Then
c = a - b
ElseIf d = "*" Then
c = a * b
ElseIf d = "/" Then
c = a / b
End If
txt_jg.Text = c
End SubPrivate Sub cmd_jia_Click()
a = Val(txt_jg.Text)
txt_jg.Text = txt_jg.Text & "+"
txt_jg.Text = ""
d = "+"
End SubPrivate Sub cmd_jian_Click()
a = Val(txt_jg.Text)
txt_jg.Text = txt_jg.Text & "-"
txt_jg.Text = ""
d = "-"
End Sub
望采纳，这个是仿windows的计算器

Answer 2

我这有个模子，可能要根据你的需要改动下

Answer 3

Dim a As Single, b As Single, x As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
Label4.Caption = x
Private Sub Command1_Click()
x = a + b
End Sub

Private Sub Command2_Click()
x = a - b
End Sub

Private Sub Command3_Click()
x = a * b
End Sub

Private Sub Command4_Click()
x = a / b
End Sub

Private Sub Command5_Click()
Label4.Caption = ""
End Sub