设计具有简单四则运算功能的计算器.
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/07 09:33:46
设计具有简单四则运算功能的计算器.
设计具有简单四则运算功能的计算器.
设计具有简单四则运算功能的计算器.
Dim s As String
Dim A As Double
Dim B As Double
Dim C As Double
Dim run As Integer
Dim steps As Integer
Private Sub dengCmd_Click(Index As Integer)
'结果与显示
If steps = 3 Then
Select Case run
Case 1
C = A + B
Case 2
C = A - B
Case 3
C = A * B
Case 4
C = A / B
Case 5
C = A ^ B
End Select
Text1 = C
A = C
s = ""
steps = 1
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 5
steps = 0
Next
End Sub
Private Sub kongCmd_Click(Index As Integer)
s = ""
A = 0
Text1 = ""
End Sub
Private Sub numCmd_Click(Index As Integer)
'数A 和 数B
If steps = 0 Or steps = 1 Then
steps = 1
If Index = 10 Then
s = s & "."
Else
s = s & Index
End If
Text1.Text = s & " "
A = Val(s)
ElseIf steps = 2 Or steps = 3 Then
steps = 3
If Index = 10 Then
s = s & "."
Else
s = s & Index
End If
Text1.Text = s & " "
B = Val(s)
End If
End Sub
Private Sub pCmd_Click(Index As Integer)
'运算符号+-*/^
If steps = 1 Or steps = 2 Then
steps = 2
run = Index
s = ""
End If
End Sub
张志晨：绝对是我自己编写出来的.
