Лабораторные работы по информатике
  • Регистрация
1 1 1 1 1 1 1 1 1 1 Рейтинг 1.00 (1 Голос)

Лабораторная работа № 2 Программирование алгоритмов разветвляющейся структуры. Организация циклов в программе. Приемы работы с макросами: создание, запись, выполнение.

 

Цель работы – ознакомление с инструкциями VBA, используемыми для условной передачи управления, – оператором If … Then … Else. Овладение практическими навыками организации циклов в программе с помощью оператора For … Next.

Макрос в Excel – это:

a)  Записанная последовательность команд и действий пользователя, сохраненная под уникальным именем, которую может выполнять Excel.

b)  Созданный программистом код процедуры-подпрограммы

Последовательность действий для создания и использования макроса (процедуры-подпрограммы).

1.  Запустите Excel.

2.  Перейдите в окно редактора Visual Basic. Для этого можно воспользоваться командой меню СервисàМакрос или комбинацией клавиш Alt+F11.

3.  Выполните команду меню Вставкаà Модуль, затем команду ВставкаàПроцедура.

4.  В диалоговом окне введите имя процедуры и выберите тип Процедура (Sub).
Имя должно начинаться с буквы и может содержать буквы, цифры и знаки подчеркивания (пробелы нельзя!).

5.  В окне кода между операторами начала и конца процедуры введите текст (код процедуры).

6.  Перейдите на рабочий лист Excel комбинацией клавиш Alt+F11 или с помощью панели задач.

7.  Введите в ячейки необходимые исходные данные, а затем выполните команду меню СервисàМакросàМакросы. Выберите имя созданного Вами макроса и нажмите кнопку Выполнить.

Последовательность действий для записи макроса как последовательности действий.

1.  «Отрепетируйте» последовательности действий (например, выделите ячейки с данными, выполните команду Очистить, сделайте активной первую ячейку).

2.  Выполните команду меню СервисàМакросàНачать запись.

3.  В открывшемся диалоговом окне введите имя макроса, например, Очистка_результата, и нажмите ОК.

4.  Проделайте последовательности действий, отрепетированных в п.1.

5.  Щелкните на кнопке Остановить запись.

Последовательность действий для создания кнопки и назначения ей макроса

1.  Включите панель инструментов Формы.

2.  Включите на этой панели инструмент Кнопка и нарисуйте с его помощью кнопку нужного размера.

3.  В открывшемся диалоговом окне выберите имя макроса, назначаемого этой кнопке.

6.  Измените текст на кнопке на подходящее название, например, Выполнить.

4.  Щелкните на созданной кнопке для выполнения макроса.

Пример выполнения работы

Задание:

1)  Создать пользовательскую функциюy(x).

2)  Создать процедуру табулирования функции y(x) для x, изменяющихся в пределах заданных начального и конечного значения с указанным шагом изменения.

3)  С помощью панели инструментов Формы создать на рабочем листе с исходными данными две командные кнопки:

a)  Для запуска процедуры заполнения ячеек.

b)  Для запуска процедуры очистки ячеек с исходными данными.
Примечание. Вторую и третью процедуры создать, воспользовавшись средствами автоматической записи макросов.

4)  Протестировать процедуру для следующих значений исходных данных.

 

A

B

C

1

Хнач

Хкон

ΔХ

2

-2

5

0,5

5)  Построить график значений функции в виде точечной диаграммы

Пример решения:

Пользовательская функция для вычисления y(x)

Алгоритм

 

Public Function y(x)

If x <= 0 Then

y = Sin(x)

ElseIf x <= 4 Then

y = Sqr(x)

Else

y = x / 2

End If

End Function



Процедура табулирования функции y(x)

Алгоритм

Лабораторная работа № 2 Программирование алгоритмов разветвляющейся структуры. Организация циклов в программе. Приемы работы с макросами: создание, запись, выполнение.

 

Цель работы – ознакомление с инструкциями VBA, используемыми для условной передачи управления, – оператором If … Then … Else. Овладение практическими навыками организации циклов в программе с помощью оператора For … Next.

Макрос в Excel – это:

a)  Записанная последовательность команд и действий пользователя, сохраненная под уникальным именем, которую может выполнять Excel.

b)  Созданный программистом код процедуры-подпрограммы

Последовательность действий для создания и использования макроса (процедуры-подпрограммы).

1.  Запустите Excel.

