Запуск программы на выполнение

Запуск программы на выполнение можно производить:

1. Из редактора Visual Basic;

2. Из Microsoft Excel.

Запуск из редактора Visual Basic

Запуск программы на выполнения из редактора Visual Basic можно осуществлять, как из диалогового окна «Макрос», так и непосредственно с активного окна программного кода.

Чтобы запустить программу из диалогового окна «Макрос» необходимо выполнить следующие действия:

1. Вызвать, одним из способов, диалоговое окно «Макрос»:

Ø щелкнуть на кнопке «Run» (Выполнить) в панели инструментов «Standard» или «Debug» редактора VBA;

Ø нажать клавишу «F5»;

Ø выбрать команду меню RunÞ Run Macro;

2. В появившемся окне «Макрос», вид которого представлен на рис. 4, выбрать необходимый макрос (например, Perimetr) и нажать клавишу «Enter» или кнопку с именем «Run», или двойным щелчком левой кнопкой мыши на имени макроса.

Запуск программы при активном окне программного кода осуществляется следующим образом:

1. В активном окне программного кода установить курсор в любой строке запускаемой программы;

2. Запустить программу одним из способов описанных выше (запуск окна «макроса»).

Рис. 4. Диалоговое окно «Макрос»

Запуск из Microsoft Excel

Запуск программы из Microsoft Excel можно осуществить как из, знакомого уже окна «Макрос», так и с использованием управляющей кнопки.

Запуск программы из диалогового окна «Макрос» выполняется таким же самым образом, как и в редакторе Visual Basic. Однако рассмотрим способы вызова диалогового окна «Макрос» средствами Microsoft Excel:

1. щелкнуть на кнопке «Run» (Выполнить) в панели инструментов «Visual Basic»;

2. выбрать команду меню СервисÞ МакросÞ Макросы…;

3. нажать сочетание клавиш «Alt+F8».

Для запуска программы по управляющей кнопке, в первую очередь, необходимо выполнить настройку кнопки и действия по «связыванию» кнопки с конкретной программой, для этого выполняются следующие действия:

1. нажать на кнопке , которая находится на панели инструментов «Формы»;

2. щелкнуть левой кнопкой мыши на месте, где будет размещаться кнопка;

3. в появившемся диалоговом окне «Назначить макрос объекту» из списка доступных макросов выбрать необходимый и нажать кнопку «OK».

После выполнений данных действий программу можно запускать нажатием созданной кнопки. По необходимости можно изменить размеры кнопки, название, шрифт и т.п.

ПРИМЕР РЕШЕНИЯ ЗАДАЧИ

Условие задачи.

Дан круглый прямой цилиндр с радиусом основания R и высотой H. Вычислить полную поверхность цилиндра по формуле: .

Математическая постановка задачи.

2.1. Принятые обозначения:

S – площадь поверхности цилиндра;

R – радиус основания;

H – высота цилиндра.

2.2. Исходные данные: R, H.

2.3. Зависимости необходимые для решения задачи:

(1)

2.4. Ограничения: R> 0; H > 0.

2.5. Найти: S.

Блок-схема алгоритма.

Блок-схема алгоритма решаемой задачи представлена на рис. 5.

Рис. 5. Блок-схема алгоритма

Таблица соответствия.

Имя математической переменной	Идентификатор в программе
R	R
H	H
S	S

Листинг программы.

Option Explicit

' Лабораторная работа №1

'Решение задач с линейным алгоритмом

'Выполнил студент гр. 416 Иванов И.С.

'Вычисление площади цилиндра S

Public Sub Cilindr()

Const Pi = 3.14 ' объявление константы

Dim R, H, S As Single 'объявление переменных

'Ввод значения переменной H

H = Val(InputBox(" Введите значение высоты цилиндра", " Ввод данных" ))

'Ввод значения переменной R

R = Val(InputBox(" Введите значение радиуса цилиндра", " Ввод данных" ))

S = 2 * Pi * R * (R + H) 'вычисление значения площади

Range(" B2" ).Value = " Высота цилиндра H=" 'Вывод в ячейку B2 подсказки

Range(" C2" ).Value = H 'Вывод в ячейку С2 значения переменной H

Range(" B3" ).Value = " Радиус цилиндра R=" 'Вывод в ячейку B3 подсказки

Range(" C3" ).Value = R 'Вывод в ячейку С3 значения переменной H

Range(" B4" ).Value = " Площадь цилиндра S=" 'Вывод в ячейку B4 подсказки

Range(" C4" ).Value = S 'Вывод в ячейку С4 значения переменной S

End Sub

⇐ Предыдущая 1 2 3 45