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

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

Перевірка умови " менше"

Для перевірки умови " менше" використовується символ <:

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).