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.


 

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

47101. Агрохимическая служба в стране. Почвенный покров полярных и субполярных областей 53 KB
  Им был предложен термин элементарный почвенный ареал ЭПА это почвы относящиеся к какойлибо одной классификационной единице наиболее низкого ранга разряда занимающие пространство со всех сторон ограниченное другими ЭПА или непочвенными образованиями. Агрохимические картограммы это карты землепользования хозяйства где условными обозначениями указано содержание доступных форм питательных элементовазот фосфор калий микроэлементы гумус а также кислотность емкость катионного обмена степень насыщенности почвы основаниями....
47102. Основы психологии и педагогики 56.5 KB
  Наличием души пытались объяснить все непонятные явления о жизни человека: 2психология как наука о сознании начался с развитием естественных наук в 17в. Задачей психологии на этом этапе быдл наблюдение за поведением поступками реакциями человека; 4психология как наука изучающая объективные закономерности проявления и механизмы психики современный этап. человек группа людей группа животных и материальные продукты деятельности человека. жизни механизмы и закономерности психики человека а также формирование психологических...
47103. Теория институциональных изменений. Институциональные изменения: сущность, субъекты, источники 56.71 KB
  Закон предложения Предложение это максимальное количество продукта которое производитель желает и способен произвести и доставить к продаже на рынке по каждой конкретной цене из ряда возможных цен в течение определенного периода времени. Цена предложения предельная минимальная цена по которой производитель еще готов продавать свой товар. кукурузы; S sypply величина предложения в неделю...
47104. Монтаж будинків з обємних блоків 57 KB
  За архітектурними рішеннями блокові будинки монтують за такими конструктивними схемами блоків: на ширину будинку на кімнату на квартиру рис. Монтаж об'ємних блоків здійснюють з транспортних засобів. Особливості монтажу блоків визначають такими чинниками: великою масою блока відносно великими лінійними розмірами блока порівняно з його висотою.
47105. Платность природопользования 57.31 KB
  Она подразделяется в свою очередь на плату: за право пользования природными ресурсами в пределах установленных лимитов; за сверхлимитное и нерациональное использование природных ресурсов; на воспроизводство и охрану природных ресурсов. 2 вопрос государственные природные заказники территории акватории имеющие особое значение для сохранения или восстановления природных комплексов и их компонентов и поддержания экологического баланса. Государственные природные заказники могут иметь различный профиль в том числе...
47108. Купівля іноземної валюти 58 KB
  Ситуація: Під час проведення ревізії підво Сігал встановило: підво подало до свого банку заявку на купівлю 1000 за курсом 505 за 1 дол іноземна валюта придбавається для здійснення операцій повязаних з операційною діяльністю підва: при цьому комісійна винагорода банку за проведення операції становить 40 грн на дату надходження валюти НБУ 5 грн за 1 дол. 3 грн які не були оприбутковані в касу у розмірі це 15 грн. Ситуація: на балансі підва значиться обєкт ОЗ що має такі показники ПВ 5000 грн знос 1000 ЗВ 4000 СВ 5600....
47109. Картография почв и почвенные карты, разделение их по масштабам и назначениям 53 KB
  Картография почв и почвенные карты разделение их по масштабам и назначениям. Почвенная карта специальная карта изображающая почвенный покров опред. Она дает наглядное представление о распространении почв на местности и их пространственном залегание. Картография почв раздел генетического почвоведения изучающий почвенные карты методом их составления и использования.