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.


 

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

16351. ИЗУЧЕНИЕ И ИССЛЕДОВАНИЕ СВОЙСТВ АСИНХРОННОГО ДВИГАТЕЛЯ С КОРОТКОЗАМКНУТЫМ РОТОРОМ 103.12 KB
  ИЗУЧЕНИЕ И ИССЛЕДОВАНИЕ СВОЙСТВ АСИНХРОННОГО ДВИГАТЕЛЯ С КОРОТКОЗАМКНУТЫМ РОТОРОМ 1. Цель работы 1.1. Ознакомление с конструкцией трехфазного асинхронного двигателя с короткозамкнутым ротором. 1.2. Проведение опытов холостого хода короткого замы
16352. ИСПЫТАНИЕ АСИНХРОННОГО ДВИГАТЕЛЯ С ФАЗНЫМ РОТОРОМ 200 KB
  ИСПЫТАНИЕ АСИНХРОННОГО ДВИГАТЕЛЯ С ФАЗНЫМ РОТОРОМ ЦЕЛЬ РАБОТЫ 1.1. Ознакомиться на разобранном образце по учебнику и конспекту лекций с конструкцией асинхронного двигателя с фазным ротором. 1.2. Получить практические навыки пуска асинхронного двигателя с ...
16353. РАБОТА СИНХРОННОГО ГЕНЕРАТОРА НА ИНДИВИДУАЛЬНУЮ НАГРУЗКУ 280 KB
  РАБОТА СИНХРОННОГО ГЕНЕРАТОРА НА ИНДИВИДУАЛЬНУЮ НАГРУЗКУ ЦЕЛЬ РАБОТЫ Ознакомиться по учебнику и конспекту лекций с конструкцией основных видов синхронных машин. Приобрести практические навыки в исследовании синхронных машин. П...
16354. ИСПЫТАНИЕ АСИНХРОННОЙ МАШИНЫ В РЕЖИМЕ ГЕНЕРАТОРА 318 KB
  ИСПЫТАНИЕ АСИНХРОННОЙ МАШИНЫ В РЕЖИМЕ ГЕНЕРАТОРА. ЦЕЛЬ РАБОТЫ. Ознакомиться на разобранном образце по учебнику и конспекту лекций с конструкцией асинхронной машины. Получить практические навыки перевода асинхронной машины из двигател...
16355. Исследование параметров микроклимата 404 KB
  Исследование параметров микроклимата Методические указания к выполнению лабораторной работы по курсу Безопасность жизнедеятельности для студентов очного и заочного обучения всех направлений и специальностей Безопасность жизнедеятельности. Методические указ
16356. Контроль состояния изоляции проводов 99.5 KB
  Контроль состояния изоляции проводов Методические указания к выполнению лабораторной работы по курсу Безопасность жизнедеятельности для студентов очного и заочного обучения всех направлений и специальностей Безопасность жизнедеятельности. Методические ука...
16357. Определение электрического сопротивления тела человека 644 KB
  Определение электрического сопротивления тела человека Методические указания к выполнению лабораторной работы по курсу Безопасность жизнедеятельности для студентов очного и заочного обучения всех направлений и специальностей Безопасность жизнедеятельности. ...
16358. Измерение параметров электромагнитных полей на рабочих местах, оборудованных ПЭВМ 290.5 KB
  Измерение параметров электромагнитных полей на рабочих местах оборудованных ПЭВМ Методические указания к выполнению лабораторной работы по курсу Безопасность жизнедеятельности для студентов очного и заочного обучения всех направлений и специальностей Безопа...
16359. Исследование эффективности и качества искусственного освещения 266 KB
  Исследование эффективности и качества искусственного освещения Методические указания к выполнению лабораторной работы по курсу Безопасность жизнедеятельности для студентов очного и заочного обучения всех направлений и специальностей Безопасность жизнедеяте