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.


 

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

49189. КОНСТРУИРОВАНИЕ ОДЕЖДЫ 271.29 KB
  Конструирование одежды Проектирование серии изделий на базе одной конструктивной основы Заключение Список литературы Введение История возникновения одежды уходит далеко в глубь веков к самым ранним ступеням развития человечества. Материалистическая точка зрения связывает происхождение одежды с климатическими условиями а её развитие с...
49190. Расчет прочности рабочей лопатки, диска и определение частоты и формы изгибных колебаний одиночной лопатки и пакета лопаток, связанных бандажом 433.68 KB
  Расчет прочности рабочей лопатки. Расчет прочности лопатки и выбор материала рабочей лопатки. Определение частот и форм колебаний одиночной турбинной лопатки и пакета лопаток связанных бандажом.
49192. Природа і сутність політичної влади 51.21 KB
  Все життя людей нерозривно повязана з владою, яка є найбільш потужним засобом захисту людських інтересів, втілення планів людей, врегулювання їх протиріч і конфліктів. Ключова різновид влади - влада політична - має колосальними конструюють здібностями, представляє самий потужний джерело розвитку суспільства, знаряддя соціальних перетворень і трансформацій.
49193. Направленные микрофоны 7.61 MB
  Общие понятия о направленных микрофонах. Принцип работы микрофона заключается в том что давление звуковых колебаний воздуха воды или твердого вещества действует на тонкую мембрану микрофона. В свою очередь колебания мембраны возбуждают электрические колебания; в зависимости от типа микрофона для этого используются явление электромагнитной индукции изменение ёмкости конденсаторов или пьезоэлектрический эффект. Наибольшая чувствительность при этом достигается на пути вдоль оси микрофона когда источник размещен прямо перед...
49194. Пути повышение рентабельности предприятия общественного питания 752.37 KB
  Понятие рентабельности Виды рентабельности. Система показателей рентабельности. Анализ рентабельности предприятия.