Проверка условия «больше»

Для проверки условия «больше» в программировании, как и в алгебре, используется символ >. Рассмотрим следующий фрагмент:

 

if x > 3 Then

MsgBox "x больше 3"

End If

 

В своих программах вы можете проверить некоторую величину и узнать, больше ли она другой величины. Проверки такого рода обычно встречаются в случае, когда введенное пользователем значение должно принадлежать конкретному диапазону. Впрочем, все зависит от приложения.

Откройте проект из предыдущего примера и выполните следующие действия:

1. Откройте окно программы, дважды щелкнув на форме frmMain.

2. Отредактируйте процедуру события Click кнопки cmdGuess и приведите ее к следующему виду:

 

Private Sub cmdGuess_Click()

Dim guess As Integer

Dim msg As String

Dim cap As String

 

' Создать сообщение

msg = "Введите число от 1 до 10"

 

'Получить число от пользователя

guess = CInt(InputBox(msg))

 

' Число угадано верно?

Select Case guess

Case Is = SecretNumber

' Да! Пользователь угадал!

msg = "Вы угадали!"

cap = "Верно!"

 

'Вывести сообщение

MsgBox msg, vbExclamation, cap

 

' Закончить игру

End

Case Is > SecretNumber

' Нет. Следующая попытка...

msg = "Неверно. Загаданное число меньше."

cap = "Попробуйте снова!"

 

MsgBox msg, vbInformation, cap.

End Select

End Sub

 

3. Сохраните и запустите проект.

Попробуйте угадать число. Если введенное вами число будет больше загаданного, программа сообщит вам об этом (рис. 6.2).

 

Рис. 6.2. Названное число больше загаданного

 

Основные изменения в программе находятся в блоке, который начинается со строки Саsе Is > SесretNumber. Программа проверяет,что введенное число боль-ше SecretNumber. Если это условие не выполняется, следующий логичный шаг — убедиться в том, что введенное число меньше SecretNumber.