VBA循环，直到两个数字不匹配

Question

我正在尝试将textbox.value设置为随机数并循环，直到它获得的数字不等于另一个textbox值。我得到一个无限循环。我可能在这里缺少了一些基本的东西...

me.Text1.Value = 1
me.Text2.Value = 5
rndPlace = Int((5 - 1 + 1) * Rnd + 1)

Do

me.Text1.Value = rndPlace

Loop Until me.Text1.Value <> me.Text2.Value

Answer 1

您需要：

me.Text1.Value = 1
me.Text2.Value = 5


Do
    rndPlace = Int((5 - 1 + 1) * Rnd + 1)
    me.Text1.Value = rndPlace

Loop Until me.Text1.Value <> me.Text2.Value

rndPlace = Int((5 - 1 + 1) * Rnd + 1)必须位于循环的主体中。否则，当您使用rndPlace = 5进入循环时，您将永远不会离开它。