Лабораторная работа №          Тема: "Знакомство с интегрированной средой разработки vba"




Скачать 319.11 Kb.
НазваниеЛабораторная работа №          Тема: "Знакомство с интегрированной средой разработки vba"
страница1/3
Дата публикации28.02.2013
Размер319.11 Kb.
ТипЛабораторная работа
uchebilka.ru > Информатика > Лабораторная работа
  1   2   3

Лабораторный практикум

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

Тема: "Знакомство с интегрированной средой разработки VBA"

Цель работы: получить навыки работы в среде VBA.

Задание:

1.     Загрузить приложение Ехсеl.

2.     На "Лист1" Ехсеl занести исходные данные:

 

А

В

С

1

a=

5

 

2

b=

2

 

3

n=

3

 

3.     Загрузить редактор VBA: Сервис   Макрос Редактор VBA.

4.     Создать новый модуль: Вставка Модуль. В его окне написать текст программы:

Sub Prtm1()

Dim a As Single, b As Single, c As Single

Dim d As Single, i As Integer, n As Integer

Sheets("Лист1").Activate

a= Cells(1,2)

b= Cells(2,2)

n= Cells(3,2)

For  i=1 To n

c=a*b/(a-b)*i

d=c*b/4

Cells(i+1,4)=i

Cells(i+1,5)=c

Cells(i+1,6)=d

Next i

Cells(1,4)="i"

Cells(1,5)="c"

Cells(1,6)="d"

End Sub

5.     Cохранить модуль в книге с именем ОТЛАДКА в папке своей группы.

6.     Закрыть окно VBA и Ехсеl.

7.     Загрузить приложение Ехсеl и открыть книгу ОТЛАДКА, а затем окно Модуля1.

8.     Запустить программу на выполнение.

9.     Если есть ошибки, то исправить их и запустить программу повторно.

10.                       Переключиться на "Лист1" Ехсеl, просмотреть результаты работы программы, а затем удалить результаты работы программы.

11.                       Вернуться в окно редактора VBA.

12.                       Осуществить пошаговое выполнение программы, просматривая при этом значения всех переменных.

13.                       Создать новый модуль, в который скопировать текст программы из Модуля1.

14.                       Изменить в тексте программы Модуля2 оператор

Sheets("Лист1").Activate        на оператор  

Sheets("Лист2").Activate

15.                       Переключиться на "Лист2" Ехсеl и занести туда новые исходные данные для программы.

16.                       Вернуться в окно Модуля2 и запустить программу на выполнение.

17.                       Переключиться на "Лист2" Ехсеl и просмотреть результаты работы программы.

18.                       Показать работу преподавателю.

^ 6.2. Лабораторная работа №2.

Тема: "Создание экранных форм: работа с элементами управления"

Цель работы: научиться работать с элементами управления в среде VBA.

Задание:

1.    Разработать блок-схему алгоритма и проект VBA с экранной  формой (см. пример экранной формы) в соответствии с вариантом задания (варианты приведены ниже):

  • Войти в интегрированную среду разработки VBA:  Сервис   Макрос   Редактор VBA.

  • Отобразить Окно Проекта : Вид(View)   Project Explorer

  • Отобразить Окно Свойств выделенного элемента управления : Вид(View)  Properties Windows

  • Добавить форму в проект : Вставка(Insert)  USER FORM.

  • Добавить нужные элементы управления на форму с помощью  Панели элементов (ToolBox).

  • Определить Свойство (Name) для текстовых полей (TextBox) и кнопок (CommandButton).

  • Определить Свойство  Caption для формы пользователя (User Form),надписей(Label), командных кнопок (CommandButton).

2.    Изменить шрифт надписей "Исходные данные" и "Результаты" (Свойства-Font).

3.    Установить бирюзовый цвет фона формы пользователя (Свойства –BackColor).

4.    Установить серый цвет фона кнопок (Свойства –BackColor).

5.    Добавить рисунок в форму пользователя (Свойства Picture Выбрать рисунок на свой вкус).

6.    Создать программный модуль в соответствии с вариантом задания:

  • Двойной щелчок по кнопке "Вычисление" в окне редактора VBA ввести текст подпрограммы обработки щелчка по кнопке CmdSolve.

  • Двойной щелчок по кнопке "Очистка" в окне редактора VBA ввести текст подпрограммы обработки щелчка по кнопке

  •  CmdClear.

  • Двойной щелчок по кнопке "Выход" в окне редактора VBA ввести текст подпрограммы обработки щелчка по кнопке CmdExit..

7.    Когда текст всех подпрограмм введен, выполнить Запуск (Run Macro) программы и если есть сообщения об ошибках компиляции – исправить их и вновь выполнить запуск программы.

8.    В режиме выполнения программы ввести исходные данные в соответствующие поля.

9.    Щелкнуть по кнопке "Вычисление".

10.                       Щелкнуть по кнопке "Очистка".

11.                       Ввести другие значения входных данных.

12.                       Щелкнуть по кнопке "Выход".

