Файл: Informatika2013-Of2010.doc

Редактор VBA можно иначе открыть с помощью Разработчик / Visual Basic.

Отладка программы. Если при вводе оператора строчка помечается красным цветом, значит, имеется ошибка в записи оператора (отсутствуют нужные пробелы, количество закрывающих скобок не равно количеству открывающих, вместо точки в числе стоит запятая и т. п.). Надо проанализировать запись и исправить ошибки.

При возникновении ошибки во время выполнения программы происходит ее прерывание и выводится сообщение об ошибке (например, деление на 0). В окне сообщения можно выбрать режим остановки программы (End) или режим перехода в окно отладки программы (Debug), при котором строка с ошибкой будет подсвечена желтым цветом.

Для исправления ошибки надо прервать программу, нажав кнопку Reset на панели инструментов редактора VBA, исправить ошибку и запустить программу заново.

Назад

Циклические программы

Если в программе надо повторить один оператор или последовательность операторов несколько раз, используются операторы циклов. Операторы циклов заключают такой оператор или группу операторов между ключевыми словами For ... Next или Do ... Loop и определяют условия повтора.

Циклы For…Next используются, когда заранее определено, сколько раз должны выполняться операторы, составляющие тело цикла и заключенные между For и Next. В операторе For задается начальное значение параметра цикла, конечное значение и шаг приращения (Step). Когда Step отсутствует, то приращение равно единице.

Рассмотрим примеры использования For...Next

Вывод значений функции Sin(x) на интервале от 0 до 1 с приращением значения аргумента 0.1 в окна сообщений	Вывод значений функции Sin(x) в первый столбец, начиная с первой строки на рабочем листе с именем Лист1
For x = 0 To 1 Step 0.1 Y=Sin(x) MsgBox (y) Next	i = 1 For x = 0 To 1 Step 0.1 Y= Sin(x) Worksheets(“Лист1”).Cells(i, 1) = y i = i + 1 Next

В этих программах параметром цикла является переменная х. Операторы цикла выполняются 11 раз, соответственно должно получиться 11 ответов для всех значений х.

Циклы типа Do...Loop используются тогда, когда неизвестно, сколько раз должно быть повторено выполнение группы операторов. Существуют 4 варианта Do...Loop.

Условие проверяется до того, как выполнятся операторы цикла	Условие проверяется после того, как выполнятся операторы цикла	Условие проверяется до того, как выполнятся операторы цикла	Условие проверяется после того, как выполнятся операторы цикла
Do While<условие> <операторы > Loop	Do <операторы> Loop While<условие>	Do Until<условие> <операторы> Loop	Do <операторы> Loop Until<условие>

Цикл с ключевым словом While продолжает свою работу, пока условие остается истинным, т. е. выполняется. Цикл с ключевым словом Until продолжает свою работу, пока условие является ложным, т. е. условие не выполняется.

Рассмотрим примеры.

Заполнить первый столбец результатами вычислений по формулепри z = {1; 4; 7,5; 9; 15}.	Вычислить значения tпо формуле: t = sin2(x) + e3−x, x = 3(0,1)4 (х меняется от 3 до 4 с шагом 0,1).
Sub CommandButton1_Click() For i = 1 To 5 z = Val(InputBox("Введите значениеz")) q = Sqr(z ^ 2 + 5 * z) * Log(z + 0.33) Worksheets(“Лист1”).Cells (i, 1) = q Next End Sub	Sub CommandButton1_Click() x = 3 : n = 1 Do While x <= 4 t = Sin(x) ^ 2 + Exp(3 – x) Worksheets(“Лист1”).Cells (1, n) = t x = x + 0.1 : n = n + 1 Loop End Sub

Назад

Разветвляющиеся программы

Если некоторые действия в программе должны происходить только при выполнении какого-либо условия, то такая программа называется разветвляющейся.

Для записи проверяемого условия используются операции сравнения: > (больше), >= (больше либо равно), < (меньше), <= (меньше либо равно), = (равно), <> (не равно). Каждое условие всегда имеет два значения: либо оно верно (True – правда), либо неверно (False – ложь).

Проверяемое условие может быть и сложным, состоящим из нескольких простых условий. Для записи сложного условия используются логические операции объединения: And – сложное условие верно, когда оба простых условия верны, иначе сложное условие будет ложным; Or – сложное условие верно, когда хотя бы одно из простых условий верно, и будет ложным только, когда все простые условия будут ложными.

Например, условие x >= 1 And x =< 10 Or x = 15 верно, если х находится внутри интервала [1:10] либо если х = 15.

Условный строчный оператор имеет общий вид If … Then … Else… (если…тогда…иначе…) и представляет в общем случае конструкцию If <условие> Then <оператор1> Else <оператор2>, которая имеет следующий логический смысл: если условие выполняется, то нужно выполнить оператор1, иначе – следует выполнить оператор2. В операторе может отсутствовать Else.

Если при проверке условия должны выполняться несколько операторов, то условный оператор записывается в блочной форме в несколько строк и заканчивается строкой с ключевыми словами End If:

If <условие> Then

<операторы 1>

Else

<операторы 2>

End If

Когда необходимо проверить более одного условия, можно использовать вложение операторов If друг в друга.

Вычисление значений w с использованием строчного условного оператора If: ;;	Вычисление значений функции yдля вводимых с клавиатуры некоторых значений n и x:
Sub CommandButton1_Click() Dim x As Single, y As Single, w As Single, n As Single x = Val(InputBox(“Введите x”)) n = Val(InputBox(“Введите n”)) y = Exp(– 2 * x) + 1 z = Log(x) / (x + 1) If x < z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2 Msgbox (“w=” & w) End Sub	Sub CommandButton1_Click() Dim x As Single, n As Single, y As Single 'Ввод исходных данных x = Val(InputBox("Введите x ")) n = Val(InputBox("Введите n")) 'Проверка условий и расчет значений If x >= 0 And n >= 0 Then y = Sqr(x) If x < 0 And n < 0 Then y = n * x + 2 MsgBox (y) 'Вывод результата End Sub

В зависимости от вводимых значений результаты вычисляются по различным формулам.

Вычисление значений y для x = – 2(2)8:	Вычисление значений y и w в соответствии с условием: если х < 5, то y = sin2x, w = ctgx; если х  5, то y = 1 – sinx, w = arctgx. Значения х = {9; 0,1; – 4; 5; 12}
Sub CommandButton1_Click() Dim x As Single, y As Single For x = – 2 To 8 Step 2 If x < 0 Then y = x + 2 If x > 5 Then y = x ^2 If x >= 0 And x <= 5 Then y = Sqr(5 * x) MsgBox (y) 'Вывод результата Next End Sub	Sub CommandButton1_Click() Dim x As Single, y As Single, w As Single, i As Integer For i = 1 To 5 x = Val(InputBox("Введите значение х")) If x > 5 Then y = Sin(x) ^ 2 w = cos(x) / sin(x) Else y = 1 – Sin(x) w = Atn(x) End If MsgBox (“x=” & x &“ y=” & y & “ w=” & w) Next End Sub

Назад