Порядок выполнения работы:
Изучите краткую теорию .
Откройте приложение MS Excel.
Выполните команду СервисàМакросРедактор Visual Basic или нажмите <Alt+F11>.
Добавьте форму (команда Insert UserForm)
Для выполнения примера №1
а)Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewToolBox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка).
б)В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 2.
Сделайте расчёты для трёх случаев
а) Удалите текстовое поле с именем «txtSummaSdelki» и в коде программы строку «S=Val(txtSummaSdelki.Text)»
б) На место удалённого объекта вставьте метку и именем «lblSummaSdelki» (обратите внимание, впереди стоит латинская буква «L» малая, а не «1 (единица)»)
в) На место удалённой строки в коде программы вставьте следующую запись:
S=InputBox(“Введите значение суммы сделки”)
lblSummaSdelki=Str(S)
По введенному числу определить месяц и пору года. Результат выводить на форму в поле, при этом размерами его управлять программно в зависимости от результата.(использовать оператор Select Case.)
Найдите площадь треугольника по формуле Герона. Программа должна проверять существование треугольника по введённым сторонам, и если он существует, то выводить его площадь, а в противном случае выводить сообщение о невозможности существования треугольника.
Найти сумму двух наименьших из трёх положительных целых чисел, запрашиваемых у пользователя.
Выполните пример №3.
Вычислить значение функции на заданных интервалах, с указанным шагом изменения аргумента и выводом в текстовое или в список с шагом –10
Оформите отчёт и сделайте вывод.
Литература.
Пономарев В. Visual Basic.NET: – Экспресс-курс. – СПб.: BHV - Санкт - Петербург, 2003.-432с.
Шевякова Д.А. Самоучитель Visual Basic 2008. СПб.: БВХ – Петербург,2008- 592с.
Угринович Н.Д. Информатика и информационные технологии. Учебник для 10-11 классов- М.: БИНОМ. Лаборатория знаний, 2006.- 511с.
Составил : Титаренко С.А.