如何与visual studio进行比较运算？ （使用单选按钮和收音机盒）

Question

创建计算器，比较用户输入的两个值，然后显示一个显示true或false的消息框。单选按钮应包含<,<=,>,>=,=,<>

这是指示。

我制作了一个代码，但问题是当我点击第一个按钮后点击另一个按钮时会显示多个消息框。例如，当我首先点击<按钮时会显示一个消息框，然后我点击>按钮，会出现2个消息框。

你还可以出示表格吗？我不确定我的是否正确（侧面有两个文本框，两侧有单选按钮）。谢谢。

这是我的代码。

Public Class Form1

 Dim x, y As Double

  Private Sub radlessthan_CheckedChanged(sender As Object, e As EventArgs Handles radlessthan.CheckedChanged

        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x < y Then
            MessageBox.Show(True)
        End If
        MessageBox.Show(False)

    End Sub

    Private Sub radlessthanorequalto_CheckedChanged(sender As Object, e As EventArgs) Handles radlessthanorequalto.CheckedChanged
        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x <= y Then
            MessageBox.Show(True)
        End If
        MessageBox.Show(False)

    End Sub

    Private Sub radgreaterthan_CheckedChanged(sender As Object, e As EventArgs) Handles radgreaterthan.CheckedChanged
        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x > y Then
            MessageBox.Show(True)
        End If
        MessageBox.Show(False)

    End Sub

    Private Sub radgreaterthanorequalto_CheckedChanged(sender As Object, e As EventArgs) Handles radgreaterthanorequalto.CheckedChanged
        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x >= y Then
            MessageBox.Show(True)
        ElseIf x < y Then
            MessageBox.Show(False)
        End If
    End Sub

    Private Sub radequalto_CheckedChanged(sender As Object, e As EventArgs) Handles radequalto.CheckedChanged
        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x = y Then
            MessageBox.Show(True)
        ElseIf x <> y Or x > y Or x < y Then
            MessageBox.Show(False)
        End If
    End Sub

    Private Sub radnotequalto_CheckedChanged(sender As Object, e As EventArgs) Handles radnotequalto.CheckedChanged
        x = txtfirstnumber.Text
        y = txtfirstnumber.Text
        If x <> y Then
            MessageBox.Show(True)
        ElseIf x = y Or x >= y Or x <= y Then
            MessageBox.Show(False)
        End If
    End Sub

Answer 1

解决方案很简单。您的问题是每次检查单选按钮时，您的软件中都会取消选中另一个单选按钮。

要解决此问题，您应该将发件人视为＆＃39; RadioButton＆＃39;并检查＆＃39;已检查＆＃39;属性。

她是同一问题的链接：Radio button checked changed event fires twice