vb2010实验报告-计算器的制作与实现(2)

strdx(1) = strdx(0) strdx(0) = \

Else : Select Case calcount1 Case \

strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = \ calcount1 = \ End Select End If End Sub

Private Sub subtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subtract.Click If calcount1 = \ Then calcount1 = \ strdx(1) = strdx(0) strdx(0) = \

Else : Select Case calcount1 Case \

strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0)))

strdx(0) = \ calcount1 = \ End Select End If End Sub

Private Sub four_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles four.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub five_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles five.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \

output.Text = strdx(0) End If End Sub

Private Sub multiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiply.Click If calcount1 = \ Then calcount1 = \ strdx(1) = strdx(0) strdx(0) = \

Else : Select Case calcount1 Case \

calcount2 = \ strdx(2) = strdx(0) strdx(0) = \ Case \

calcount2 = \ strdx(2) = strdx(0) strdx(0) = \ Case \

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = \ calcount1 = \ End Select End If End Sub

Private Sub divide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles divide.Click If calcount1 = \ Then calcount1 = \ strdx(1) = strdx(0) strdx(0) = \

Else : Select Case calcount1 Case \

calcount2 = \ strdx(2) = strdx(0) strdx(0) = \ Case \

calcount2 = \

strdx(2) = strdx(0) strdx(0) = \ Case \

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = \ calcount1 = \ Case \

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = \ calcount1 = \ End Select End If End Sub

Private Sub seven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seven.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub eight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eight.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub nine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nine.Click If strdx(0) = \ Then strdx(0) = \

output.Text = strdx(0) & \ ElseIf strvalue = False Then strdx(0) = strdx(0) & \ output.Text = strdx(0) & \ Else

strdx(0) = strdx(0) & \ output.Text = strdx(0) End If End Sub

Private Sub kai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kai.Click output.Text = \ End Sub

Private Sub guan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guan.Click Me.Close() End Sub

Private Sub output_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles output.TextChanged End Sub End Class

五、实验结果及截图：

1、单击工具栏中的“启动调试（F5）”按钮，运行程序。 2、单击工具栏中的“on”按钮，文本框显示数据“0.”，如下图所示：

3、实现加法运算（27+31=58）：输入数据“27”，点击“+”按钮，再输入数据“31”，按下“=”按钮，文本框显示运算结果“58”，具体过程如下图所示：