vb6 - 重写没有标签的基本代码

Question

我有一些使用标签的代码，它的一个例子如下：

SUB occupy (x)
occupied(x) = 0
FOR i = 1 TO 40
IF armyloc(i) = x THEN 
    occupied(x) = i
    GOTO holdup
ELSE
END IF
NEXT i
holdup:
END SUB

如您所见，它使用标签保持跳出它所在的 For..Next 循环。我不知道有什么好方法可以将其更改为更好/正确的代码？例如，我通常可能会这样做：

SUB occupy (x)
occupied(x) = 0
FOR i = 1 TO 40
IF armyloc(i) = x THEN 
    occupied(x) = i
    GOTO holdup
ELSE
       NEXT i
END IF
END SUB

但这会产生一个问题——FOR..NEXT 循环现在嵌套在 IF..THEN 中的一半。有关解决此问题的方法的任何建议？

score 1 · Accepted Answer

正如 Mark Hall 在上面的评论中指出的那样，在这些情况下使用 Exit For 效果很好。删除 GOTO 并替换为 Exit For 语句。

score 0 · Accepted Answer

SUB occupy (x)
occupied(x) = 0
FOR i = 1 TO 40
    IF armyloc(i) = x THEN occupied(x) = i: Exit For
NEXT i
END SUB

2 回答 2