2.  Перейдите в окно редактора Visual Basic. Для этого можно воспользоваться командой меню СервисàМакрос или комбинацией клавиш Alt+F11.

3.  Выполните команду меню Вставкаà Модуль, затем команду ВставкаàПроцедура.

4.  В диалоговом окне введите имя процедуры и выберите тип Процедура (Sub).
Имя должно начинаться с буквы и может содержать буквы, цифры и знаки подчеркивания (пробелы нельзя!).

5.  В окне кода между операторами начала и конца процедуры введите текст (код процедуры).

6.  Перейдите на рабочий лист Excel комбинацией клавиш Alt+F11 или с помощью панели задач.

7.  Введите в ячейки необходимые исходные данные, а затем выполните команду меню СервисàМакросàМакросы. Выберите имя созданного Вами макроса и нажмите кнопку Выполнить.

Последовательность действий для записи макроса как последовательности действий.

1.  «Отрепетируйте» последовательности действий (например, выделите ячейки с данными, выполните команду Очистить, сделайте активной первую ячейку).

2.  Выполните команду меню СервисàМакросàНачать запись.

3.  В открывшемся диалоговом окне введите имя макроса, например, Очистка_результата, и нажмите ОК.

4.  Проделайте последовательности действий, отрепетированных в п.1.

5.  Щелкните на кнопке Остановить запись.

Последовательность действий для создания кнопки и назначения ей макроса

1.  Включите панель инструментов Формы.

2.  Включите на этой панели инструмент Кнопка и нарисуйте с его помощью кнопку нужного размера.

3.  В открывшемся диалоговом окне выберите имя макроса, назначаемого этой кнопке.

6.  Измените текст на кнопке на подходящее название, например, Выполнить.

4.  Щелкните на созданной кнопке для выполнения макроса.

Пример выполнения работы

Задание:

1)  Создать пользовательскую функциюy(x).

2)  Создать процедуру табулирования функции y(x) для x, изменяющихся в пределах заданных начального и конечного значения с указанным шагом изменения.

3)  С помощью панели инструментов Формы создать на рабочем листе с исходными данными две командные кнопки:

a)  Для запуска процедуры заполнения ячеек.

b)  Для запуска процедуры очистки ячеек с исходными данными.
Примечание. Вторую и третью процедуры создать, воспользовавшись средствами автоматической записи макросов.

4)  Протестировать процедуру для следующих значений исходных данных.

 

A

B

C

1

Хнач

Хкон

ΔХ

2

-2

5

0,5

5)  Построить график значений функции в виде точечной диаграммы

Пример решения:

Пользовательская функция для вычисления y(x)

Алгоритм

 

Public Function y(x)

If x <= 0 Then

y = Sin(x)

ElseIf x <= 4 Then

y = Sqr(x)

Else

y = x / 2

End If

End Function



Процедура табулирования функции y(x)

Алгоритм

 

Public Sub табуляция()

Xn = Range("A2")

Xk = Range("B2")

Dx = Range("C2")

'Вывод заголовка

Range("A4") = "x"

Range("B4") = "y"

i = 4

For x=Xn To Xk+0.0001 Step Dx

i = i + 1

Cells(i, 1) = x

Cells(i, 2) = y(x)

Next x

End Sub

Таблица с заданными исходными данными и результатами выполнения процедуры имеет следующий вид:

Задание для самостоятельной работы.

Создать процедуру табулирования функции

где x = t3 – t + 0.2, для t, изменяющегося в пределах заданных начального и конечного значения с указанным шагом изменения. Создать на рабочем листе командную кнопку для запуска процедуры. Протестировать процедуру для различных значений исходных данных.

 

Public Sub табуляция()

Xn = Range("A2")

Xk = Range("B2")

Dx = Range("C2")

'Вывод заголовка

Range("A4") = "x"

Range("B4") = "y"

i = 4

For x=Xn To Xk+0.0001 Step Dx

i = i + 1

Cells(i, 1) = x

Cells(i, 2) = y(x)

Next x

End Sub

Таблица с заданными исходными данными и результатами выполнения процедуры имеет следующий вид:

Задание для самостоятельной работы.

Создать процедуру табулирования функции

где x = t3 – t + 0.2, для t, изменяющегося в пределах заданных начального и конечного значения с указанным шагом изменения. Создать на рабочем листе командную кнопку для запуска процедуры. Протестировать процедуру для различных значений исходных данных.

Программирование алгоритмов разветвляющейся структуры VBA - 1.0 out of 5 based on 1 vote

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство