如果条件满足改变循环方向

Question

我正在尝试创建一个循环，如果 ZuluLY > ZuluTY 将逐步进行，如果 Zulu

当我尝试这个时，我不断收到“else without if”编译错误。 没有 IF 语句条件，循环可以正常工作，但是当我添加 IF 语句时，我得到了错误。

这是一个代码 sn-p 显示我尝试过的内容

If ZuluLY > ZuluTY Then
For yr = LBound(Year_Arr) To UBound(Year_Arr)
ElseIf ZuluLY < ZuluTY Then
For yr = UBound(Year_Arr) To LBound(Year_Arr) Step -1
End If 
'..... code

Answer 1

Dim vStart, vEnd, vStep

If ZuluLY > ZuluTY Then
    vStart = LBound(Year_Arr)
    vEnd = UBound(Year_Arr)
    vStep = 1
else
    vStart = UBound(Year_Arr)
    vEnd = LBound(Year_Arr)
    vStep = -1
end if


For yr = vStart To vEnd Step vStep