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

已结贴√ 问题点数：20 回复次数：5

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

  Inherits System.Web.UI.Page

    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 = "+"
            Case 2
                Label1.Text = "-"
            Case 3
                Label1.Text = "*"
            Case 4
                Label1.Text = "/"
        End Select
    End Sub

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

        If (Convert.ToInt16(TextBox1.Text) + Convert.ToInt16(TextBox2.Text) = Convert.ToInt16(TextBox3.Text)) Then
            Label3.Text = "正确"
        Else
            Label3.Text = "错误"
        End If
         End Sub
End Class

搜索更多相关主题的帖子: Object　Random　

第 2 楼

得分:0

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 楼

得分:0

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

第 4 楼

得分:20

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

第 5 楼

得分:0

图片附件: 游客没有浏览图片的权限，请登录或注册

第 6 楼

得分:0

  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