既然是按编号来的,名称默认就行了:
Dim str As StringFor i As Integer = 1 To 10 If e.Form.Controls("CheckBox" & i).Checked Then str + = "," & e.Form.Controls("CheckBox" & i).Text End IfNextMessageBox.Show(str)