ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯМЕТОДИЧЕСКИЕ УКАЗАНИЯ к выполнению лабораторной работы ”Использование функций для организации интерфейса в подпрограммах на VBA” по учебной дисциплине «Информатика и компьютерная техника» для студентов направления подготовки «Менеджмент»
Севастополь
УДК 658. Использование функций для организации интерфейса в подпрограммах на VBA. Методические указания по выполнению лабораторной работы по дисциплине "Информатика и компьютерная техника" / Сост. Ю.Л. Явкун - Севастополь: Изд-во СевНТУ, 2010. - 12 с.
Целью методических указаний является применение теоретических знаний по теме «Использование функций для организации интерфейса в подпрограммах на VBA» в рамках курса «Информатика и компьютерная техника». Методические указания предназначены для студентов дневной формы обучения направления подготовки «Менеджмент».
Содержание 1 ЦЕЛЬ РАБОТЫ.. 4 2 КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ.. 4 2.1 Функция InputBox. 4 2.2 Функция MsgBox. 5 2.3 Вызов подпрограмм. 7 3 ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ.. 9 ПРИЛОЖЕНИЕ А.. 10 ПРИЛОЖЕНИЕ Б. 12
ЦЕЛЬ РАБОТЫ Изучить приемы организации простейшего интерфейса пользователя в подпрограммах в Microsoft Excel с помощью функций InputBox и MsgBox.
КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ
При создании программ на языке VBA пользователю часто приходится организовывать ввод данных в программу и вывод результатов работы программы на экран. Существует несколько способов организации интерфейса в программах. Простейшие интерфейсные элементы создаются с помощью функций InputBox и MsgBox. Функция InputBox
Функция InputBox осуществляет ввод значений с помощью окна ввода. Простейший синтаксис: InputBox (текстовая_строка), где • текстовая_строка - это обязательный аргумент; он задает в окне информационное сообщение, обычно поясняющее смысл вводимой величины; Так, например, если в тексте программы записать: InputBox("Введите число A "), то будет сформировано окно следующего вида:
Более подробная форма записи функции InputBox имеет вид: InputBox(Prompt, [Title], [Default], [Xpos], [Ypos], [HelpFile], [Context]) As String При этом • Prompt - сообщение, которое выводится из диалогового окна; • Title - заголовок диалогового окна; • Buttons - кнопки, которые выводятся в диалоговом окне; • Xpos, Ypos - координаты верхнего левого угла диалогового окна; • Default - символ, который выводится в поле ввода (для функции InputBox), например «пробел»; • HelpFile - файл-справка; • Context - описание.
Для того, чтобы с помощью функции можно было вводить данные в программу, можно использовать следующие конструкции: A = CInt(InputBox("Введите число A ")) B = CDbl(InputBox("Введите число B ")) Здесь функции CInt и CDbl возвращают в программу и присваивают переменным A и B, соответственно, целочисленное значение и значение в формате с плавающей точкой двойной точности, полученные каждое в своем интерфейсном окне, сформированном функцией InputBox.
Функция MsgBox В простейшем случае функция MsgBox имеет следующий синтаксис: MsgBox(текстовая строка), Где текстовая_строка - это обязательный аргумент, задающий в окне выводимое информационное сообщение; может состоять из нескольких текстовых строк, объединенных знаком «&»:
Рассмотрим простейшую процедуру, в которой используются функции MsgBox и InputBox: Даны 3 числа. Найти среднее из них (т.е. число, расположенное между наименьшим и наибольшим).
Private Sub CommandButton1_Click() Dim A, B, C, X As Double A = CInt(InputBox("Введите число A ", "Ввод данных")) B = CDbl(InputBox("Введите число B ", "Ввод данных")) C = CDbl(InputBox("Введите число C ", "Ввод данных")) If (A < B) And (A > C) Or (A > B) And (A < C) Then X = A If (B < A) And (B > C) Or (B > A) And (B < C) Then X = B If (C < A) And (C > B) Or (C > A) And (C < B) Then X = C MsgBox ("Число, расположенное между миним. и макс. = " & X) End Sub Диалоговое окно, заданное функцией InputBox, имеет заголовок «Ввод данных», а в самом диалоговом окне содержится приглашение «Введите число А», «… B», «… C». В окне вывода, заданном функцией MsgBox, выводится сообщение «Число, расположенное между миним. и макс. =» и указывается числовое значение. (Данный пример не учитывает ситуаций, когда два или три введенных числа равны. Проверьте работу программы в этом примере для разных чисел и доработайте программу для случаев равенства вводимых чисел в следующей лабораторной работе.)
По умолчанию предполагается, что в окне MsgBox содержится одна строка текста. Однако включение в выводимую строку функции Chr$(13) приводит к переходу на новую строку при выводе информации. Если при этом используется также функция Chr$(9), которая возвращает символ табуляции, то можно в окне MsgBox получать многострочные таблицы. В качестве примера рассмотрим табулирование функции : Private Sub CommandButton1_Click() Dim Stroka As String Dim x As Double Dim y As Double Stroka = "X =" & Chr$(9) & "Y =" & Chr$(13) & Chr$(13) MsgBox ("В примере вычисляется функция y=x^(1/2)" & Chr$(13) & _ "Значение х меняется в цикле от 1 до 5" & Chr$(13) & _ "Нажмите ENTER") For x = 1 To 5 y = Sqr(x) Stroka = Stroka & x & Chr$(9) & y & Chr$(13) Next x MsgBox (Stroka) MsgBox ("Пока все! Привет;-)") End Sub В данном случае для функции MsgBox формируется строковая (текстовая) переменная Stroka, начальным значением которой задается заголовок «X= … Y= …», затем в цикле к этой переменной добавляются пары значений «x», изменяемого от 1 до 5 с шагом 1 и «y», полученным как корень квадратный из «x»:
Вызов подпрограмм
Для вызова подпрограмм, использующих интерфейсные окна, также существует несколько способов. В лабораторной работе можно использовать встроенную в рабочий лист командную кнопку. Выполните команду «Вид → Панели инструментов → Элементы управления», выберите элемент «кнопка» (CommandButton), и укажите на рабочем листе место ее размещения: Двойной щелчок по внедренной кнопки вызовет редактор VBA, в котором можно задать свойства программной кнопки (например, надпись на ней (Caption) – «Задание № 1»), а также записать текст подпрограммы, вызываемой этой кнопкой: Не нашли, что искали? Воспользуйтесь поиском:
|