L oop Пока два числа не совпадают

Question

Я пытаюсь установить для textbox.value случайное число и l oop, пока оно не достигнет числа, не равного другому значению текстового поля. Хотя я получаю бесконечное l oop. Наверное, мне здесь не хватает чего-то очень фундаментального ...

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) должно быть в теле l oop. В противном случае, когда вы введете l oop с rndPlace = 5, вы никогда не выйдете из него.