主题：for next 问题

没看懂你想干什么

Dim cn() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}

For each c as String in cn
    Dim n As Integer = cint(c.Replace("CheckBox", ""))

    msgbox(n)