Visual Basic ортасында программалау

                        ‘2- блок 
Combo1.Addltem «Жеті жылдық ше?» 
Combo2.Addltem «а) 5 жыл» 
Combo3.Addltem «б) 6 жыл» 
Combo4.Addltem «в) 7 жыл» 
Combo5.Addltem «г) 8 жыл» 
Combo6.Addltem2

                   ‘3- блок 
Combo1.Addltem «Қазақстанның бірінші астанасы» 
Combo2.Addltem «а) Қызылорда» 
Combo3.Addltem «б) Орынбор» 
Combo4.Addltem «в) Алматы» 
Combo5.Addltem «г) Астана» 
Combo6.Addltem1

                   ‘4- блок 
Combo1.Addltem «Қазақстанның екінші астанасы» 
Combo2.Addltem «а) Қызылорда» 
Combo3.Addltem «б) Орынбор» 
Combo4.Addltem «в) Алматы» 
Combo5.Addltem «г) Астана» 
Combo6.Addltem0

             ‘5- блок 
Combo1.Addltem «Қазақстанның үшінші астанасы» 
Combo2.Addltem «а) Қызылорда» 
Combo3.Addltem «б) Орынбор» 
Combo4.Addltem «в) Алматы» 
Combo5.Addltem «г) Астана» 
Combo6.Addltem2

           ‘6- блок 
Combo1.Addltem «Қазақстанның төртінші астанасы.» 
Combo2.Addltem «а) Қызылорда» 
Combo3.Addltem «б) Орынбор» 
Combo4.Addltem «в) Алматы» 
Combo5.Addltem «г) Астана» 
Combo6.Addltem3 
End Sub

2.Формаға Frame1 объектісін түсіріп, оның Visible қасиетіне «False» мәнін орнатқанна кейін, ішіне Label1 және Command1 объектілерін орналастырыңыз.Формаға Command1 объектісінің үш көшірмесін алып қойыңыз, нәтижесінде Frame1 объектісінің ішінде төрт элементтен тұратын Command1 масствын аламыз(Command1(0), Command1(1), Command1(2), Command1(3) объектілері). 
3.Формаға Command2 объектісін түсіріп, оның Caption қасиетіне «Бастау» мәнін беріңіз. 
4.Формаға Frame2 объектісін түсіріп, оның Visible қасиетіне «False» және Caption қасиетіне «Бағала» мәндерін беріп, ішіне Command3, Command4, Text1, List1 объектілерін орналастырыңыз.Command3, Command4 объектілерінің Caption қасиеттеріне «Соңғы оқушы» және «Барлық оқушы» мәндерін беріңіз. «Соңғы оқушы» батырмасын басқанда Text1 объектісіне соңғы тест тапсырған оқушы бағасы, ал «Барлық оқушы» батырмасын басқанда List1 объектісіне барлық оқушылар тізімі шығуы тиіс. 
5.Формаға Frame3 объектісін түсіріп, оның Visible қасиетіне «False» және Caption қасиетіне «Дұрыс жауаптар» мәндерін беріп, ішіне List2 объектілерін орналастырыңыз. 
6.Формаға Command5 объектісін түсіріп, оның Caption қасиетіне «Шығу» мәнін орнатып, оны екі рет шерту арқылы код терезесіне өтіп келесі процедураны жазыңыз. 
Private Sub Command5_Click () 
End  
End Sub 
7.Код терезесінің General бөлігінде бірнеше процедурада бірдей қолданылатын айнымалыларды сипаттап кетіңіз. 
Dim P, N, B As Integer 
Dim X As String 
8.Форманың ортасына Label2 объектісін орналастырып, оның Caption қасиетіне «Тарихтан тест сұрақтары» мәнін жазыңыз. 
9.Код терезесінде Command1 объектісін таңдап төмендегі процедураны жазыңыз. 
Private Sub Command1_Click (Index As Integer) 
‘Жауаптың дұрыстығын тексеру блогы 
D= Val(Combo6.List(P)) 
If Index= D Then 
Msg Box «жауап дұрыс» 
N= N+ 1 
List2.List Index= List2.List Index-1 
Else: Msg Box «жауап дұрыс емес» 
End If 
‘Тестілеудің аяқталуын тексеру блогы 
K= Combo1.New Index 
If K= P Then 
Label2.Visible= True 
Label2.Caption= «Тест аяқталды» 
Frame1.Visible= False 
Command2.Enabled= True 
Command2.Caption= «Қайта бастау» 
Frame2.Visible= True 
‘Дұрыс жауаптар процентін шығару 
L= Combo1.List Count               ‘барлық сұрақтар саны 
M=100*N/L 
‘Баға шығару блогы 
‘дұрыс жауаптар проценті бойынша шығарылған 
If M>=85 Then B= 5 
If M<85 And M>=60 Then B=4 
If M<60 And M>=40 Then B=3 
If M<40 Then B=2 
‘Әр оқушы мен оның алған бағасын тізімге жазу 
List1.Addltem X &”:” & Str (B) 
Else: 
‘Келесі сұрақты шығару блогы 
P= P+1 
Frame.Caption=Str(P+1)& “-сұрақ” 
Label1.Caption=Combo1.List(P) 
Command1(0).Caption=Combo2.List(P) 
Command1(1).Caption=Combo3.List(P) 
Command1(2).Caption=Combo4.List(P) 
Command1(3).Caption=Combo5.List(P) 
End If 
End Sub 
10.Код терезесінде Command2 объектісін таңдап төмендегі процедураны жазыңыз. 
Private Sub Command2_Click () 
P=0     ‘Сұрақтың бастапқы нөмірі 
N=0    ‘Дұрыс жауаптырдың бастапқы мәні 
Label2.Visible=False 
Frame2.Visible=False 
List1.Visible=False 
Text1.Visible=False 
‘Оқушының фамилиясын енгізу 
X= Input Box(“Фамилиясы мен аты”) 
Frame1.Visible=True 
‘Жақтаудың тақырыбына сұрақтар нөмірін шығару 
Frame1.Caption=Str(P+1) & “-сұрақ” 
‘Бірінші сұрақты шығару 
Label1.Caption=Combo1.List(P) 
Command1(0).Caption=Combo2.List(P) 
Command1(1).Caption=Combo3.List(P)

Command1(2).Caption=Combo4.List(P) 
Command1(3).Caption=Combo5.List(P) 
‘Бастау батырмасын уақытша өшіре тұру 
Command2.Enabled= False 
‘Дұрыс жауаптар санын көрсететін шкала тізімін толтыру циклі 
For T= 0 To Combo1.List Count 
List2.List(T)= Combo1.List Count- T 
Next T 
‘Шкаланың бастапқы көрсеткішін орнату 
List2.List Index= Combo1. List Count 
Frame3.Visible= True 
End Sub 
11.Код терезесінде Command3 объектісін таңдап төмендегі процедураны жазыңыз. 
Private Sub Command3_Click () 
Text1.Visible= True 
List1.Visible= False 
‘Соңғы жауап берген оқушының бағасын шығару 
Text1.Text= X &”,бағаң:” & Str(B) 
End Sub 
12.Код терезесінде Command4 объектісін таңдап төмендегі процедураны жазыңыз. 
Private Sub Command4_Click () 
Text1.Visible=False 
‘Барлық оқушылар тізімін шығару 
List1.Visible=True 
End Sub