İsa Musayev, Mətləb Əlizadə

“Biliyin yoxlanması” layihəsi 
1. Forma üzərində cmd1 düyməsi yerləşdirməli və Caption xassəsi üçün ―Yoxlamanı 
başla‖ qiymətini verməli. Sonra isə cmd1_Click() hadisəvi prosedurunu hazırlamalı. 

---

96 
2. İnputBox funksiyası ilə adını və soyadını soruşub strA sətri dəyişəninə 
mənimsətməli. MsgBox funksiyasının köməyi ilə qeydiyyataalmanın nəticəsini ekrana 
çıxarmalı. Bu işi yerinə yetirmək üçün aşağıdakı proqram kodunu yazmalı: 
Dim strA As String, bytB As Byte 
Sub cmd1_Click() 
strA = inputBox (―Adınızı və Soyadınızı daxil edin:‖,‖Qeydiyyat‖) 
bytB = MsgBox (―Hörmətli ― + strA + ―, biliyinizin yoxlanması üçün hazırsınızmı?‖, 
36, ―Qeydiyyat bitdi‖) 
End Sub
3. Layihəni icraya buraxmalı və ―Yoxlamanı başla‖ düyməsini basmalı. Qeydiyyat 
panelinin mətn sahəsində ad və soyadı daxil etməli.
4. MsgBox funksiyasının ikinci arqumenti (36) ? piktoqramını və Да, Нет 
düymələrini panel üzərinə çıxarır. Да düyməsi üçün bytB ədədi dəyişəninə 6, Нет düyməsi 
üçün 7 mənimsədilməlidir. 
5. Şərt operatorunun köməyi ilə proqramdan çıxmaq və ya yoxlamanı davam 
etdirmək olar. Bunun üçün: İf bytB =7 Then End yazmaq kifayətdir. 
Sual İnputBox funksiyasının köməyi ilə verilir. Cavabın düzgünlüyü İf...Then...Else 
şərti keçid operatorunun köməyi ilə yoxlanır. Cavabın düzgün olub-olmaması barədə 
informasiyanı MsgBox funksiyası ikinci arqumentin 0 qiymətində OK düyməsi ilə ekrana 
çıxarır. 
6. Aşağıdakı proqram kodu düzgün cavabları yığır. Yanlış cavabların sayı bytN ədədi 
dəyişənində yığılır: 
strC = İnputBox (―1 bayt neçə bitdir?‖, ―Birinci sual‖)