3. Пример выполнения задания

Необходимо вычислить при изменении х в промежутке от хн=0,6 до хк=0,92 с шагом ∆х=0,05 при а=2.

Блок 3 – блок модификации. Вначале х присваивается х=хн, вычисляется у(хн), выводится х=0,6 и у(0,6), затем возврат к блоку 3, х присваивается значение х=х+∆х, т.е. х=0,6+0,05=0,65 и вычисляется у(0,65), и т.д., до тех пор пока х не превысит хк.

Схема алгоритма

Программа

Sub Tabul() ‘Табулирование функции

A=Val(InputBox(“ВводА”)) ‘1) Ввод А, XN, XK, DX

XN=Val(InputBox(“ВводXN”))

XK=Val(InputBox(“ВводXK”))

DX=Val(InputBox(“ВводDX”))

MsgBox “A=” & Str(A) & “XN=” & Str(XN) ‘2) Вывод А, XN, XK, DX

MsgBox “XK=” & Str(XK) & “DX=” & Str(DX)

For X=XN To XK Step DX ‘3)Х= XN, XK, DX

Y1=EXP(A*X) ‘4) Y=F(X)

Y=(Y1+A^X)/SQR(1+Y1)

MsgBox “X=” & Str(X) & “ Y=” & Str(Y) ‘5)Вывод Х, Y

Next X

End Sub

3. Содержание отчета.

Цель работы.

Краткие теоретические сведения.

Задание к работе

Схема алгоритма

Текст процедуры на VBA с пояснениями.

Анализ результатов. Выводы.

Библиографический список

1. Р.Персон. Microsoft Exсel 97 в подлиннике: В 2т. – BHV – Санкт-Петербург. 1998. Том 2 – 640с.

2. 2. Васильев А., Андреев А. VBA в Office 2000: учебный курс. – СПб.: Питер, 2001. – 432 с.: ил.

7. Лабораторная работа № 7. Обработка одномерных массивов

7.1 Цель работы: изучение оператора описания размерности массива, способа обращения к элементу массива, ввода – вывода массива.

7.2 Теоретические сведения. Массивы

Массив (array)- это группа однотипных переменных, которые объединены одним общим именем. Их можно считать одной из разновидностей переменных. Отличие состоит в том, что в массивах можно хранить не одно, а несколько значений. Доступ к заданному элементу массива осуществляется с помощью индекса. Синтаксис объявления массива отличается от синтаксиса объявления переменной тем, что здесь требуется указать также размерность массива и границы изменения индексов. Ниже представлен пример объявления массива:

Sub TestSub()

Dim intTestArray(0 To 10) As Integer

…

End Sub

В данном примере объявляется одномерный массив целых чисел с именем intTestArray. Граница изменения индексов массива задается в диапазоне от 0 до 10. для установки элементам данного массива конкретных значений можно использовать цикл For…Next:

For inti = 0 to 10

intTestArray(i) = inti + 1

Next inti

Здесь элементами массива intTestArray присваиваются значения одиннадцати целых чисел: 1, 2, …, 11.

Динамические массивы

Используются в том случае, когда размерность массива невозможно определить заранее. В момент своего объявления такой массив не содержит ни одного элемента:

Dim intTestArray() As Integer

Чтобы использовать массив и добавить в него элементы, необходимо использовать инструкцию ReDim:

ReDim intTestArray(100)

Теперь к элементам данного массива можно обращаться точно так же, как и в случае массива с заранее определенным числом элементов. При необходимости количество элементов массива можно снова изменить путем повторного использования инструкции ReDim:

ReDim intTestArray(1000)

Замечания: 1. При изменении размерности массива все значения, хранящиеся в массиве, теряются. Чтобы сохранить значения при изменении размерности массива, следует использовать ключевое слово Preserve, например:

ReDim Preserve intTestArray(1000)

2. Если необходимо выполнить нумерацию элементов массива с единицы, то следует вначале программного модуля использовать директиву Obsion Base 1