ммада кідіріс болуы.
Онда Do until P жолын Do жолына ауыстырамыз.
Программаны іске қосыңдар, санды енгізіп Cancel батырмасын шертіңдер, тағы да осынықайталаңдар, программада кідіріс пайда болады, Ctrl Break батырмасы арқылы программаның орындалуын үзіңдер. Осыдан кейін Loop жолы ерекшеленеді. Программада тағы да қадамдық тексеру пайдалансақ, онда Loop тан кейінгі жолдың ерекшеленгенін көреміз.
Бақылау сұрақтары:
1. Қарапайым программалардың қатесін қалай тексеруге болады ?
2. Қатені тексеру мен қадамдық әдіспен тексерудің қандай айырмашылықтары бар ?
3. Программада қандай қателер болады ?
4. Программада қатенің неше түрі болады ?
5.
Үйге тапсырма: теориялық түсінікке дайындалу
Бағалау.
Жоба: «Санның орташа арифметикалық ортасын табу»
1. Жобаны «Қатені іздеу» деген атпен сақтаймыз.
2. Пішінге бұйрықтық батырма CommandButton, екі мәтіндік TextBox және жазу Label батырмаларын енгіземіз.
3. Пішінге frtцикл, cmdцикл, txtсан, txtорташа деп батырмаларының Name қасиеттеріне жазыңдар.
4. Бірінші мәтіндік батырмаға (txtсан), Multiline қасиетіне True мәнін, ScrollBars қасиетіне – 2 (Vertical ) мәтін беріңдер.
5. Бұйрықтық батырманың Name қасиетіне «Енгізуді баста» деп жазыңдар. Бірінші жазу батырмасына «Енгізілетін сандар», екінші жазу батырмасына «Орташа мән» деп жазыңдар.
Төмендегі процедураны теріңдер:
Private Sub cmdЦикл Click()
Dim N As Integer
Dim kos as single, or As Single
Dim P As String
Txtсан. text
Kos0: N0
PInputBox(санды енгізгеннен кейін OK батырмасын шертіңдер, енгізуді аяқтағанда Cancel батырмасын шертіңдер, кезекті санды енгізу)
Do until P Cancel батырмасын басқанша цикл орындала береді.
NN1
Txtсан. txtTxt. сан. textP KoskosVal(P)
PInputBo
Страницы: << < 6 | 7 | 8 | 9 | 10 > >>