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

Question

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

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