请问，有谁能帮我修改一下代码，使得下面代码能显示出加减乘除的结果是否正确？

#2

lin20122011-03-30 14:18

If (Convert.ToInt16(TextBox1.Text) + Convert.ToInt16(TextBox2.Text) = Convert.ToInt16(TextBox3.Text)) or (Convert.ToInt16(TextBox1.Text) - Convert.ToInt16(TextBox2.Text) = Convert.ToInt16(TextBox3.Text)) or (Convert.ToInt16(TextBox1.Text) * Convert.ToInt16(TextBox2.Text) = Convert.ToInt16(TextBox3.Text)) or (Convert.ToInt16(TextBox1.Text) / Convert.ToInt16(TextBox2.Text) = Convert.ToInt16(TextBox3.Text)) or Then

#3

lin20122011-03-30 14:23

!!!!!!!!!!!!

#4

ljgbluesky2011-03-30 22:33

能把你做的界面也贴出来吗？

#5

lin20122011-03-31 15:14

只有本站会员才能查看附件，请登录

#6

lowxiong2011-04-10 09:55

  Inherits System.Web.UI.Page
    dim l as integer
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, m, op As Integer
        Dim x As New Random
        Label3.Text = ""
        n = Convert.ToInt16(100 * x.NextDouble())
        m = Convert.ToInt16(100 * x.NextDouble())
        TextBox1.Text = n.ToString()
        TextBox2.Text = m.ToString()
        op = Convert.ToInt16(1 + 3 * x.NextDouble())
        Select Case (op)
            Case 1
                Label1.Text = "+"
                l=n+m
            Case 2
                Label1.Text = "-"
                l=n-m
            Case 3
                l=n*m
                Label1.Text = "*"
            Case 4
                l=n/m
                Label1.Text = "/"
        End Select
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        If val(TextBox3.Text))=l Then
            Label3.Text = "正确"
        Else
            Label3.Text = "错误"
        End If
    End Sub
End Class

请问，有谁能帮我修改一下代码，使得下面代码能显示出加减乘除 的结果是否正确？