Dim i as Intereg=15 'Правильное число
Do
j=InbutBox("Введите правильное число")
Loop Until j=i
Объяснение:
Dim i as Intereg=15 'Правильное число
Do
j=InbutBox("Введите правильное число")
Loop Until j=i
Объяснение: