Public Class Form1
Dim x As Double
Dim y As Double
Private Sub cmdon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdon.Click
TextBox1.Text = TextBox1.Text + ""
End Sub
Private Sub cmd10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd10.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub
Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub
Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub
Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub
Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub
Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub
Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub cmdoff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoff.Click
End
End Sub
Private Sub cmdcheng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcheng.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x * y
End Sub
Private Sub cmdchu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdchu.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x / y
End Sub
Private Sub cmdjia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdjia.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub
Private Sub cmdjian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdjian.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x - y
End Sub
End Class
谁能帮我看下我这个错在哪里啊。
Dim x As Double
Dim y As Double
Private Sub cmdon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdon.Click
TextBox1.Text = TextBox1.Text + ""
End Sub
Private Sub cmd10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd10.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub
Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub
Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub
Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub
Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub
Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub
Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub cmdoff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoff.Click
End
End Sub
Private Sub cmdcheng_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcheng.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x * y
End Sub
Private Sub cmdchu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdchu.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x / y
End Sub
Private Sub cmdjia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdjia.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = TextBox1.Text + TextBox2.Text
End Sub
Private Sub cmdjian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdjian.Click
x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x - y
End Sub
End Class
谁能帮我看下我这个错在哪里啊。