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
谁能帮我看下我这个错在哪里啊。

运算时错了,比如TextBox3.Text = x * y,x和y是文字,运算要数字,利用函数转化为整型后计算,计算后得到的值再转化为string,然后付给文本框的.text属性

楼上说的方向是对的。问题应该会处在字符转换上。

水一下，还差3经验就5级了哎，复制在水一个楼主，工工工工

顶着一个