-правила записи математических функций;

-базовые операторы ввода-вывода;

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

Вконспект второй работы следует включить:

-запись операторов сравнения и циклов в VBA;

-правила описания массивов на VBA;

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

Результат выполненной расчетно-графической работы на компьютере и оформленный отчет по каждой работе показывается преподавателю.

Оформленные конспекты с заданием сшиваются в одну папку с общим титульным листом.

6.1 Лабораторная работа №1

Программирование линейных и циклических алгоритмов наVBA

В лабораторной работе №1 два задания. Задание 1 для лабораторной работы №1.

Вычислить значение функции у=Sin(x). Значение параметра Х задается в градусах и вводится в диалоговом окне Excel. Результат выводится в диалоговое окно активного листа Excel.

Последовательность действий для выполнения лабораторной работы.

Запустите Excel. Используя редактор макросов, задайте имя макроса «Prog1_1» и наберите следующую программу:

Sub Prog1_1 ()

Dim x As Single, y As String

90

x=val( InputBox("Задайте Х ", "Задача Prog1_1") ) y=Sin( x*3.141593/*180)

MsgBox "x=" & Str(x) & " y=" & Str(y) ,, "Результат"

End Sub

Запустите программу на выполнение. Последовательно задавая значения параметра «Х» равными 0; 30 и 90, убедитесь, что программа выдает правильные результаты.

Сохраните рабочую книгу Excel в файле с названием Lab1, а программу на VBA, используя позицию меню File-Export File …, в файле с именем Prog1_1. Этому файлу будет присвоено расширение «bas» и для его просмотра следует использовать программу «Блокнот».

Задание 2 для лабораторной работы №1.

Построить график функции

Пояснения. Для построения графика рассчитанные значения функции поместим на активный лист рабочей книги Excel и по полученным значениям построим график.

Используя редактор макросов, в той же рабочей книге, где выполнялось первое задание этой лабораторной работы, наберите следующую программу с именем «Prog1_2»:

Sub Prog1_2()

Cells(1, 1) = "РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЯ ФУНКЦИИ"

Cells(2, 1) = "X" : Cells(2, 2) = "Y" 'Запись заголовка таблицы k = 3

For x = -1 To 1.05 Step 0.1 'Начало цикла для параметра x

Cells(k,1) = x

If x < -0.1 Then

Y= -1/x

ElseIF x> 0.1 Then

91

Y= 1/x

Else

Y=10

EndIf

Cells(k, 2) = y k=k+1

Next x 'Конец цикла для параметра x

End Sub

Запустите программу на выполнение. По полученным данным постройте в Excel диаграмму типа «График» (см. рисунок 6.1). Установите шаг сетки по ординате равным 3.

Сохраните рабочую книгу Excel в файле с названием Lab1, а программу на VBA, через экспорт функции, в файле Prog1_2.

Рисунок 6.1 - Вид экрана после построения диаграммы типа «График» задания 2 лабораторной работы № 1

Похожий результат можно получить, используя диаграмму типа «Точечная». При этом следует помнить, что точечную диаграмму можно построить со значениями, соединенными сглаживающими линиями, и со значениями, соединенными отрезками. Различия в полу-

92

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

Рисунок 6.2 – Точечная диаграмма со значениями, соединенными сглаживающими линиями для функции задания 2 лабораторной работы № 1

Рисунок 6.3 – Точечная диаграмма со значениями, соединенными отрезками для функции задания 2 лабораторной работы № 1

93