我正在尝试将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
答案 0 :(得分:2)
您需要:
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
进入循环时,您将永远不会离开它。