x (санды енгізгеннен кейін OK батырмасын шертіңдер, енгізуді аяқтағанда Cancel батырмасын шертіңдер, кезекті санды енгізу)
Loop
If N0 Then
MsgBox
Else
Orkos/N
Txtорташа. TextStr(or)
End If
EndSub
Программаға арнайы қате енгіземіз:
Do until P жолды Do untile P деп өзгертеміз.
Экранда диалогтық терезе пайда болады.
Егер қатені түзету керек болса, ОК батырмасын шертеміз, қате түсініксіз болса, Анықтама батырмасын немесе F1 батырмасын шертіңдер.
Қатені түзетіңдер. Бұл қате ішкі оқиғада мысалы файлдың аты дұрыс көрсетілмегендіктен болады.
Loop сөзін алып тастаңдар, қатенің хабарламасы шығады.
Қатені тексеріп, программаның орындалуын көріңдер. Ол үшін F5 батырмасын шертіңдер.
End if сөзін алып тастаңдар. Қатені хабарлау терезесі пайда болады.
Қатені түзетіңдер.
Қарапайым программалардың қатесін «қадамдық әдіс» арқылы тексеруге болады.
Тапсырма:
NN1 жолын ұмытып кеткендей программадан алып тастаңдар, программаны іске қосыңдар да, үш сан енгізіңдер, Cancel батырмасын шертіңдер. Жүйе қатені хабарлайды.
Debug мәзірінен , Step Into немесе F8 батырмасын шерту арқылы программаны іске қосыңдар.
Жоба бірінші жолды сары түспен көрсетеді.
Private Sub Command1Click()
Программадағы айнымалылардың мәні неге тең екендігін көру үшін тінтуірді айнымалыға апарсаңдар болғаны
Программаның F8 батырмасы арқылы іске қосыңдар.
PInputBox (санды енгізгеннен кейін OK батырмасын шертіңдер, енгізуді аяқтағанда Cancel батырмасын шертіңдер, кезекті санды енгізу)ерекшеленеді, F8 батырмасын шертіңдер.
Экранда санды енгізу терезесі пайда болады. «10» санын енгізіп ОК батырмасын шертіңдер.
F8 батырмасын шертіп, P айнымалысының мәнін тексеріңдер.
Р айнымалысына 10 – ды көрсету
Страницы: << < 7 | 8 | 9 | 10 > >>