Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

Sub rekkurent 2()

y0 = 0

y1 = 1

For n = 2 To 14

y = 0.3 * y1 ^ 3 - 0.7 * y0 ^ 2

y0 = y1: y1 = y

Next n

MsgBox "y14=" & y

End Sub

Пример 3:

Вычислить суммы рядов, используя зависимость последующего члена от предыдущего (а не общую формулу слагаемого), с точностью ε=0,001 и сравнить полученный результат с точным значением, определяемым по формуле для левой части выражения. Значения аргумента х может быть любым в заданном диапазоне.

0,14≤х≤0,5

Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

Зависимость последующего члена от предыдущего:

Sub rekkurent 3()

e = 0.001

x = Val(InputBox("Введите x", "Ввод x")) 'Ввод данных в диалоговом окне

S = 0

a = x

n = 1

While Abs(a) > e

S = S + a

a = -a * x ^ 2 * (2 * n - 1) / (2 * n + 1)

n = n + 1

Wend

MsgBox "n=" & n

MsgBox "S=" & S

MsgBox "Atn(x)=" & Atn(x)

End Sub

Массивы переменных

Массив – это индексированная группа данных, которая обрабатывается как единая переменная. Различают одномерные и многомерные массивы. Одномерные массивы называют также векторами, двумерные – матрицами.

Для объявления массивов используется инструкция Dim. При объявлении массива необходимо указать его размер.

Примеры объявления массивов:

Dim A(10) As Integer ‘ одномерный целочисленный массив

Dim X(4; 5) As Double ‘двумерный массив чисел двойной точности, первый аргумент представляет строки, второй – столбцы.

Как при описании других переменных, если тип данных при описании массива не задается, подразумевается, что элементы массива имеют тип Variant. Первая строка приведенного выше примера объявляет массив из 10 целых чисел, причем по умолчанию первый элемент массива будет А(0), последний А(9). В этом случае говорят, что 0 - это базовый индекс.

Можно изменить базовый индекс массива, если в начале программы (на уровне модуля) поставить оператор Option Base 1. После этого индексы массивов А и В из нашего примера будут начинаться с единицы.

Другим способом изменения базового индекса является использование ключевого слова То при объявлении массива.

Dim A(1 To 10) As Integer

Dim X(1 To 4; 2 To 5) As Double

Одномерные массивы

Пример 1:

Дана последовательность чисел а={a_i}, , n=10

Подсчитать количество и произведение отрицательных элементов массива, вычислить среднеарифметическое положительных элементов. Результат вывести в диалоговом окне.

Решение в редакторе Microsoft Visual Basic

(Запись макроса в виде отдельной процедуры):

1. Откройте свой пользовательский файл, переименуйте лист в Массив1.

2. Введите в ячейки А1:А10 на листе Массив1 целочисленные элементы массива.

3. Перейдите в редактор Microsoft Visual Basic и наберите программу.

Sub Massiv1()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Worksheets("Массив1").Cells(i, 1).Value

Next i

k = 0 'счетчик положительных элементов

m = 0 'счетчик отрицательных элементов

S = 0 'начальное значение суммы

p = 1 'начальное значение произведения

For i = 1 To 10

If a(i) < 0 Then m = m + 1: p = p * a(i)

If a(i) > 0 Then S = S + a(i): k = k + 1

Next i

Sr = S / k 'расчет среднеарифметической суммы положительных элементов

MsgBox "Количество отрицательных элементов m=" & m

MsgBox "Произведение отрицательных элементов p=" & p

MsgBox "Среднеарифм. сумма положительных элементов Sr=" & Sr

End Sub

Двумерные массивы

Пример 1:

Дана матрица А={a_i,j},

, n=3,

, m=4.

Найти минимальный и максимальный элементы матрицы. Результат вывести на лист Матрица2.

Решение в редакторе Microsoft Visual Basic:

4. Откройте свой пользовательский файл, переименуйте лист в Матрица2.

5. Введите в ячейки А1:D3 на листе Матрица2 элементы массива.

6. Перейдите в редактор Microsoft Visual Basic и наберите программу.

Sub Matrica()

Dim a(1 To 3, 1 To 4) As Double

For i = 1 To 3

For j = 1 To 4 ' i,j - индексы элементов матрицы

a(i, j) = Worksheets("Матрица2").Cells(i, j).Value

