主题：老爹看下这个代码怎么写？（已解决）

大概就是如此，就是100个也是这样的代码：

Dim nms1() as string = {"A","B","C","D"}

Dim nms2() as string = {"sl1","sl2","sl3","sl4"}

For i as integer = 0 to nms.length -1

    If e.Form.controls(nms1(i)).checked = True

         Dim lqry As String = nms1(i)

          Dim lqsl As Integer = e.Form.Controls(nms(2)).Value

    end if

next

Dim nms1() As String = {"A","B","C","D"}
Dim nms2() as string = {"sl1","sl2","sl3","sl4"}
For i As Integer = 0 To nms.length -1
    If e.Form.controls(nms1(i)).checked = True
        Dim lqry As String = nms1(i)
        Dim lqsl As Integer = e.Form.Controls(nms(2)).Value
        '原来的代码
    End If
next