өмендегі процедураны теріңдер:
Private Sub cmdЦикл Click()
Dim N As Integer
4
b
b
hß
hß
$ hß
hß
h
h
h
h
h
h
$ hß
hß
hß
hß
h
hß
h
h
h
h
h
ÿ
h
h
h
s 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)
PInputBox (санды енгізгеннен кейін 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 сөзін алып тастаңдар. Қатені хабарлау терезесі пайда болады.
Қатені түзетіңдер.
Осындай қателердің күрделісі логикалық қате. Логикалық қате алгоритмнің дұрыс құрылмағандығынан немесе енгізілген параметрдің дұрыс берілмегендігінен бола
Страницы: << < 4 | 5 | 6 | 7 | 8 > >>