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.


 

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

58167. Фізіологічна і соціальна зрілість. Взаємозв’язок фізіологічної та соціальної зрілості 42.5 KB
  Мета: сформувати в учнів поняття про фізіологічну й соціальну зрілість показати взаємозвязок фізіологічної та соціальної зрілості. Підлітковий вік характеризується переходом до фізичної й соціальної зрілості.
58168. Соединения неметаллических элементов с Водородом. Хлорид Водорода. Соляная кислота. Аммиак. Соли аммония 36 KB
  Ковалентная неполярная связь между атомами Водорода в молекуле Водорода образована перекрыванием двух 1S1 орбиталей двух атомов молекулярное вещество. В лаборатории водород добывают несколькими способами прежде всего реакцией металлов расположенных...
58169. Письмо. История письма 41 KB
  Письмо – это система начертательных знаков, используемых для фиксации речи. Оно возникло около 6000 лет тому назад, гораздо позднее, чем звуковой язык.
58170. ПРЕДМЕТ ТЕОРИИ ФИЗИЧЕСКОГО ВОСПИТАНИЯ И ЕГО ОСНОВНЫЕ ПОНЯТИЯ 38.5 KB
  Физическое развитие процесс формирования и последующего изменения на протяжении индивидуальной жизни естественных морфо-функциональных свойств организма ребенка и основанных на них психофизических качеств.
58172. Системы объектов 110.5 KB
  Состояние сложного, составного объекта определяется не только значениями его собственных признаков, но и состояниями объектов – частей. Например, автомобиль переходит в состояние торможения, когда нажата педаль тормоза.
58173. ЗИМОВІ СВЯТА ТА ОБРЯДИ. ВОДОХРЕЩА 78.5 KB
  Проаналізуйте прослуханий музичний твір і скажіть де б ви могли почути музику такого характеру Учні: Музика цього твору стримана зосереджена спонукає до роздумів над ціллю життя правильністю своєї поведінки. Учитель: Ви слухали музичний твір російського композитора...
58174. АВТОМАТИЗАЦИЯ УБОРКИ НАВОЗА 161 KB
  Простейшая технологическая линия уборки и погрузки навоза транспортерами типа ТСНЗБ в тележки подвесной дороги может функционировать как в ручном так и автоматическом режимах рис. С выдержкой времени необходимой для очистки от навоза останавливаются сначала горизонтальный а затем и наклонный транспортеры. Когда уборка навоза будет окончена то его поступление в тележку прекратится конечный выключатель SQ3 останется в прежнем положении.
58175. Формирование научной картины мира 30.5 KB
  Основу механической картины мира составил атомизм который весь мир включая человека понимал как совокупность огромного числа неделимых частиц атомов перемещающихся в пространстве и времени в соответствии с немногими законами механики.