我正在创建一个EXP乘数,我不知道如何分隔乘数。
我的目标: 我的目标是使其成为' checkbox5.checked = true'的乘数。不会乘以其余的复选框,只需添加其产品即可。 如果' checkbox1.checked = true'它会将EXP乘以输入量2.因此,如果选中checkbox4,它将再次将EXP乘以1.5。所以2x1.5 = 3
但是对于checkbox5,哪个乘数是x1.1,我不希望它乘以exp的其余部分,这意味着2x1.5x1.1 = 3.3,而是单独添加它,但仍然显示答案我的意思是一个结果是2x1.5 + 1.1 = 4.1。
所以这意味着如果输入是' 2'选中复选框1,4和5,然后答案为8.2而不是6.6。
但我不知道该怎么做,请帮忙!
这是我的代码:
Dim exp2 As Double
Dim exptotal As Double
Dim exp As Double
If IsNumeric(TextBox9.Text) Then
exp = CDbl(TextBox9.Text)
exp2 = CDbl(TextBox9.Text)
Else
MsgBox("Please input a number.")
End If
If CheckBox1.Checked = True Then
exp = exp * 2
End If
If CheckBox2.Checked = True Then
exp = exp * 1.5
End If
If CheckBox3.Checked = True Then
exp = exp * 1.3
End If
If CheckBox4.Checked = True Then
exp = exp * 1.5
End If
If CheckBox5.Checked = True Then
exp2 = exp + (exp2 * 1.1)
End If
exptotal = exp + exp2
If exp <> 0 Then
Label37.Text = totalexp
End If
请帮助!!