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

Для проверки условия «меньше» используется символ <:

 

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

Case Is < SecretNumber

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

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

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

MsgBox msg, vbInformation, cap

End Select

End Sub

 

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

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

 

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