- •Н. Н. Пустовалова компьютерные информационные технологии лабораторный практикум
- •Лабораторная работа № 1. Операционная система Windows. Программы группы «Стандартные»
- •Лабораторная работа № 2. Приложение Microsoft Word Задание 1
- •Задание 2
- •Программирование циклических процессов
- •Лабораторная работа № 3. Приложение Microsoft Excel Задание 1
- •Зарплата работников за январь
- •Задание 2
- •Лабораторная работа № 4. Реализация алгоритмов линейной структуры в приложении Excel Задание 1
- •Задание 2
- •Лабораторная работа № 5. Циклы в инженерных расчетах
- •Лабораторная работа № 6. Разветвляющиеся программы в приложении Excel
- •Лабораторная работа № 7. Одномерные массивы
- •Лабораторная работа № 8. Использование подпрограмм
- •Лабораторная работа № 9. Создание форм пользователя в приложении Excel
- •Лабораторная работа № 10. Простые и комбинированные списки
- •Лабораторная работа № 11. Разработка проекта с использованием форм в приложении Excel Задание 1
- •Задание 2
- •Лабораторная работа № 12. Создание баз данных в приложении Access Задание 1
- •Задание 2
- •Задание 3
- •Лабораторная работа № 13. Разработка презентации в PowerPoint
- •Задание 3
- •Лабораторная работа № 15. Графический редактор Adobe Photoshop Задание 1
- •Задание 2
- •Лабораторная работа № 16. Приложение Machcad Задание 1
- •Лабораторная работа № 17. Приближенное вычисление интегралов
- •Лабораторная работа № 18. Приближенное решение уравнений
- •Лабораторная работа № 19. Решение систем уравнений в приложениях Excel и Machcad
- •Лабораторная работа № 20. Математические модели одномерных процессов
- •Лабораторная работа № 21. Оптимизация процессов
- •Лабораторная работа № 22. Решение дифференциальных уравнений
- •Лабораторная работа № 23. Компьютерная графика. Приложение Macromedia Flash Задание 1
- •Задание 2
- •Лабораторная работа № 24. Создание html-документов в сети Интернет
- •Операционная система windows
- •Программы группы «стандартные»
- •Приложение microsoft word
- •Приложение microsoft excel
- •Линейные программы в приложении excel
- •Циклические программы
- •Разветвляющиеся программы
- •Одномерные массивы
- •Использование подпрограмм
- •Формы пользователя
- •Работа со списками
- •Использование мастера слияния
- •Базы данных
- •Создание таблиц
- •Заполнение, сохранение и редактирование данных в таблице. Порядок заполнения таблиц зависит от связей в таблицах. Вначале заполняются таблицы главные, затем – подчиненные.
- •Итоговый запрос. Чтобы подводить итоговые значения по группам данных, используются итоговые запросы. Например, пусть надо получить итоговые суммы по продажам отдельных групп товаров.
- •Создание форм
- •Разработка отчетов
- •Приложение power point
- •Компьютерная графика. Приложение ms visio
- •Выделение областей. Для выделения всего рисунка или слоя служит команда Select / All (Выделение / Все).
- •Приложение mathcad
- •Вычисление определенных интегралов
- •Согласно методу трапеций значение интеграла определяется по формуле
- •Приближенное решение уравнений
- •Решение систем линейных уравнений
- •Рассмотрим алгоритм решения системы линейных уравнений методом Гаусса.
- •Получение математической модели одномерного объекта
- •Решение задач оптимизации
- •Приближенное решение дифференциальных уравнений
- •Приложение macromedia flash
- •Создание html-документов
- •Компьютерные информационные технологии
Одномерные массивы
Массивами называются совокупности данных, объединенных одним именем. Элементы массивов называются индексированными переменными. Одномерные массивы имеют один индекс, например a(i), где a – имя массива; i – номер элемента массива. Массивы до их использования в программе должны быть объявлены в операторе Dim, например:
Dim a(5) As Single
Здесь определено, что будет использоваться одномерный массив с шестью элементами вещественного типа. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.
Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом: Dim a(5 to 10) As Single
Пример. Написать программу вычисления суммы элементов массива b = {5,2; 4,5; 1; 2,9; 3}, которые записаны в первом столбце на рабочем листе. Иначе это условие можно записать: Результат поместить в ячейкуB1.
-
Программа без использования массива
Программа с использованием массива
SubCommandButton1_Click()
Dim b As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b = Cells(i,1)
s = s + b
Next
Range(“B1”)=s
End Sub
Sub CommandButton5_Click()
Dim b(5) As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b(i) = Cells(i,1)
s = s + b(i)
Next
Range(“B1”)=s
End Sub
Рассмотрим примеры вычисления произведения и экстремума.
-
Определить
где t = {0,4; –1,5; 2,8; 3; 0,9; 7,3}. Исходные данные записаны в третьем столбце на рабочем листе. Результат поместить в ячейку D1.
Определить максимальный элемент массива d = {12; 0,4; 30; –2; 5; 9,3} и номер этого элемента. Исходные данные записаны в пятом столбце на рабочем листе. Результаты поместить в ячейки F1 и F2.
Sub CommandButton1_Click()
Dim t As Single, s As Single
Dim p As Single, k As Integer
p = 1
For k = 1 To 6
t = Cells(k,3)
p = p * sin(t)
Next
s = 2.4 + p
Range(“D1”) = s
End Sub
Sub CommandButton1_Click()
Dim d(1 To 6) As Single, max As Single
Dim n As Integer, i As Integer
For i = 1 To 6
d(i) = Val(InputBox(“Введите элемент массива d”))
Next
max = d(1) : n = 1
For i = 1 To 6
If d(i) > max Then max = d(i) : n = i
Next
MsgBox (“Максимум =” & max & “ номер = ” & n)
End Sub
Назад
Использование подпрограмм
Если имеются однотипные вычисления в программе, то целесообразно выделять операторы, реализующие их, в отдельную пользовательскую подпрограмму. Тогда в так называемой основной программе можно будет не писать каждый раз заново похожие операторы, а просто обращаться к подпрограмме.
Различают два типа пользовательских подпрограмм:
– подпрограммы типа Function (функция), которые производят действия, определенные ее программным кодом, и в результате этого действия возвращают одно значение определенного типа;
– подпрограммы типа Sub (процедуры), которые производят действия, определенные ее программным кодом, и возвращают столько значений, сколько необходимо.
Функция пользователя в общем виде выглядит следующим образом:
Function <имя функции> (<аргумент1> <As тип>, ...) <As тип>
<программный код для определения функции>
End Function
Описание функции пользователя начинается с заголовка, в котором указывается имя функции после ключевого слова Function, в скобках через запятую перечисляются формальные аргументы с указанием их типа и после скобок указывается тип данных, которому принадлежит значение, возвращаемое функцией. При этом типы аргументов функции и самой функции можно не указывать, в этом случае им присваивается тип Variant.
Конечный результат помещается в переменную с тем же именем, что и имя функции. Заканчивается функция пользователя оператором End Function.
Для обращения к функции пользователя в основной программе записывается имя функции, а в скобках – фактические аргументы, которые должны соответствовать формальным по количеству, типу и порядку расположения.
Пример. Написать программу для вычисления выражения С = М!N!/ (M + N)!, где расчет факториала в общем виде k! = 1 * 2 * 3 * … * k производится с использованием функции пользователя F(k).
-
Функция пользователя
Основная программа
Function F(k)
Dim i As Integer
F = 1
For i = 2 To k
F = F * i
Next
End Function
Sub CommandButton1_Click()
Dim С As Single
Dim N As Integer, M As Integer
M = Val(InputBox("Введите М"))
N = Val(InputBox("Введите N"))
C = F(M) * F(N) / F(M + 1)
MsgBox C
End Sub
Пользовательская функция листа. Excel позволяет создавать пользовательские функции листа, написанные на языке VBA и реализующие алгоритм пользователя.
Для создания пользовательской функции листа нужно на листе редактора VBA выполнить команду Вставка / Модуль (Insert / Module) и написать функцию пользователя типа Function в появившемся окне. После создания функции ее имя помещается приложением Excel в категорию функций «Определенные пользователем», которая отображается в окне Мастера функций и воспринимается Excel как встроенная функция. Используется такая функция в ячейках на рабочем листе Excel по обычным правилам использования встроенных функций.
Процедуры пользователя типа Sub. Общая структура процедуры имеет вид:
Sub <имя процедуры> (<параметр1>, <параметр 2>, …)
<программный код для определения процедуры>
End Sub
Часть формальных параметров, описанных в заголовке, может быть использована для ввода исходных данных, а другая часть – для записи в них результатов. Для того чтобы использовать процедуру типа Sub в основной программе, надо записать ее имя в отдельной строке и через пробел указать фактические аргументы, разделив их запятыми.
По существу в предыдущих разделах рассматривались процедуры, но это были процедуры обработки событий, привязанные к объекту (например, к кнопке), над которым это событие (например, щелчок) совершается. Скажем, запись Sub CommandButton1_Click() означает, что программа выполняется, когда по кнопке CommandButton1 делается щелчок Click.
Пример. Пусть требуется вычислить сумму произведений: , где Предварительно надо создать процедуру пользователя, которая вычисляет произведение любого количества чисел из массива.
-
Процедура пользователя
Основная программа
Sub proizv(k, z, p)
Dim i As Integer
p = 1
For i = 1 To k
p = p * z(i)
Next
End Sub
Sub CommandButton1_Click()
Dim f(5) As Single, S As Single
Dim p As Single, p1 As Single, i As Integer
For i = 1 To 4
f(i) = Val(InputBox("Введите f"))
Next
proizv 4, f, p1
proizv 5, f, p2
S = p1 + p2
MsgBox S
End Sub
Назад