Next j

Next i

Min = a(1, 1)

Max = a(1, 1)

For i = 1 To 3

For j = 1 To 4

If a(i, j) <= Min Then Min = a(i, j)

If a(i, j) >= Max Then Max = a(i, j)

Next j

Next i

Worksheets("Матрица2").Range("F1").Value = Min

Worksheets("Матрица2").Range("F2").Value = Max

End Sub

В приведенном выше примере индексы элементов матрицы совпадают с номерами строк и столбцов в таблице.

Пример 2:

Дана матрица А={a_i,j},

, n=3,

, m=3.

Найти сумму элементов на главной диагонали. Результат вывести на лист Матрица2.

Решение в редакторе Microsoft Visual Basic:

1. Откройте свой пользовательский файл, перейдите в лист Матрица2.

2. Введите в ячейки А5:С7 на листе Матрица2 элементы массива.

3. Перейдите в редактор Microsoft Visual Basic и наберите программу.

Sub Matrica2()

Dim a(1 To 3, 1 To 3) As Variant

i1 = 5 'номер строки для чтения текущего значения матрицы

For i = 1 To 3

j1 = 1 'номер столбца для чтения текущего значения матрицы

For j = 1 To 3

a(i, j) = Worksheets("Матрица2").Cells(i1, j1).Value

j1 = j1 + 1

Next j

i1 = i1 + 1

Next i

s = 0

For i = 1 To 3

s = s + a(i, i) 'расчет суммы элементов по главной диагонали

Next i

Worksheets("Матрица2").Range("e5").Value = s

End Sub

В примере 2 индексы элементов матрицы не совпадают с номерами строк и столбцов в таблице.

Контрольная работа № 1

По теме

«Программирование в среде Excel Visual Basic»

Каждому студенту предлагаются задания по рассмотренным разделам курса, причем последняя цифра в номере варианта должна совпадать с последней цифрой шифра студента. Например, студент, имеющий шифр 101023, решает вариант № 3 контрольной работы.

Задание № 1

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

1. , где , x=3.75, y=-2.3, r=41.2*10^-2

2. , где m=0.7, F=7.7, t=5.1, c=3*10^-4

3. , где m=1.6, g=9.8, c=0.17

4. , где y=5.1, a=6.27, c=7*10⁵, b=1.5

5. , где m=0.7, r=25, γ=6.67

6. , где m=5.96*10⁶, a=70, δ=2, γ=10^-4

7. , где a=5.6, u=7.4,c=10⁴, b=8.76

8. , где w=2, m=0.5, v=1.1, z=50

9. , где l=5.1, m=0.85, g=9.8, k=7.6

10. , где R=1.01, m=0.3, w=6, g=9.8

Задание № 2

Составить разветвляющуюся программу при любых значениях параметров. Ввод данных и вывод результата выполнить в диалоговом окне.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

Задание № 3

Составить программу вычисления по рекуррентным формулам без использования массивов.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

Задание № 4

Составить программу вычисления и вывода на рабочий лист «Лист4» таблицы значений функций двух переменных.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

Задание № 5

Вычислить суммы рядов, используя зависимость последующего члена от предыдущего (а не общую формулу слагаемого), с точностью е=0,001 и сравнить полученный результат с точным значением, определяемым по формуле для левой части выражения. Значения аргумента х может быть любым в заданном диапазоне.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

Задание № 6

Даны две последовательности чисел: a₁, a₂, a₃, …, a₁₃; b₁, b₂, b₃, …, b₁₃.

Используя эти последовательности, вычислить соответствующие величины. Символами Π и Σ обозначены произведения и суммы всех элементов соответствующих последовательностей.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

Задание № 6

Дана следующая матрица:

1. Определить количество положительных и отрицательных элементов в каждом столбце.

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

3. Вычислить суммы положительных и произведения отрицательных элементов каждого столбца.

4. Вычислить произведения положительных и отрицательных элементов каждой строки.

5. Вычислить суммы положительных и отрицательных элементов каждого столбца.

6. Определить количество положительных и отрицательных элементов в каждой строке.

7. Вычислить произведения положительных и суммы отрицательных элементов каждого столбца.

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

9. Вычислить суммы положительных и отрицательных элементов каждого столбца.

10. Вычислить произведения положительных и отрицательных элементов каждой строки.

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

