设计具有简单四则运算功能的计算器.

设计具有简单四则运算功能的计算器.

Dim s As StringDim A As DoubleDim B As DoubleDim C As DoubleDim run As IntegerDim steps As IntegerPrivate 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 IfEnd SubPrivate Sub Form_Load()    Dim i As Integer    For i = 0 To 5        steps = 0    NextEnd SubPrivate Sub kongCmd_Click(Index As Integer)    s = ""    A = 0    Text1 = ""End SubPrivate 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 SubPrivate Sub pCmd_Click(Index As Integer)'运算符号+-*/^    If steps = 1 Or steps = 2 Then        steps = 2        run = Index        s = ""    End IfEnd Sub张志晨：绝对是我自己编写出来的.