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

正如你所看到的，它使用标签holdup来跳出它所在的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 中，用于一半。关于解决此问题的方法有什么建议吗？

Answer 1

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