Методические указания.

Рассмотрим пример экранной формы:

 












 

^ 6.3. Лабораторная работа №3.

Тема: "Создание программных модулей VBA для обработки

табличных данных MS Excel ".

Цель работы: научиться обрабатывать табличне данные в среде VBA.

Задание:

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

^ Методические указания.

Рассмотрим пример решения следующей задачи:

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

1                 Создать таблицу следующей структуры:

–                   индекс группы;

–                   фамилия студента;

–                   оценки по пяти экзаменам;

–                   стипендия;

2                 Добавить в таблицу произвольное количество строк;

3                 Рассчитать стипендию студентам по результатам сессии, причем отличникам стипендию увеличить на 100%, сдавшим без троек – увеличить на 30%, а при наличии хотя бы одной двойки стипендию не начислять;

4                 Создать на 2-ом листе книги ведомость для выдачи стипендии студентам;

5                 Сортировать данные в таблице по выбранной колонке;

6                 Изменить показатели студента с заданной фамилией;

7                 Удалить из таблицы данные о студентах, имеющих более двух двоек.

 Пример таблицы:

 

^ Индекс группы

ФИО студента

Экзамен 1

Экзамен 2

Экзамен 3

Экзамен 4

Экзамен 5

Стипендия 

УТР02Б

Петров

5

4

5

4

2

0

УТР02А

Иванов

4

5

3

3

3

100

УТР02А

Климова

5

4

5

4

3

100

УТР02А

Морозова

3

3

3

3

3

100

УТР02А

Абрамова

4

4

5

3

3

100

УТР02А

Сидоров

4

4

3

3

4

100

УТР02Б

Жуковская

4

3

5

4

4

100

УТР02А

Ющенко

3

3

3

3

3

100

УТР02Б

Жукова

5

5

5

5

5

200

 

Для решения данной задачи предлагается следующий проект:

 





 

^ Программный модуль «ВВОД» (вызывается и в режиме «ДОБАВИТЬ»):

Dim i As Double

Private Sub UserForm_Activate()

   Подсчет количества строк в таблице и вывод  на форму в поле txtN 

   i = 1

   Do While Cells(i, 1) > " "

      i = i + 1

   Loop

   txtN.Enabled = True

   txtN.Text = CStr(i - 2)

   txtN.Enabled = False

End Sub









 

 

 

 

 

Программный модуль «СОРТИРОВКА»:



 

 

Программный модуль «КОРРЕКТИРОВКА»: 

МодульKOR



 

 

Программный модуль «КОРРЕКТИРОВКА» (продолжение): 

 

Модуль KOR1



 

Программный модуль «УДАЛЕНИЕ»:



Вариант 1

1.            Создать таблицу, которая содержит сведения о месячной заработной плате рабочих завода.

Структура таблицы:

-              табельный номер;

-              фамилия рабочего;

-              наименование цеха;

-              размер заработной платы в месяц.

2.            Предусмотреть режим добавления в таблицу произвольного количества строк.

3.            Вычислить:

  • общую сумму выплаты за месяц по заданному цеху

  • среднемесячный заработок этого цеха.

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

5.            Сортировать данные в таблице по заданному столбцу.

6.            Увеличить размер заработной платы у рабочего с заданной фамилией на X% (значение Х задано).

7.            Удалить из таблицы 2 записи. Номера записей задать.

 
  1   2   3

Добавить документ в свой блог или на сайт

Похожие:

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа 1-10
...

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа 1-10
...

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЗнакомство с интегрированной средой Delphi 7
Цель практической работы: ознакомиться с внешним видом интегрированной среды программирования Delphi и составом проекта в Delphi;...

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЗнакомство с интегрированной средой Delphi 7
Цель практической работы: ознакомиться с внешним видом интегрированной среды программирования Delphi и составом проекта в Delphi;...

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №1. "Знакомство с Си++. Выполнение программы простой структуры"
Цель: Знакомство со средой программирования, создание, отладка и выполнение простой программы, содержащей ввод/вывод информации и...

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №3 Тема: Программирование алгоритмов циклической...
Тема: Программирование алгоритмов циклической структуры в интегрированной среде языка Turbo Pascal

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №1 Тема: Программирование алгоритмов линейной...
Тема: Программирование алгоритмов линейной структуры в интегрированной среде языка Turbo Pascal

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №2 Тема: Программирование алгоритмов разветвляющейся...
Тема: Программирование алгоритмов разветвляющейся структуры в интегрированной среде языка Turbo Pascal

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №2 Тема: Программирование алгоритмов линейной...
Тема: Программирование алгоритмов линейной структуры в интегрированной среде языка Turbo Pascal

Лабораторная работа №          Тема: \"Знакомство с интегрированной средой разработки vba\" iconЛабораторная работа №4 Тема: Программирование алгоритмов циклической...
Тема: Программирование алгоритмов циклической структуры в интегрированной среде языка Turbo Pascal

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
uchebilka.ru
Главная страница


<