VBA for 循环提前结束

Question

如果我将 k = 1 迭代到 100，有时如果不满足条件，我需要重新启动迭代。在本例中，我创建了一个介于 1 和 100 之间的随机数，但如果该数字低于 51，我希望重新开始迭代。

现在代码正在返回可变数量的值。有时是 1，有时是 90。

有什么想法吗？

Public k as long
Sub Example()

For k = 1 To 100
    Call ExampleExtended
Next k

End Sub


Sub ExampleExtended()
Dim Val As Integer

Val = Int((100 - 1 + 1) * Rnd)

If Val < 51 Then
    k = k - 1
    Exit Sub
End If

Debug.Print Val

End Sub

Answer 1

k 在您的示例中被视为两个 subs 的局部变量，因此您不会像您认为的那样更新 k 。要么增加 k 的范围（我不建议这样做），要么使 ExampleExtended() 成为一个函数，该函数返回您可以在调用 sub 中使用的内容。

这是一种方法。显然该函数有点矫枉过正，但试图展示如何使用函数将值返回给调用子：

    Sub Example()
    Dim counter     As Integer, _
        randNumber   As Integer

    For counter = 1 To 100

        randNumber = RandomBetween(50, 100)
        Debug.Print randNumber

    Next counter

    End Sub


    Function RandomBetween(lowerBound As Integer, upperBound As Integer) As Integer
        RandomBetween = Application.WorksheetFunction.RandBetween(lowerBound, upperBound)
    End Function

这更近了吗？

Option Explicit

Sub Example()
Dim counter     As Integer, _
    randNumber   As Integer

For counter = 1 To 100

    randNumber = RandomBetween(1, 100)


    If randNumber < 50 Then
        counter = counter - 1
    Else ' this is here just as a check...should only print 100 numbers
        Debug.Print randNumber
    End If

Next counter

End Sub

Answer 2

看起来这更适合使用 Do While 循环。 Do While 使循环不确定，直到满足条件 - 在这种情况下，直到随机数 > 51。像这样：

val = 1
Do While val < 51
    Val = Int((100 - 1 + 1) * Rnd)
Loop

尽管在您的情况下，这可以通过将随机数强制在 51 和 100 之间来进一步简化，就像这样 [取自这里：http://www.cpearson.com/excel/randomNumbers.aspx：

Dim Low As Double
Dim High As Double
Low = 51 '<<< CHANGE AS DESIRED
High = 100 '<<< CHANGE AS DESIRED
val = Int((High - Low + 1) * Rnd() + Low)

Answer 3

您的循环至少有 100 次迭代，平均有 150 次迭代！

但是，Debug.Print Val 平均被调用 50 次。 因此，您几乎总是会在控制台窗口中看到少于 100 个的值。

（2^(-100) 有可能在控制台窗口中看到 100 行）

如果您将代码更改为：

Public k as long
Sub Example()

For k = 1 To 100
    Call ExampleExtended
Next k

End Sub


Sub ExampleExtended()
Dim Val As Integer

Val = Int((100 - 1 + 1) * Rnd)

Debug.Print Val

If Val < 51 Then
    k = k - 1
    Exit Sub
End If

End Sub

循环执行的时间与控制台中的行数相同

Answer 4

你可以使用goto：

Sub Example()

For k = 1 To 100

Call ExampleExtended

Next k

End Sub


Sub ExampleExtended()
Dim Val As Integer
start:
Val = Int((100 - 1 + 1) * Rnd)

If Val < 51 Then
goto start
k = k - 1
Exit Sub
End If

Debug.Print Val

End Sub

看看有没有效果