VB.Net：选中复选框时显示总计

我正在为游戏制作经验乘数，所以当我输入一个数字时，我会勾选某个乘数，它将乘以我的经验，显示我将获得多少经验

如果我选中复选框，我希望能够知道如何包含语句，以便将语句包含在内，否则它将不会影响任何内容

目标： 如果选中系统复选框，我希望输入的金额（exp）乘以2。其中

system=checkbox1

，如果勾选了“hs=checkbox4”，则总exp乘以1.5x。如果两者都选中，则总经验将乘以2x1.5=3。否则，它只是2倍或1.5倍。但我不知道怎么做

例如（我不知道怎么写，但它是我想要的东西）

---

请帮忙

如果您有

TextBox1

作为您的

exp

输入和两个复选框，分别是

CheckBox1

和

CheckBox4

用于

system

和

hs

，以及一个处理输入的按钮，则您可以在下面输入此代码

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim exp As Double
    If IsNumeric(TextBox1.Text) Then
        exp = CDbl(TextBox1.Text)
    Else
        MsgBox("Please input a number.")
    End If
    If CheckBox1.Checked = True Then
        exp = exp * 2
    End If
    If CheckBox4.Checked = True Then
        exp = exp * 1.5
    End If
    If exp <> 0 Then
        MsgBox(exp)
    End If
End Sub
End Class

---

如果您有

TextBox1

作为您的

exp

输入和两个复选框，分别是

CheckBox1

和

CheckBox4

用于

system

和

hs

，以及一个处理输入的按钮，则您可以获得下面的代码

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim exp As Double
    If IsNumeric(TextBox1.Text) Then
        exp = CDbl(TextBox1.Text)
    Else
        MsgBox("Please input a number.")
    End If
    If CheckBox1.Checked = True Then
        exp = exp * 2
    End If
    If CheckBox4.Checked = True Then
        exp = exp * 1.5
    End If
    If exp <> 0 Then
        MsgBox(exp)
    End If
End Sub
End Class

---

---

如果我对你的问题理解正确，如果选中某个复选框并显示它，你想以一定的速率乘以你的输入，对吗？是的！是的，如果不选中复选框，则不会影响任何内容。请检查我的答案，并让我知道它是否有效。如果我正确理解您的问题，您希望在选中某个复选框并显示它时，将您的输入乘以某个速率，对吗？是！是的，如果不选中复选框，则不会影响任何内容。请检查我的答案，并让我知道它是否有效。如果我正确理解您的问题，您希望在选中某个复选框并显示它时，将您的输入乘以某个速率，对吗？是！这是正确的，如果未选中复选框，则不会影响任何内容。请检查我的答案并让我知道它是否有效。我已尝试过，但当选中两个复选框时，我希望exp输入乘以这两个复选框，即2 x 1.5=3，但在此处不起作用是的，现在起作用，但我能问一下，如果我加入更多的乘数，它还能工作吗？是的，会的。只需遵循上述代码的概念即可。顺便说一句，如果有帮助的话，请接受我的回答。是的，当然！但是我如何将msg框更改为标签文本呢？只需添加一个标签并以这种方式进行操作，例如>>label1.text=exp我已经尝试过了，但是当两个复选框都选中时，我希望exp输入都乘以这两个复选框，即2 x 1.5=3，但在这里不起作用是的，现在起作用了，但我能问一下，如果我加入更多的乘数，它还能工作吗？是的，会的。只需遵循上述代码的概念即可。顺便说一句，如果有帮助的话，请接受我的回答。是的，当然！但是我如何将msg框更改为标签文本呢？只需添加一个标签并以这种方式进行操作，例如>>label1.text=exp我已经尝试过了，但是当两个复选框都选中时，我希望exp输入都乘以这两个复选框，即2 x 1.5=3，但在这里不起作用是的，现在起作用了，但我能问一下，如果我加入更多的乘数，它还能工作吗？是的，会的。只需遵循上述代码的概念即可。顺便说一句，如果有帮助的话，请接受我的回答。是的，当然！但是如何将msg框更改为标签文本呢？只需添加一个标签，并以这种方式执行，例如>>label1.text=exp

If exp<> 0 Then
    MsgBox(exp)
End If