1. Создание макросов и диалогов в Excel: Метод. указания / КГТУ; Сост.: С. А. Понкратова, А. С. Сироткин и др. Казань,2001. – 28 с.

2. Программирование в среде Excel: Метод. указания / КГТУ; Сост.: С. А. Понкратова, А. С. Сироткин и др. Казань,2001. – 48 с

3. Безручко В.Т. Практикум по курсу «Информатика». Работа в Windows, Word, Excel: Учебное пособие. – М.: Финансы и статистика, 2002. - 272 с.: ил.

4. Информатика: Учебник/ Под ред. Проф. Н.В. Макаровой. – М.: Финансы и статистика, 1997. – 768 с.: ил.

5. Информатика: Практикум по технологии работы на компьютере/ Под ред. Н.В. Макаровой. – 3-е изд., перераб. – М.: Финансы и статистика, 2001. – 256 с.: ил

6. Информатика: Базовый курс/ С. В. Симонович и др. – СПб.: Питер, 2001. – 640 с.: ил

7. Excel 2000: Метод. указ. / КГТУ; Сост. А. В. Аксянова, Ю. П. Александровская и др. – Казань, 2001. –48 с.

Содержание

1. Работа с табличным процессором Microsoft Excel. 3

1.1. Основные понятия Microsoft Excel 4

1.2. Формат ячеек таблицы_ 5

1.3. Автозаполнение числами_ 5

1.4. Присвоение имён ячейкам таблицы_ 6

1.4.1. Особенности присвоения имён_ 6

1.5. Вычисления в электронной таблице Microsoft Excel 7

1.5.1. Формулы_ 7

1.6. Использование стандартных функций_ 7

1.7. Построение диаграмм_ 7

1.7.1. Тренды_ 9

1.6. Процедура Подбор параметра_ 11

1.7. Матричные операции_ 12

1.8. Решение задач линейного программирования (ЗЛП) 14

1.8.1Использование надстроек_ 14

1.8.2. Поиск решения_ 14

2. Excel и язык программирования Visual Basic _ 17

2.1. Макросы_ 17

2.1.1. Создание макроса автоматически записанного при заполнении таблицы Excel 17

2.1.2. Выполнение макроса_ 18

2.1.3. Просмотр, редактирование и изменение макроса_ 18

2.1.4. Кнопки_ 18

2.2. Принципы объектно-ориентированного программирования_ 19

2.2.1. Объекты_ 19

2.2.2. Методы_ 19

2.2.3. Свойства_ 19

2.3. Организация программы на языке Excel Visual Basic_ 20

2.4 Переменные и константы_ 21

2.5. Тип данных_ 21

2.6. Объявление переменных_ 23

2.7. Области видимости переменных и констант_ 23

2.8. Приоритет операций_ 24

2.9. Правила присвоения имен в Visual Basic_ 24

2.10. Ввод данных_ 24

2.10.1. Ввод данных в программе_ 24

2.10.2. Ввод данных в диалоговом окне_ 25

2.10.3. Ввод данных в диалоговом окне_ 25

2.11. Вывод результатов_ 26

2.11.1. Вывод результатов с использованием диалоговых окон_ 26

2.11.2. Вывод результатов в ячейки таблицы_ 26

2.12. Элементарные функции_ 26

3. Линейные вычислительные процессы_ 27

3.1. Создание диалога_ 29

4. Разветвляющиеся вычислительные процессы_ 33

3. Циклические вычисления_ 36

3.1 Табулирование_ 37

3.1.1. Табулирование функции одной переменной_ 37

3.1.2. Табулирование функции двух переменных_ 38

3.2. Цикл с условием_ 39

3.2.1. Рекуррентные вычисления_ 40

3.4. Массивы переменных_ 42

3.4.1. Одномерные массивы_ 43

3.4.2. Двумерные массивы_ 44

Контрольная работа № 1_ 46

«Программирование в среде Excel Visual Basic»_ 46

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

ТАБЛИЧНЫЙ ПРОЦЕССОР EXCEL И

ЯЗЫК ПРОГРАММИРОВАНИЯ

VISUAL BASIC

Для студентов заочного отделения

Часть 1

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...

ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...

Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...

Что вызывает тренды на фондовых и товарных рынках Объяснение теории грузового поезда Первые 17 лет моих рыночных исследований сводились к попыткам вычис­лить, когда этот...

Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте: