选中复选框时如何继续添加值？答案

【问题标题】：how to keep adding the values when checkbox is checked?选中复选框时如何继续添加值？
【发布时间】：2017-01-25 23:44:31
【问题描述】：

当我检查所有复选框时，总数仍然是 10。我不知道这里发生了什么，请帮助

Dim top As Integer
    Select Case top
        Case CheckBox1.Checked
            top = +10
        Case CheckBox2.Checked
            top = +10
        Case CheckBox3.Checked
            top = +10
        Case CheckBox4.Checked
            top = +10
        Case CheckBox5.Checked
            top = +10
        Case CheckBox6.Checked
            top = +10
    End Select
    TextBox2.Text = top

【问题讨论】：

msdn.microsoft.com/en-us/library/cy37t14y.aspx
这似乎不是一个明智的Select Case 声明。您应该使用多个 If 语句。
您正在测试没有任何价值的 top 变量....顺便说一句，我没有否决您的问题 :)
显然不是一个完整的答案，但top = +10 与top = 10 相同，而您想要top += 10

标签： vb.net if-statement checkbox switch-statement

【解决方案1】：

select case 语句类似于if...else if 语句。这意味着一旦其中一种情况为真，即使其他情况为真，也不会执行其他情况。
将您的代码改为这样的：

If CheckBox1.Checked Then 
    top += 10
End If
If CheckBox2.Checked Then 
    top += 10
End If
If CheckBox3.Checked Then 
    top += 10
End If
....

【讨论】：