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.


 

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

23898. Гесиод Теогония, или О происхождении богов 18.18 KB
  Потом от Ночи родился День а от ЗемлиГеи НебоУран и МореПонт. Один за другим они вздували чрево материЗемли и вот ей стало невмоготу. Третьего звали Иапет от него родились могучий Атлант который стоит на западе земли и держит небо на плечах и мудрый Прометей который прикован к столбу на востоке земли а за что об этом будет речь дальше. Теперь их самих заточили в Тартар в самую глубь: сколько от неба до земли столько и от земли до Тартара.
23899. Гомер Илиада 20.07 KB
  Этот эпизод гнев Ахилла величайшего из последнего поколения греческих героев. Главным вождем был сильнейший из царей правитель города Аргос Агамемнон; с ним были брат его Менелай ради которого и началась война могучий Аякс пылкий Диомед хитроумный Одиссей старый мудрый Нестор и другие; но самым храбрым сильным и ловким был юный Ахилл сын морской богини Фетиды которого сопровождал друг его Патрокл. Это тот самый брак от которого родился Ахилл. Это был Ахилл.
23900. Гомер Одиссея 26.48 KB
  Одиссея поэма сказочная и бытовая действие ее разворачивается с одной стороны в волшебных краях великанов и чудовищ где скитался Одиссей с другой в его маленьком царстве на острове Итаке и в ее окрестностях где ждали Одиссея его жена Пенелопа и его сын Телемах. Обо всем что было раньше Одиссей рассказывает на пиру в середине поэмы и рассказывает очень сжато: на все эти сказочные приключения в поэме приходится страниц пятьдесят из трехсот. В Троянской войне Одиссей очень много сделал для греков особенно там где нужна была...
23901. Еврипид Ифигения в Авлиде 17.11 KB
  Греки собрались на них огромным войском во главе его встал аргосский царь Агамемнон брат Менелая и муж Клитемнестры сестры Елены. Может быть Агамемнон на досуге развлекаясь охотою одной стрелою поразил лань и не в меру гордо воскликнул что сама Артемида не ударила бы метче а это было оскорблением богине. Гадатель сказал: богиня требует себе человеческой жертвы пусть на алтаре будет зарезана родная дочь Агамемнона и Клитемнестры красавица Ифигения. За Ифигенией послали гонцов: пусть ее привезут в греческий стан царь Агамемнон...
23902. Еврипид Ифигения в Тавриде 17.56 KB
  У великого аргосского царя Агамемнона главного вождя греческой рати в Троянской войне была жена Клитемнестра и было от нее трое детей: старшая дочь Ифигения средняя дочь Электра и младший сын Орест. Агамемнон сделал это; как это произошло Еврипид показал в трагедии Ифигения в Авлиде. При этом храме Ифигения стала жрицей.
23903. Еврипид Медея 17.48 KB
  В Колхиде правил могучий царь сын Солнца; дочь его царевнаволшебница Медея полюбила Ясона они поклялись друг Другу в верности и она спасла его. Вовторых когда они отплывали из Колхиды Медея из любви к мужу убила родного брата и разбросала куски его тела по берегу; преследовавшие их колхидяне задержались погребая его и не смогли настичь беглецов. Втретьих когда они вернулись в Иолк Медея чтобы спасти Ясона от коварства Пелия предложила дочерям Пелия зарезать их старого отца обещав после этого воскресить его юным.
23904. Софокл Антигона 17.64 KB
  Когда Эдип отрекся от власти и удалился в изгнание править стали вдвоем Этеокл и Полиник под надзором старого Креонта свойственника и советника Эдипа. После гибели Этеокла и Полиника власть над Фивами принял Креонт. Но Креонт думал не о людях и не о богах а о государстве и власти. Навстречу хору выходит Креонт и оглашает свой указ: герою честь злодею срам тело Полиника брошено на поругание к нему приставлена стража кто нарушит царский указ тому смерть.
23905. Софокл Трахинянки 17.08 KB
  Знаменит он только тем что в нем прожил свои последние годы величайший из греческих героев Геракл сын Зевса. Почти все греческие герои были царями в разных городах и городках кроме Геракла. Когда Геракл кончил свою подневольную службу он пошел на край Греции свататься к Деянире. Геракл схватился с богом в борьбе придавил его как гора; тот обернулся змеем Геракл стиснул ему горло; тот обернулся быком Геракл сломил ему рог.