我正在创建一个EXP乘数,我不知道如何将原始变量分开来完成2个语句。
目的:
我想要它,以便在checkbox1.checked = true
checkbox2.checked = true
checkbox5.checked = true
和input = 2
时,答案将为2 x 2x1.5
+ 2 x 1.1
{{1} } NOT = 8.2
给了我2 x 2x1.5x1.1
。
但是,我尝试使用分隔符将它们分开,然后在结果中将它们作为6.6
添加到一起,但我使用exptotal
作为输入时将exp2
作为输入错误答案现在是exp
+ 2 x 2x1.5
+ 2
,因为我的代码写了2 x 1.1
和exp + exp2
,所以结果现在是exp2 is also an input
而不是{{1有了额外的输入。
我不知道如何四处走动以便我可以使用原8.2
6.2
而不使用exp
和exp2 = (exp * 1.1)
中的exp
我的代码:
checkbox1
此代码使结果再次包含输入checkbox2
dim exp as double
dim exp2 as double
dim exptotal as double
If IsNumeric(TextBox9.Text) Then
exp = 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 CheckBox5.Checked = True Then
exp2 = exp2 * 1.1
End If
exptotal = exp + exp2
,这不是我想要的。我想摆脱那个额外的输入,但仍然将2
语句与totalexp = exp + exp2
和checkbox5
一起添加并且不会相乘。但我不知道该怎么做。这是我能来的最接近的地方。我希望你能理解我!
我现在很困惑,请帮助!!
答案 0 :(得分:0)
阅读你的问题太麻烦了。你的变量也不讲任何故事,什么是CheckBox1,TextBox9?这些是变量名称不好。
既然你没有说出逻辑应该是什么,而只是谈论一个场景,我不得不猜测。
Dim input, total As Double
total = 0
If Not Double.TryParse(TextBox9, input) then
MessageBox.Show("Please input a number.")
Else
Dim part1, part2 As Double
part1 = 0
part2 = 0
If CheckBox1.Checked = True And CheckBox2.Checked = True Then
part1 = 3
Else If CheckBox1.Checked = True Then
part1 = 2
Else If CheckBox2.Checked = True Then
part1 = 1.5
End If
If CheckBox5.Checked = True Then
part2 = 1.1
End If
total = (input * part1) + (input * part2)
End If