小型计算器(有图有程序).docVIP

Dim a, b, result As Double Dim c As Boolean Dim d, e As Integer Private Sub Command1_Click() If c = True Then b = Val(Str(b) 1) Label1 = b Else a = Val(Str(a) 1) Label1 = a End If End Sub Private Sub Command11_Click() result = a ^ (1 / 3) Label1 = result a = 0 End Sub Private Sub Command12_Click() c = True d = 3 End Sub Private Sub Command13_Click() c = True d = 2 End Sub Private Sub Command14_Click() c = True d = 1 End Sub Private Sub Command15_Click() c = True d = 4 End Sub Private Sub Command16_Click() result = Sqr(a) Label1 = result a = 0 End Sub Private Sub Command17_Click() result = a ^ 3 Label1 = result a = 0 End Sub Private Sub Command18_Click() result = a ^ 2 Label1 = result a = 0 End Sub Private Sub Command19_Click() If c = True Then b = 3.1415625 Label1 = b Else a = 3.1415625 Label1 = a End If End Sub Private Sub Command2_Click() If c = True Then b = Val(Str(b) 2) Label1 = b Else a = Val(Str(a) 2) Label1 = a End If End Sub Private Sub Command20_Click() If d = 1 Then result = a + b End If If d = 2 Then result = a - b End If If d = 3 Then result = a * b End If If d = 4 Then If b = 0 Then e = 1 Else result = a / b End If End If If e = 1 Then Label1.Caption = 3?′í e = 0 Else Label1 = result c = False a = 0 b = 0 End If End Sub Private Sub Command21_Click() If c = True Then b = 0 Label1 = b Else a = 0 Label1 = a End If End Sub Private Sub Command3_Click() If c = True Then b = Val(Str(b) 3) Label1 = b Else a = Val(Str(a) 3) Label1 = a End If End Sub Private Sub Command4_Click() If c = True Then b = Val(Str(b) 4) Label1 = b Else a = Val(Str(a) 4) Label1 = a End If End Sub Private Sub Command5_Click() If c = True Then b = Val(Str(b) 5) Label1 = b Else a = Val(Str(a) 5) Label1 = a End If End Sub Private Sub Command6_Click() If c = True Then b = Val(Str(b) 6) Label1 = b Else a = Val(Str(a) 6) Label1 = a End If End Sub Private Sub Command7_Click() If c = True Then b = Val(Str(b) 7) Label1 = b Else a = Val(Str(a) 7) Label1 = a End If End Sub Private Sub