VB代码:
Private Sub Command1_Click()Dim js As Integerjs = 0For i = 1 To 10000js = js + iIf js > 1000 Then js = js - i: Exit ForNext iMsgBox "N为" & i - 1 & "最大数为:" & jsEnd Sub