VBA 运行循环，直到在 MsgBox 中有 X 个示例

Question

今天我正在尝试使用“for”运行基本循环。我想运行一个循环，直到在 MsgBox 中得到 20 个介于 26 - 28 之间的随机数。

Sub C7()

    Dim b As Integer
    Dim f As Single
    Dim ret As String

    For b = 1 To 20
        f = Rnd() * 28
        If f >= 26 And f <= 28 Then
        ret = ret & Str(f)

        End If
    Next b

        MsgBox ret

End Sub

以下代码运行循环 20 次，并给出 26 - 28 之间的所有值（通常不超过 3）。我需要的是一个代码，它将运行循环 X 次，直到它给我 26 - 27 之间的 20 个数字。

欢迎任何建议！谢谢

Answer 1

更改随机化以给出小于 3 的数字，然后添加 26。

Rnd() 返回一个介于 [0, 1) 之间的数字，将其乘以 28 永远不会得到 28。并且经常会导致低于 28 的数字，由于您的 if 块，输出中会避免这种情况。

f = (Rnd() * 3) 将给出一个介于 [0, 3) 之间的随机数。

f = ((Rnd() * 3) + 26) 将给出一个介于 [26, 29) 之间的随机数。

Answer 2

您正在寻找的是 Do-Loop Until 或 Do While-Loop 循环。这种循环一直运行直到满足条件。在您的情况下，该条件将是“打印 20 条消息”。

Do While-Loop 循环在开始时检查条件，所以如果条件一开始是False，则循环不会运行。

Do-Loop Until 循环检查最后的条件，因此循环将至少运行一次。

您之前的@​​987654326@ 循环之后的示例代码：

Sub C7()

Dim b As Integer
Dim f As Single
Dim ret As String
dim count as Integer: count = 0

Do
    f = Rnd() * 28
    If f >= 26 And f <= 28 Then
        ret = ret & Str(f)
        count = count + 1
    End If
Loop until count = 20

    MsgBox ret

End Sub