73163

Разработка программ в среде Visual Basic

Лабораторная работа

Информатика, кибернетика и программирование

Записать процедуру для вычисления значения ступенчатой функции Z для заданного варианта. Предусмотреть запуск программы из среды Word и возможности ввода значения переменной x из диалогового окна InputBox, а также вывод значения Z в панели сообщения MsgBox.

Русский

2014-12-05

83.61 KB

4 чел.

Министерство образования Российской Федерации

Пензенский государственный университет

Кафедра «Электротехника и транспортное электрооборудование»

ОТЧЁТ
по лабораторной работе №2
по курсу «Компьютерные технологии»
на тему «
Разработка программ в среде Visual Basic»

                                              Выполнил :

студент группы 14еэ2

Мишанин Кирилл

                                          Приняла:

Регеда О. Н.

Вариант № 1

  1.  Записать процедуру для вычисления значения ступенчатой функции Z  для заданного варианта. Предусмотреть запуск

программы из среды Word и возможности ввода значения переменной x из диалогового окна InputBox ,а также вывод

значения Z в панели сообщения MsgBox.

Составим программу:

Sub Макрос1 ()

x = InputBox ("x=", "Введите значение")

If x < 0 Then Z =10.5 * x ^ 3 + 1

If 0 < x < 1 Then Z = 5(x + 1) ^ 3

If x >= 1 Then Sqr (x^2 + 10) 

MsgBox Z

End Sub

Скрин программы.

Запустим созданный макрос и введём переменную х=7:

Получим результат Z= 2560

  1.  Записать процедуру , запускаемую из Word, для вычисления и вывода на панель сообщений MsgBox значений функции для заданного варианта.

Значения x меняются от -20 до 20 с шагом 2.

Для организации циклов в одной процедуре испозовать оператор 1) ForNext , а в другой процедуре – оператор 2) WhileWend.

Вывести полученные результаты 1) с точностью один знак после запятой на панели сообщений в одну сторону строку для первой процедуры и 2) в отдельной панели сообщений для второй процедуры.

Составим программу:

Sub Макрос2()

n = InputBox("Введём значение n")

n = Val(n)

For x = -20 To 20 Step 2

A = 0

For n = 1 To 5

A = A + (1000 * n + x ^ 4) ^ 0.5

A = Round(A, 1)

Next n

MsgBox "x=" + CStr(x) + "A=" + CStr(A)

Next x

End Sub

Введём значение n =1

Результат:

От  до


3.
Составить процедуру , запускаемую из Word , для вычисления и вывода на панель сообщений MsgBox наибольшего и наименьшего значения функции для заданного варианта из таблицы и значение аргумента при котором оно получено.

Sub Макрос3()

Max = 0

Min = 0

For x = 0 To 360 Step 10

Y = -Sin(x / 2)

Y = Round(Y, 3)

If Y > Max Then Max = Y

If Y < Min Then Min = Y

Next x

MsgBox "Max =" + CStr(Max) + "Min=" + CStr(Min)

End Sub

Результат :

Вывод: в ходе лабораторной работы я научился использовать операторы InputBox и MsgBox.


 

А также другие работы, которые могут Вас заинтересовать

15576. Организация и проведение проверок в сфере рекламы 23 KB
  35.1. Организация и проведение проверок в сфере рекламы 1. Государственный надзор в сфере рекламы осуществляется в порядке установленном Правительством Российской Федерации.2. К отношениям связанным с организацией и проведением проверок юридических лиц индивидуальн
15577. Решения и предписания антимонопольного органа по результатам рассмотрения дел, возбужденных по признакам нарушения законодательства Российской Федерации о рекламе 69.5 KB
  36. Решения и предписания антимонопольного органа по результатам рассмотрения дел возбужденных по признакам нарушения законодательства Российской Федерации о рекламе1. Антимонопольный орган в пределах своих полномочий возбуждает и рассматривает дела по признакам нару
15578. Оспаривание решений и предписаний антимонопольного органа 28 KB
  37. Оспаривание решений и предписаний антимонопольного органа1. Решение предписание антимонопольного органа могут быть оспорены в суде или арбитражном суде в течение трех месяцев со дня вынесения решения выдачи предписания.2. Подача заявления о признании недействительн
15579. Ответственность за нарушение законодательства Российской Федерации о рекламе 112 KB
  38. Ответственность за нарушение законодательства Российской Федерации о рекламе1. Нарушение физическими или юридическими лицами законодательства Российской Федерации о рекламе влечет за собой ответственность в соответствии с гражданским законодательством.2. Лица прав...
15580. Вступление в силу настоящего Федерального закона 11.5 KB
  39. Вступление в силу настоящего Федерального закона1. Настоящий Федеральный закон вступает в силу с 1 июля 2006 года за исключением части 3 статьи 14 части 2 статьи 20 и пункта 4 части 2 статьи 23 настоящего Федерального закона.2. Часть 2 статьи 20 и пункт 4 части 2 статьи 23 настоящего ...
15581. Регулирование отношений в сфере рекламы со дня вступления в силу настоящего Федерального закона 24.5 KB
  40. Регулирование отношений в сфере рекламы со дня вступления в силу настоящего Федерального закона1. Со дня вступления в силу настоящего Федерального закона признать утратившими силу:1 Федеральный закон от 18 июля 1995 года № 108ФЗ О рекламе Собрание законодательства Росс...
15582. Маркушин А.Г. К РАЗРАБОТКЕ ДИНАМИЧЕСКОЙ ТЕОРИИ СЫПУЧЕГО ТЕЛА С ТВЕРДЫМ ЗЕРНОМ 79.88 KB
  Маркушин А.Г. К РАЗРАБОТКЕ ДИНАМИЧЕСКОЙ ТЕОРИИ СЫПУЧЕГО ТЕЛА С ТВЕРДЫМ ЗЕРНОМ Сыпучее тело отдельные зерна которого не испытывают пластических деформаций ни при каких обстоятельствах его переработки будем называть твердозёренным сыпучим материалом или сыпу
15583. Разработка математического и аппаратного обеспечения технических расчетов характеристик движения сыпучих материалов в технологических процессах 139 KB
  Маркушин А.Г. Разработка математического и аппаратного обеспечения технических расчетов характеристик движения сыпучих материалов в технологических процессах При решении инженерных задач связанных с проектированием оборудования взаимодействующего с сыпучими
15584. ОБ ОСНОВНЫХ ДЕТАЛЯХ ПОСТРОЕНИЯ ДИНАМИЧЕСКОЙ ТЕОРИИ СЫПУЧЕГО ТЕЛА 22.43 KB
  Контарев А.А. Королева О.А. Маркушин А.Г. ОБ ОСНОВНЫХ ДЕТАЛЯХ ПОСТРОЕНИЯ ДИНАМИЧЕСКОй ТЕОРИИ сыпучЕГО ТЕЛА При решении инженерных задач связанных с конструированием бункеров и бункерного оборудования для хранения и переработки сыпучих материалов необходимо им