Question

如何用VBA写程序，for循环里面有条件语句，当触发条件时跳出for循环，未触发时继续循环至结束

例如有生产随机数e1,e2两个随机数，a=0.5;现按a=e1*i+e2+a在循环10次，当a<0时，终止循环，得到a的值；若a>0，则继续循环至100次，得到a的最终值，该如何写程序？为何我写的显示next 没有for？
Sub cc()
Dim e1, e2, a
a = 0.5
For i = 1 To 10
a = e1 * 1 + e2 + a
If a < 0 Then
If a > 0 Then
Next i
MsgBox (a)
End Sub

VBA零基础，两个if后面该如何写程序？
e1和e2的生成语句忘记写了

Answer 1

不一定每次都有结果，得多次运行

Sub cc()
    Dim e1, e2, a, i
    a = 0.5
    e1 = Rnd
    e2 = Rnd * -1
    For i = 1 To 10
        a = e1 * 1 + e2 + a
        If a < 0 Then
            MsgBox a
            Exit Sub
        End If
    Next i
    MsgBox "未找到结果"
End Sub