Question

明天我正在为我的视觉基础考试而学习，并且在我们的教授给我们的练习课程上打了一针。这看起来很简单，但我遇到了一些麻烦。

表单有2个组框，一个名为Pet Preference，另一个名为Preferences。在“宠物首选项”组框中，有3个单选按钮（汉堡包，热狗，汉堡包和热狗）。在“首选项”组框中，有2个复选框（Mustard和Ketchup）。按下按钮时会显示一个消息框，具体取决于选中的单选按钮和复选框的组合。

如果选中了Hotdog单选按钮和Mustard复选框，则会显示一条显示“Mediocre”的消息。如果选中汉堡单选按钮和芥末复选框，则会显示“优秀”的消息。如果选择任何其他单选按钮和复选框组合，则消息框应显示为“Medium Rare”。

我为没有任何代码发布而道歉，我尝试了几个不同的东西，但没有一个有效。我试过这样的事情

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 True无法转换为布尔值，或类似的东西。

我也尝试过这个。

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

如果我记得正确，这适用于第一个组合，但不适用于其他任何组合。

有什么建议吗？

Answer 1

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

瓦尔特

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

1 个答案: