Public Class Form1Public zt As IntegerPublic fh As IntegerPublic x, y As SinglePrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadzt = 1fh = 0TextBox1.Text = 0x = 0y = 0End SubPrivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 1zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 1ElseIf zt = 3 ThenTextBox1.Text = 1zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 1End IfEnd SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 2zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 2ElseIf zt = 3 ThenTextBox1.Text = 2zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 2End IfEnd SubPrivate Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 3zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 3ElseIf zt = 3 ThenTextBox1.Text = 3zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 3End IfEnd SubPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickIf zt = 2 Thenx = TextBox1.Textfh = 1zt = 3ElseIf zt = 3 Thenfh = 1End IfEnd SubPrivate Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickIf zt = 2 Thenx = TextBox1.Textfh = 3zt = 3ElseIf zt = 3 Thenfh = 3End IfEnd SubPrivate Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.ClickIf zt = 2 Thenx = TextBox1.Textfh = 2zt = 3ElseIf zt = 3 Thenfh = 2End IfEnd SubPrivate Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickIf zt = 2 Thenx = TextBox1.Textfh = 4zt = 3ElseIf zt = 3 Thenfh = 4End IfEnd SubPrivate Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Clickx = 0y = 0TextBox1.Text = 0fh = 0zt = 1End SubPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickIf zt = 4 Theny = TextBox1.TextIf fh = 1 ThenTextBox1.Text = x + yElseIf fh = 2 ThenTextBox1.Text = x - yElseIf fh = 3 ThenTextBox1.Text = x * yElseIf fh = 4 ThenTextBox1.Text = x / yEnd IfEnd IfPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 4zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 4ElseIf zt = 3 ThenTextBox1.Text = 4zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 4End IfEnd SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 5zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 5ElseIf zt = 3 ThenTextBox1.Text = 5zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 5End IfEnd SubPrivate Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 6zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 6ElseIf zt = 3 ThenTextBox1.Text = 6zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 6End SubPrivate Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 7zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 7ElseIf zt = 3 ThenTextBox1.Text = 7zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 7End IfEnd SubPrivate Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 8zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 8ElseIf zt = 3 ThenTextBox1.Text = 8zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 8End IfEnd SubPrivate Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 9zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 9ElseIf zt = 3 ThenTextBox1.Text = 9zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 9End IfEnd SubPrivate Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.ClickIf zt = 1 ThenTextBox1.Text = TextBox1.Text * 10 + 0zt = 2ElseIf zt = 2 ThenTextBox1.Text = TextBox1.Text * 10 + 0ElseIf zt = 3 ThenTextBox1.Text = 0zt = 4ElseIf zt = 4 ThenTextBox1.Text = TextBox1.Text * 10 + 0End IfEnd SubEnd Class。