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.


 

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

73418. Образ повествователя и его историческая трансформация 41.5 KB
  Образ автора - автор создает повествователя который похож на автора. Повествователь Находится за пределами изображаемого мира Близок к автору По речевому строю По восприятию Близок к образу автора Главный признак повествователя: Вне изображаемого мира в отличие от рассказчика...
73419. Образ рассказчика 35.5 KB
  Образ автора – автор создает повествователя, который похож на автора. Рассказ, который ведется от 3-его лица, называется безличным. Повествователь находится вне изображаемого мира, а рассказчик – внутри него. Автор ближе к повествователю, а рассказчик – к герою.
73420. Художественная речь. Поэтический язык 38.5 KB
  На такие вопросы как чем вызывается эстетический эффект чем обусловлена художественность речи пытаются ответить теоретики начиная с античности. Русская литературная теория занимается вопросом художественной речи чем обусловлена эта художественность.
73421. Традиционная теория художественной речи. Стилистика 36.5 KB
  Стилистика Занимается изучением художественной речи (поэтического языка). Рассматривает архаизмы, неологизмы, варваризмы и т.д. Но потом начинаются значительные изменения, связанные с тем, что менялась литература. Литература 19 в. оказывалась очень далекой от Античных схем.
73422. Дорожні огорожі 462 KB
  На небезпечних ділянках доріг з метою запобігання виїзду автомобілів за межі земляного полотна встановлюють спеціальні дорожні огородження мал. Розташування однобічних і двосторонніх утримуючих огороджень бічних і фронтальних для автомобілів: 1 узбіччя; 2 бічне однобічне огородження...
73423. Дорожні знаки як технічні засоби організації дорожнього руху 36 KB
  Дорожні знаки ставляться до технічних засобів організації дорожнього руху і є обов’язковою приналежністю всіх доріг і вулиць населених пунктів. Усі дорожні знаки діляться на вісім груп: попереджуючі знаки; знаки пріоритету; заборонні знаки; знаки що пропонують...
73424. Сигнальні стовпці та розмітка 302 KB
  Використання стовпців та розмітки Застосування і типи стовпців Вимоги до використання стовпців Вимоги до сучасної розмітки Дорожні стовпчики маркіровані светоотражающими елементами призначені для позначення узбіч автомобільних доріг відповідають гос.
73425. Штучні нерівності на дорозі 577.5 KB
  Довжина кожної нерівності повинна бути не менш ширини проїзної частини. Припустиме відхилення — не більш 0,2 м з кожної сторони дороги. На ділянці дороги для обладнання нерівностей повинен бути забезпечений водовідвід із проїзної частини дороги.
73426. Облаштування доріг об’єктами дорожнього сервісу 57 KB
  Транспортний процес не може здійснюватися без сучасних автомобільних доріг так само, як і без їхньої облаштованості об’єктами дорожнього сервісу. З кожним роком збільшується дальність як вантажних, так і пасажирських перевезень.