Vb.net 选中复选框时如何继续添加值？

当我勾选所有复选框时，总数仍然是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

---

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
....

---

这似乎不是一个合理的

Select Case

语句。您应该使用多个

If

语句。您正在测试没有任何值的

top

变量……顺便说一句，我没有否决您的问题：）显然不是完整答案，但是

top=+10

与

top=10

相同，而您想要

top+=10