Игра «Отгадай число»

Игра «Отгадай число» Dim a As Integer, k As Integer, b As Integer Private Sub Form_Load() Show Randomize A=Int(Rnd*100+1) b=InputBox(“Введите число в диапазоне от 1 до 100”,,,3000,4000) Do While b<>a If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If ba If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If ba If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If ba If b>a Then Print “Введено число”;b; “Оно больше загаданного компьютером.” End If If b