For c = 0 To 9
   If Text21(c).Text = "*" Then
   n = Text1(c).Text
      If Text11(c) = 0 Then
      Exit For
      End If
      Next
   End If
For a1 = 0 To 9
    If Text21(a1).Text = "*" Then
    p = Text1(a1).Text
       If Text11(a1) = 0 Then
       Exit For
       End If
       Next
    End If
For a2 = 0 To 9
    If Text21(a2).Text = "*" Then
    q = Text1(a2).Text
       If Text11(a2) = 0 Then
       Exit For
       End If
       Next
    End If
    Text81.Text = n
    Text82.Text = p
    Text83.Text = q
这个代码怎么老提示next 没有for

For a2 = 0 To 9
    If Text21(a2).Text = "*" Then
   　　　　 q = Text1(a2).Text
       　If Text11(a2) = 0 Then
       　　　Exit For
      　 End If
Next
    End If
发现了吧，循环交叉了