+ -
当前位置:首页 → 问答吧 → exit for 为什么要用上呢?

exit for 为什么要用上呢?

时间:2011-07-31

来源:互联网

Dim K As Long
For i = 0 To 10
  A(i) = i
Next i
M = Val(Text1.Text)
For i = 0 To 10
  If M < A(i) Then
  B(i) = M
  For K = i To UBound(A)
  B(K + 1) = A(K)
   
  Next K
  Exit For 这里的exit for有什么用啊??
  Else
  B(i) = A(i)
  End If
Next i
If A(10) < M Then
B(11) = M
End If

For i = 0 To 11
  Text2.Text = Text2.Text + Str(B(i))
Next i

End Sub

作者: Q472152323   发布时间: 2011-07-31

跳出循环啊

作者: supertankHZT   发布时间: 2011-07-31

VB code

Dim K As Long
For i = 0 To 10
  A(i) = i
Next i
M = Val(Text1.Text)
'↓------------跳出这个循环----------------↓
For i = 0 To 10
  If M < A(i) Then
  B(i) = M
  For K = i To UBound(A)
  B(K + 1) = A(K)
    
  Next K
  Exit For '这里的exit for有什么用啊??
  Else
  B(i) = A(i)
  End If
Next i
'↑-----------exit for后跳到这里再向下执行------------↑
If A(10) < M Then
B(11) = M
End If

For i = 0 To 11
  Text2.Text = Text2.Text + Str(B(i))
Next i

End Sub

作者: supertankHZT   发布时间: 2011-07-31

热门下载

更多