İ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‖)