73163

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

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

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

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

Русский

2014-12-05

83.61 KB

3 чел.

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

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

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

ОТЧЁТ
по лабораторной работе №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.


 

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

5004. Передняя подвеска автомобиля ГАЗ-53А 205.2 KB
  Передняя подвеска автомобиля ГАЗ-53А (L=1450 мм) Введение Перед автомобильной промышленностью в настоящее время стоят задачи, связанные с увеличением выпуска экономичных автомобилей с дизельными двигателями, позволяющих значительно сократить расход ...
5005. Выбор системы автоматического управления сверлильно-расточно-фрезерного станка модели 600V 100 KB
  Выбрать систему автоматического управления сверлильно-расточно-фрезерного станка модели 600V, проспект Стерлитамакского станкостроительного завода прилагается. Список сокращений САУ – система автоматического управления УЧПУ...
5006. Проект геодезического обоснования стереотопографической съемки масштаба 1:5000 302 KB
  Топографические карты, созданные в результате обработки данных топографической съемки, используют в различных областях человеческой деятельности. Без карт невозможна работа по прокладке нефтепроводов и газопроводов, строительству электрост...
5007. Экономическая система: понятие, структура, генезис 180 KB
  Экономическая система есть совокупность взаимосвязанных и определенным образом упорядоченных элементов экономики, образующих экономическую структуру общества. Вне системного характера экономики не могли бы воспроизводиться (постоянно возоб...
5008. Анализ стилевых особенностей и имиджа менеджера 309 KB
  Общество представляет собой сложную, многоуровневую, целостную и динамически развивающуюся систему. Неотъемлемым атрибутом любой системы – является управление, которое обеспечивает ее сохранение и развитие, упорядочение структуры, взаи...
5009. Возможности использования в российских условиях зарубежного опыта управления предприятием, организацией, фирмой 148.5 KB
  Возможности использования в российских условиях зарубежного опыта управления предприятием, организацией, фирмой. Теория и практика менеджмента получили широкое применение в развитых странах. В США доля менеджеров различных уровней в общей...
5010. Элементы квантовой теории. Основы атомной и ядерной физики 516.5 KB
  Введение В сборнике представлены тестовые задания закрытого типа и на соответствие по разделам Элементы квантовой теории, Основы атомной и ядерной физики, предназначенные для аудиторной и внеаудиторной самостоятельной работы студентов. Тестовые за...
5011. Загадка сверхзвезд. Квазары и радиогалактики. Незвездная материя 185.5 KB
  Загадка сверхзвезд До недавнего времени в звездной астрономии считалось, что масса звезд не может превосходить массу Солнца более чем в 100 раз. В противном случае звезда окажется неустойчивой и распадется. Однако, Хойл и Фаулер предположили, что вр...
5012. Матеpиальное стимулиpование как фактор повышения производительности труда 139 KB
  Управление производительностью - составная часть управления промышленным производством. Управление производительностью, так же, как и управление вообще, на научную основу было впервые поставлено Ф.У. Тейлором, который...