Vb.net 根据单选按钮和复选框的不同组合显示消息

Vb.net 根据单选按钮和复选框的不同组合显示消息,vb.net,Vb.net,我正在为明天的视觉基础考试而学习,在教授给我们的一个练习项目上遇到了麻烦。看起来很简单,但我遇到了一些麻烦 该表单有两个分组框,一个标题为“宠物偏好”,另一个称为“偏好”。在“宠物偏好”分组框中,有3个单选按钮(汉堡、热狗、汉堡和热狗)。在“偏好”分组框中,有2个复选框(芥末和番茄酱)。还有一个按钮,按下时会显示一个消息框,具体取决于选择的单选按钮和复选框的组合 如果选择了热狗单选按钮和芥末复选框,则会显示一条消息,上面写着“平庸”。如果选择了汉堡单选按钮和芥末复选框,则会显示一条消息,上面写着

我正在为明天的视觉基础考试而学习,在教授给我们的一个练习项目上遇到了麻烦。看起来很简单,但我遇到了一些麻烦

该表单有两个分组框,一个标题为“宠物偏好”,另一个称为“偏好”。在“宠物偏好”分组框中,有3个单选按钮(汉堡、热狗、汉堡和热狗)。在“偏好”分组框中,有2个复选框(芥末和番茄酱)。还有一个按钮,按下时会显示一个消息框,具体取决于选择的单选按钮和复选框的组合

如果选择了热狗单选按钮和芥末复选框,则会显示一条消息,上面写着“平庸”。如果选择了汉堡单选按钮和芥末复选框,则会显示一条消息,上面写着“优秀”。如果选择了单选按钮和复选框的任何其他组合,则消息框应显示为“五分熟”

我很抱歉没有任何代码可以发布,我已经尝试了几种不同的方法,但没有一种有效

If radHotdog.Checked = True & chkMustard.Checked = True Then
   MessageBox.Show("Mediocre")
   If radHamburger.Checked = True & chkMustard.Checked = True Then
       MessageBox.Show("Excellent")
   End If
End If
但是我认为这一个崩溃了,给了我一个错误,关于类型True不能转换成Boolean,或者类似的东西

我也试过这个

If radHotdog.Checked = True Then
    If chkMustard.Checked = True Then
        MessageBox.Show("Mediocre"
    ElseIf radHamburger.Checked = True Then
        If chkMustard.Checked = True Then
            MessageBox.Show("Excellent")
        Else
            MessageBox.Show("Medium Rare")
        End If
    End If
End If
如果我没记错的话,这对第一个组合有效,但对其他组合无效

有什么建议吗

If radHotdog.Checked = True chkMustard.Checked = True And chkKetchap.Checked = False Then
    MessageBox.Show("Mediocre")
ElseIf radHamburger.Checked = True And chkMustard.Checked = True  And chkKetchap.Checked = False Then
   MessageBox.Show("Excellent")
Else
   MessageBox.Show("Medium Rare")
End If

瓦尔特

你不用
&
但是
啊,好的,谢谢,这就解决了问题。不过现在我意识到我需要用一种方式来写它,如果汉堡、芥末和番茄酱都被检查过,它会给我一个中等罕见的信息,而不是“非常好”一个是因为汉堡包和芥末都被检查过。如果只选择了正确的项目,是否有办法让它显示消息?希望这是有道理的。你说得对,先生。我会修好的,谢谢,修好了。但现在我意识到我需要用一种方式来写它,如果说汉堡、芥末和番茄酱都被检查过,它会给我一个中等程度的信息,而不是“优秀”的信息,因为汉堡和芥末都被检查过。如果只选择了正确的项目,是否有办法让它显示消息?希望这是有道理的。@Bethtaner因为汉堡和芥末都被检查过了你的意思是番茄酱和芥末
是的,很抱歉。我测试了它,当我点击汉堡按钮,以及芥末和番茄酱复选框时,它会给我一个“极好”的信息,而不是应该的“半生不熟”。谢谢,实际上编辑之前的那个也可以。我尝试了各种可能的组合,得到了正确的信息。谢谢你的帮助!