Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
44<br />
соот<strong>в</strong>етст<strong>в</strong>ующее номеру ошибки), Source (имя проекта), Description (строка<br />
с ошибкой), Raise (генерация ошибки), Clear (сброс <strong>в</strong>сех с<strong>в</strong>ойст<strong>в</strong> после<br />
обработки ошибок).<br />
Примеры<br />
Sub Оценки ()<br />
For Оценка = 1 To 5<br />
MsgBox Оценка<br />
If Оценка = 3 Then Exit For<br />
Next Оценка<br />
End Sub<br />
Sub СообщениеОбОшибке ()<br />
On Error GoTo сообщение<br />
Err.Clear<br />
число = InputBox ("В<strong>в</strong>едите число, и<strong>на</strong>че будет ошибка")<br />
сумма = число + 5<br />
MsgBox сумма<br />
Exit Sub<br />
сообщение:<br />
мsg = "Ошибка № " & Err.Number & " <strong>в</strong>озникла <strong>в</strong> " _<br />
& Err.Source & Chr(13) & Err.Description<br />
MsgBox мsg, vbExclamation, "Ошибка"<br />
End Sub<br />
Операторы по<strong>в</strong>торения пред<strong>на</strong>з<strong>на</strong>чены для организации<br />
<strong>в</strong>ычислительных процессо<strong>в</strong>, по<strong>в</strong>торяющихся неиз<strong>в</strong>естное заранее число раз.<br />
Различают операторы по<strong>в</strong>торения с предусло<strong>в</strong>ием и с постусло<strong>в</strong>ием:<br />
Do While истинноеЛогическоеВыражение [=True]<br />
Выражение<br />
[…]<br />
Loop<br />
Do<br />
Выражение<br />
[…]<br />
Loop While истинноеЛогическоеВыражение [=True]<br />
Do Until ложноеЛогическоеВыражение [=False]<br />
Выражение<br />
[…]<br />
Loop<br />
Do