VB计算器程序代码

VB计算器程序代码 Public Class Form1 Public zt As Integer Public fh As Integer Public x, y As Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load zt = 1 fh = 0 TextBox1.Text = 0 x = 0 y = 0 End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 1 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 1 ElseIf zt = 3 Then TextBox1.Text = 1 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 1 End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 2 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 2 ElseIf zt = 3 Then TextBox1.Text = 2 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 2 End If End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 3 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 3 ElseIf zt = 3 Then TextBox1.Text = 3 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 3 End If End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If zt = 2 Then x = TextBox1.Text fh = 1 zt = 3 ElseIf zt = 3 Then fh = 1 End If End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click If zt = 2 Then x = TextBox1.Text fh = 3 zt = 3 ElseIf zt = 3 Then fh = 3 End If End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click If zt = 2 Then x = TextBox1.Text fh = 2 zt = 3 ElseIf zt = 3 Then fh = 2 End If End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click If zt = 2 Then x = TextBox1.Text fh = 4 zt = 3 ElseIf zt = 3 Then fh = 4 End If End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click x = 0 y = 0 TextBox1.Text = 0 fh = 0 zt = 1 End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click If zt = 4 Then y = TextBox1.Text If fh = 1 Then TextBox1.Text = x + y ElseIf fh = 2 Then TextBox1.Text = x - y ElseIf fh = 3 Then TextBox1.Text = x * y ElseIf fh = 4 Then TextBox1.Text = x / y End If End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 4 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 4 ElseIf zt = 3 Then TextBox1.Text = 4 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 4 End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 5 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 5 ElseIf zt = 3 Then TextBox1.Text = 5 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 5 End If End Sub Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 6 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 6 ElseIf zt = 3 Then TextBox1.Text = 6 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 6 End If End Sub Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 7 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 7 ElseIf zt = 3 Then TextBox1.Text = 7 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 7 End If End Sub Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 8 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 8 ElseIf zt = 3 Then TextBox1.Text = 8 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 8 End If End Sub Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 9 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 9 ElseIf zt = 3 Then TextBox1.Text = 9 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 9 End If End Sub Private Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click If zt = 1 Then TextBox1.Text = TextBox1.Text * 10 + 0 zt = 2 ElseIf zt = 2 Then TextBox1.Text = TextBox1.Text * 10 + 0 ElseIf zt = 3 Then TextBox1.Text = 0 zt = 4 ElseIf zt = 4 Then TextBox1.Text = TextBox1.Text * 10 + 0 End If End Sub End Class