Задачник на VBA (часть I)*
.pdf
|
51 |
|
|
|
|
|
|
|
|
4) x = prog4(16; 28) |
5) z = prog5(-2; 1) |
6) d = prog6(2.1E+01; 36) |
||
Function prog4 (x, C) |
|
Function prog5 (t, D) |
|
Function prog6 (a, B) |
W = 7: s = 3 |
|
c = - 16: v = 8 |
|
H = 7: z = 3 |
Do Until W > C |
|
Do |
|
Do |
A = Sqr(x) *s^ (Sqr(x)) |
|
h = v ^ (1 / 3) * t |
|
x = a / z |
W = -W + A |
|
c = c /h |
|
H = H * x |
s = s - 1 |
|
t = t - 4 |
|
z = z + 3 |
Loop |
|
Loop While Abs (c) >D |
|
Loop Until H = > Sqr(B) |
prog4 = A |
|
prog5 = Abs (c) |
|
prog6 = x |
End Function |
|
End Function |
|
End Function |
7) z = prog7(18, 13) |
|
8) f = prog8(0, 5) |
|
9) d = prog9 (6, 10) |
Function prog7 (x, C) |
|
Function prog8 (i, K) |
|
Function prog9 (b, C) |
D = 25: a = 3 |
|
h = 36: j = 10 |
|
f = 0: k = 2 |
Do While Sqr(D) < C |
|
Do Until h < K |
|
Do |
b = a^2 |
|
j = j *(i+1)^2 |
|
b = b ^ (k – 1) |
D = D * b |
|
h = h / (j -4) |
|
f = f + b |
a = a + x |
|
i = i - 4 |
|
k = k * 2 |
Loop |
|
Loop |
|
Loop While f < C |
prog7 = D |
|
prog8 = h * j |
|
prog9 = b |
End Function |
|
End Function |
|
End Function |
4.3.Задания для самостоятельной разработки программ
ситерационным циклом
1.Осваивая производство нового изделия, предприятие выпустило их в первый день 10 000 шт. Каждый следующий день оно выпускало на 10 % больше от нормы предыдущего дня. Определить, через сколько дней предприятие выпустит 100 000-е изделие?
2.Написать программу нахождения среди последовательности чисел : 1, 1 + 12 ; 1 + 12 + 13 ; … – первого, большего числа а.
3.Дано положительное число ε. Последовательность образована по
следующему закону: ai = (1− 12 ) (1− 13)L (1− i+11). Найти первый член an , для которого выполнено условие: an −an−1 <ε .
4. Создать программу вычисления cos x = ∑(−1)i (x22i)!i с точностью ε.
52
5. Написать программу вычисления числа Фибоначчи, не превосходящего заранее заданное число N. Числа Фибоначчи вычисляются с помощью следующих соотношений: F0 = 0; F1 = 1; Fi = Fi-1 + Fi-2 для i > 1.
6.Найти произведение первых нечетных натуральных чисел, сумма которых не превосходит заданного числа M.
7.Вычислить такую сумму квадратов натуральных чисел, кратных m, и кубов чисел, кратных k, которая не превосходит некоторого наперед заданного числа S0. Определить, сколько всего чисел учтено при вычислении суммы.
8.По полю случайным образом разбросано 45 источников рентгеновского излучения. При радиусе обзора 1 км в поле зрения попали 3 источника. При увеличении радиуса на 0,5км, количество источников увеличивается в 2 раза. Определить, до каких размеров надо увеличить радиус поиска, чтобы выявить все источники.
* * *
Авторы выражают благодарность ассистенту каф. ИИУС КГЭУ Рябовой О.В. за помощь в наборе сложных математических формул и выражений.
Библиографический список
1. В.А. Белавин. Основы программирования на Бейсике. Учебное пособие по курсу «Информатика». / В.А. Белавин, М.М. Волченко, Р.А. Ишмуратов, В.В. Косулин, Н.К. Петрова. – Казань: Казан. гос. энерг.
ун-т, 2003.
2.М.М. Волченко. Табличный процессор Microsoft Excel. Лаборат. работа. / М.М. Волченко, Н.К. Петрова. – Казань: Казан. гос. энерг. ун-т, 2004.
3.А. Ю. Гарнаев. Самоучитель VBA. / А. Ю. Гарнаев. – СПб.: БХВ-
Петербург, 2003. – 512с.
4.Л.А. Демидова. Программирование в среде Visual Basic for Applications: Практикум. / Л.А. Демидова, А.Н. Пылькин. – М.: Горячая линия – Телеком, 2004.
5.П.П. Мельников. Практикум по экономической информатике:
Учебное пособие: в 3-х ч. / П.П. Мельников, И.В. Миронова, И.Ю. Шполянская. – Часть III. – М.: Финансы и статистика; Перспектива, 2002. – 160с.
53
Содержание
Предисловие……………………………………………………………...……. 3
Общие теоретические сведения по программированию на VBA.................. |
3 |
I.Структура программ на VBA. Процедуры и функции пользователя…. 4 II. Типы констант. Представление числовых констант в формате с
фиксированной и плавающей десятичной точкой………..................... |
6 |
III. Объявление переменных на VBA……………………………………… |
7 |
IV. Значения и типы переменных по умолчанию………………………… |
9 |
V. Встроенные математические функции…………………………………. 10 VI. Приоритет (порядок выполнения) математических операций в арифметических выражениях VBA………………………………...…. 12 VII. Адресация к ячейкам листа Excel на VBA. Простейшие средства
ввода-вывода…………………………………………………………. 12 VIII. Применение встроенных диалоговых окон VBA для ввода и
вывода данных в программе……………………………………….… 13 Примеры решения типовых задач и задачи для самостоятельного решения 15 I. Линейные алгоритмы……………………………………………...... 15
1.1.Примеры чтения программ с линейным алгоритмом…………….. 15
1.2.Задания для самостоятельного чтения линейных программ……... 17
1.3.Примеры разработки линейных программ для задач с неявным алгоритмом………………………………………………………….. 19
1.4.Задания для программирования задач с неявно заданным линейным алгоритмом……………………………………………... 21
1.5.Примеры программирования сложных арифметических выражений…………………………………………………………... 22
1.6 Задания для самостоятельного программирования арифметических |
|
выражений………………………………………………………. |
22 |
II. Алгоритмическая структура «ветвление»…………………………… |
24 |
2.1. Операции отношения и логические операции…………………...... |
24 |
2.2. Условный оператор IF … THEN…………………………………… |
25 |
2.3. Примеры чтения программ с алгоритмом «ветвление»…...…... |
25 |
2.4. Задания для самостоятельного чтения программ со структурой |
|
«ветвление»…………………………………………………………... |
27 |
2.5. Задания для самостоятельного программирования неэлементарных |
|
математических функций….……………………… |
29 |
2.6.Примеры разработки программ с алгоритмом «ветвление» для задач с неявным алгоритмом……………………………………….. 31
2.6.Задания для программирования задач с неявно заданным
54
алгоритмом «ветвление»………………….……………………..... 33
III.Алгоритм циклической структуры…….……………………………….. 34
3.1.Оператор арифметического цикла For…Next……….…..…………. 34
3.2. Примеры чтения программ с алгоритмом «арифметический цикл» 35
3.3.Задания для самостоятельного чтения программ с алгоритмом
«арифметический цикл»……………………………………………... 38
3.4.Примеры программирования задач с алгоритмом накопления суммы и произведения, табулирования математических функций. 41
3.4.Задачи для самостоятельного программирования алгоритмов накопления суммы и произведения, табулирования математических функций……………………………………………. 43
3.5.Примеры задач с неявно заданным арифметическим циклом……... 45
3.6.Задания для самостоятельной разработки программ с неявно
заданным циклическим алгоритмом………………………………... 47
IV. Итерационные алгоритмы……………………………………………… |
48 |
4.1. Оператор цикла с условием Do…Loop……………………………… |
48 |
4.2.Задания для самостоятельного чтения программ с итерационным циклом………………….…………………………………………….. 51
4.3.Задания для самостоятельной разработки программ с итерационным циклом……………………..……………………………..…………… 52
Библиографический список…………………………………………………… 53
55
Учебное издание
Петрова Наталья Константиновна, Волченко Маргарита Мироновна
ПРОГРАММИРОВАНИЕ НА VBA В ПРИМЕРАХ И ЗАДАЧАХ
ЧАСТЬ I. БАЗОВЫЕ АЛГОРИТМИЧЕСКИЕ СТРУКТУРЫ
Практикум к лабораторным работам, практическим занятиям, расчетному заданию и самостоятельной работе студентов по дисциплинам
«Информатика», «Компьютерные технологии в науке и образовании», «Программные средства информатики», «Новые информационные технологии»
Кафедра информатики и информационно-управляющих систем КГЭУ
Редактор издательского отдела С.Н. Кашеваров Компьютерная верстка Т.И. Лунченкова
Подписано в печать
Формат 60×84/16. Бумага «Business». Гарнитура «Times». Вид печати РОМ. Усл. печ. л. Уч.-изд. л. Тираж экз. Заказ №
Издательство КГЭУ, 420066, Казань, Красносельская, 51 Типография КГЭУ, 420066, Казань, Красносельская, 51