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.


 

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

50045. Статистический характер прочности 379.5 KB
  Классификация нагрузок Нагрузки и воздействия представляют собой наиболее неопределенные величины обладающие большим статистическим разбросом. В части математического описания нагрузки делятся на: нагрузки представляющие собой случайные величины; нагрузки представляющие собой случайные функции времени; нагрузки изменяющиеся...
50047. Визначення показника заломлення та концентрації водних розчинів за допомогою рефрактометра 316 KB
  Мета роботи Ознайомитися з будовою і принципом дії рефрактометра типу РПЛ–2 оволодіти методикою експериментального визначення показників заломлення та концентрацій водних розчинів цукру визначення граничних кутів які відповідають початку повного внутрішнього відбивання від межі розділу скло – досліджуваний розчин Для виконання лабораторної роботи студенту попередньо необхідно: знати закони геометричної...
50048. Пересування як вид стройових вправ 44 KB
  Основи термiнологiï: випади махи ногами тулубом руками. Випади. Випад – це рух або положення з виставленням i згинанням опорноï ноги. Випад лівою правою Положення коли опорна лiва права нога виставлена i зігнута вперед iнша нога стоїть позаду випрямлена в колiнi тулуб на однiй вертикалi з тазом Випад влiво вправо Положення коли опорна лiва права нога виставлена влiво впрао i зiгнута в колiнi тулуб вертикально Нахилений випад влiво вправо Положення коли виконується випад...
50050. Определение индуктивности соленоида и коэффициента взаимной индуктивности с помощью исследования вынужденных колебаний в RL – цепи 293 KB
  Определение индуктивности соленоида и коэффициента взаимной индуктивности с помощью исследования вынужденных колебаний в RL-цепи. Цепь состоит из генератора резистора обладающего активным электрическим сопротивлением цепи R и катушки индуктивности обладающей реактивным индуктивным сопротивлением 1 w = 2pn циклическая частота колебаний. Фаза колебаний напряжения на индуктивности опережает фазу колебаний напряжения...
50051. Изучение петли гистерезиса и измерение параметров ферромагнетика 168.5 KB
  Они способны сохранять намагниченность в отсутствие магнитного поля. Особенностью ферромагнетиков является сложная нелинейная зависимость между намагниченностью J и напряженностью магнитного поля H равносильно между вектором магнитной индукции В и напряженностью магнитного поля H. В действительности она является функцией напряженности поля Н и определяется как . Оно проявляется в том что при изменении намагничивающего поля Н магнитная индукция В в ферромагнетике отстает от внешнего магнитного поля Н.
50052. ЯВЛЕНИЕ САМОИНДУКЦИИ 99 KB
  Цель работы: ознакомиться с явлением самоиндукции; изучить зависимость постоянной времени электрической цепи состоящей из катушки индуктивности и омического сопротивления от величины сопротивления; определить величины индуктивности катушки и магнитной проницаемости сердечника соленоида. Найдём функциональную зависимость силы тока от времени. 12 Величину t=L R называют постоянной времени цепи которая равняется времени за которое при разрядке...
50053. Изучение команд меню Corel Draw10 117.5 KB
  Команда предназначена для загрузки в активный документ векторного растрового или текстового файла. Существует возможность загрузки нескольких десятков форматов и этот набор охватывает большинство наиболее распространенных графических и текстовых форматов. Позволяет сохранить информацию активного документа в различных форматах векторных растровых и текстовых. Текстовая информация может быть экспортирована либо вся либо из текущей страницы при включенном режиме Export this pge only Экспортировать лишь текущую страницу.