VB计算器程序代码.doc

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 S