VBNET简易计算器制作与实现

简易计算器的实现： 图形及代码如下 ：Option Strict OffOption Explicit OnImports VB = Microsoft.VisualBasicPublic Class Form1 Inherits System.Windows.Forms.Form Dim x, y, z As Double Dim oper As Char Dim i As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = 0 y = 0 z = 0 oper = i = 0 End Sub 数字 Private Sub chiffre(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, B8.Click, B9.Click If Label1.Text = 0 Then Label1.Text = CStr(sender.text) Exit Sub Else If i = 1 Then Label1.Text = CStr(sender.text) i = 2 Else If i = 3 Then Label1.Text = CStr(sender.text) Label2.Text = i = 0 Else Label1.Text = Label1.Text & CStr(sender.text) End If End If End If End Sub 小数点 Private Sub deci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deci.Click If i = 0 Then If InStr(Label1.Text, .) = 0 Then Label1.Text = Label1.Text & . End If Else If i = 1 Then Label1.Text = 0 i = 2 Else If i = 2 Then If InStr(Label1.Text, .) = 0 Then Label1.Text = Label1.Text & . End If Else If i = 3 Then Label1.Text = 0 Label2.Text = i = 0 End If End If End If End If End Sub 正负号 Private Sub pm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pm.Click If Val(Label1.Text) 0 Then Label1.Text = - + Label1.Text Else Label1.Text = -Val(Label1.Text) End If End Sub 运算符 Private Sub operation(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mult.Click, div.Click, plus.Click, minus.Click x = Val(Label1.Text) oper = CStr(sender.text) i = 1 Label2.Text = Label1.Text + CStr(sender.text) End Sub 加减乘除运算 Private Sub egale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles egale.Click If y = 0 Then y = Val(Label1.Text) End If If oper = / Then z = x / y x = z Label1.Text = z ElseIf oper = - Then z = x - y x = z Label1.Text = z ElseIf oper = * Then z = x * y x = z Label1.Text = z ElseIf oper = + Then z = x + y x = z Label1.Text = z End If If oper = / And y = 0 Then Label1.Text = 除数不能为零 End If Label1.Text = z Label2.Text = i = 3 End Sub 开平方根 Private Sub sqrt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sqrt.Click Label2.Text = sqrt( & Label1.Text & ) Label1.Text = System.Math.Sqrt(Val(Label1.Text) i = 3 End Sub 百分号% Private Sub perc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pec.Click If i = 0 Then Label1.Text = 0 Else If i = 2 Then y = Val(Label1.Text) / 100 * x Label1.Text = y Label2.Text = x & oper & y End If End If End Sub 倒数 Private Sub pe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pe.Click y = Val(Label1.Text) Label2.Text = reciproc( & Label1.Text & ) If Label1.Text 0 Then y = 1 / y Label1.Text = CStr(y) Else Label1.Text = 除数不能为零 End If i = 3 End Sub 退格 Private Sub back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS.Click If Len(Label1.Text) 1 Then Label1.Text = Microsoft.VisualBasic.Left(Label1.Text, Len(Label1.Text) - 1) Else Label1.Text = 0 End If End Sub 重新输入CE Private Sub dele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CE.Click Label1.Text = 0 If i = 1 Then i = 2 End If End Sub 全部清空C Priva