谁能发给我用VB编的计算器的代码?谢谢了

Question

该计算器只需要和XP中自带的一样就行了
感激不尽

Answer 1

一个只能实现加，减，乘，除的代码：
Dim a As Double
Dim b As Double
Dim n As IntegerPrivate Sub cheng_Click(Index As Integer)
b = a
Text1.Text = a
a = 0
n = 3
End SubPrivate Sub chu_Click(Index As Integer)
b = a
Text1.Text = a
a = 0
n = 4
End SubPrivate Sub Command1_Click(Index As Integer)
a = 0
b = 0
Text1.Text = 0
End SubPrivate Sub jia_Click(Index As Integer)
b = a
Text1.Text = a
a = 0
n = 1
End SubPrivate Sub jian_Click(Index As Integer)
b = a
Text1.Text = a
a = 0
n = 2
End SubPrivate Sub num0_Click(Index As Integer)
a = a * 10
Text1.Text = a
End SubPrivate Sub num1_Click(Index As Integer)
a = a * 10 + 1
Text1.Text = a
End SubPrivate Sub num2_Click(Index As Integer)
a = a * 10 + 2
Text1.Text = a
End SubPrivate Sub num3_Click(Index As Integer)
a = a * 10 + 3
Text1.Text = a
End SubPrivate Sub num4_Click(Index As Integer)
a = a * 10 + 4
Text1.Text = a
End SubPrivate Sub num5_Click(Index As Integer)
a = a * 10 + 5
Text1.Text = a
End SubPrivate Sub num6_Click(Index As Integer)
a = a * 10 + 6
Text1.Text = a
End SubPrivate Sub num7_Click(Index As Integer)
a = a * 10 + 7
Text1.Text = a
End SubPrivate Sub num8_Click(Index As Integer)
a = a * 10 + 8
Text1.Text = a
End SubPrivate Sub num9_Click(Index As Integer)
a = a * 10 + 9
Text1.Text = a
End SubPrivate Sub result_Click(Index As Integer)
Select Case n
Case 1
a = a + b
Text1.Text = a
Case 2
a = b - a
Text1.Text = a
Case 3
a = a * b
Text1.Text = a
Case 4
If a = 0 Then
MsgBox "分母不能为0"
Else
a = b / a
Text1.Text = a
End If
End Select
End Sub