Программирование в среде Microsoft Visual Basic

57 Pages·01.127 MB·Russian

by  Предко, А. В.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ
РЕСПУБЛИКИ БЕЛАРУСЬ

Белорусский национальный
технический университет
У

Кафедра «Двигатели внутреннего сгорания»
Т

Н

Б

й

ПРОГРАММИРОВАНиИЕ В СРЕДЕ 
MICROSOFT VрISUAL BASIC 

о
Лабораторный практикум
т
и
з

о

п

е

Р

Минск
БНТУ
2014
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ
Белорусский национальный технический университет

Кафедра «Двигатели внутреннего сгорания»

У

Т

Н

Б
ПРОГРАММИРОВАНИЕ В СРЕДЕ

MICROSOFT VISUAL BASIC
й

и
Лабораторный практикум
по дисциплине «Информатика»
р
для студентов специальности 1-37 01 01
«Двигатели вноутреннего сгорания»

т

и

з

о

п

е

Р

Минск
БНТУ
2014
1
УДК 004.42(076.5)(075.8)
ББК 32.97я7
П78

У

Составитель
Т
А. В. Предко

Н
Рецензенты:
В. Е. Тарасенко, канд. техн. наук, доцент кафедры
Б
«Тракторы и автомобили» БГАТУ;
А. С. Климук, начальник отдела двигателей Объединенного
института машиностроения Национальной акад емии наук Беларуси
й

и

р

о

т

и

з

о
Программирование в среде Microsoft Visual Basic : лаборатор-
п
П78 ный практикум / сост.: А. В. Предко. – Минск : БНТУ, 2014. – 56 с.
ISBN 978-985-550-348-5.
е

Р Издание соответствует программе дисциплины «Информатика» для студентов
дневного и заочного обучения по специальности 1-37 01 01 «Двигатели внутреннего
сгорания» и включает в себя задания к лабораторным работам и примеры их выпол-
нения.

УДК 004.42(076.5)(075.8)
ББК 32.97я7

ISBN 978-985-550-348-5 © Белорусский национальный
технический университет, 2014
2
Лабораторная работа № 1

ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ ЛИНЕЙНОЙ
СТРУКТУРЫ

Цель работы: овладеть практическими навыками разработки и
У
программирования вычислительного процесса линейной структуры
и навыками по отладке и тестированию программ.
Т

Задания для самостоятельной подготовки
Н
1. Изучить:
– запись констант, переменных, стандартных функций;
Б
– правила записи арифметических выражений;
– оператор присваивания;

– организацию ввода-вывода данных с использованием функций
й
InputBox и MsgBox.
2. Разработать алгоритм решения в соиответствии с заданием.
3. Составить программу решения задачи.
р
4. Подготовить тестовый вариант исходных данных и вычислить
для них значения вычисляемых в программе величин.
о

Зтадание к работе
1. Вычислить на ЭВМ значения переменных, указанных в табли-
и
це 1.1 (вариант задается преподавателем), по заданным расчетным
формулам и наборзам исходных данных. Организовать ввод данных,
используя функцию InputBox, вывести значения результатов вычис-
о
лений, используя функцию MsgBox.
п
Таблица 1.1
Вареиант Значения
Расчетные формулы
задания исходных данных
Р
1 2 3
2cosx/6
a
1/2sin2 y
x = 1,426; y = 1,220;
1
z = 3,5
z2
b1
3z2 /5

3
Продолжение табл. 1.1
1 2 3
y/ x 3
g x  y/ x
x = 1,825; y = 18,225;
2 cyxyz/yx z = –3 ,298 У
1yx2
x2 x3 x4 Т
s1x  
2! 3! 4!
3 x = 0,335; Нy = 0,025

dxsinx3cos2y
Б
yebtsinatb bta
a = –0,5; b = 1,7;
4
sbsinat2cos2t1 й t = 0 ,44
и
v x2bb2sin3xa/ x
a = 1,5; b = 15,5;
5 р
x = –2,9
ycos2x3x/ a2b2
о
s x3tg2xb2 a/ xb
т a = 16,5; b = 3,4;
6

Qиbx2a eax 1 x = 0,61
Rзx2x1/bsin2xa
a = 0,7; b = 0,05;
7 о
s xb/ acos2xb3 x = 0,5
п
ysin3x2a2 x/b
е a = 1,1; b = 0,004;
8

Р z x2 cosxb3 x = 0,2
a
f  3 mtgtcsint
m = 2; c = –1; t = 1,2;
9
z  mcosbtsintc b = 0,7

4
Окончание табл. 1.1
1 2 3
a
ybtg2x
sin2x/ a a = 3,2; b = 17,5;
10

x = –4,8
У
d ae a cosbx/ a
f lnax2sin2x/b Т
a = 10,2; b = 9,2;
11 Н
x xa x = 2,2; c = 0,5
zecx
x xb Б
a2xbxcosabx
y
12 x1 й a = 0,3; b = 0,9;

x = 0,61
R x2bb2sin3xaи/ x
z  axsin2xe2рxxb
a = 0,5; b = 3,1;
13

о x = 1,4
cos2x3x/ a2b2
a2xтexcos(bx)
U 
bиxexsin(bx)1 a = 0,5; b = 2,9;
14

x = 0,3
з
f e2xlnaxb3xlnbx
о
sinx
z cmlnmx m = 0,7; c = 2,1;
15 п 1m2sin2x x = 1,7; a = 0,5;

е b = 1,08
seax x1ebx x1,5
Р
Пример выполнения работы
Задание 1. Вычислить на ЭВМ значения y и p, используя расчет-
ные формулы

z2
y=atg3x2  ,
a2 x2
5
plnax2sin2 z
a

при значениях a = 0,59, z = –4,8, x = 2,1.
Схема алгоритма решения представлена на рисунке 1.1.
У
1
Т
начало
Н
2 ввод исходных данных

a,x,z Б

3
вычислениейзначений
y=f( x,z) функции y
1
и
4 врычислениезначений
p=f ( x,z) функции p
2 о
т
5 вывод вычисленных значений
y, p и функции y, p
з
о
6
конец
п

е
Рисунок 1.1 – Схема алгоритма программы
Р
Для записи кода программы заходим в редактор VBA нажатием
сочетания клавиш Alt+F11 из любого приложения MS Office.
В меню выбираем пункт Insert→Module.
В открывшемся окне набираем следующий код программы:

Sub LR1()
'Объявление переменных
6
Dim a As Double, x As Double, z As Double, y As Double, p As Double
a = Val(InputBox("a=")) 'Ввод a
x = Val(InputBox("x=")) 'Ввод x
z = Val(InputBox("z=")) 'Ввод z
y = a * (Tan(x ^ 2)) ^ 3 + (z * z / (a * a + x * x)) ^ (1 / 2) 'Вычисление
значения функции Y У
p = Log(a + x * x) + (Sin(z / a)) ^ 2 'Вычисление значения функции р
sp = MsgBox(y, , "Y=") 'Вывод y Т
sp = MsgBox(p, , "P=") 'Вывод p
End Sub Н

В качестве тестового набора исходных данных Биспользуем сле-
дующие значения переменных: а = 1, z = 1, x = 0,5. Тогда вычисляе-
мые значения у и р будут равны
й

y1tg30,52  1и 0,911;
10,52
р

о
pln10,25sin210,931.
т
Вычисленные значеиния у и р следует сравнить со значениями,
вычисленными на ЭВМ.
з
о
Лабораторная работа № 2
п
ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ
е РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ

Р
Цель работы: овладеть практическими навыками разработки,
программирования вычислительного процесса разветвляющейся
структуры, получить дальнейшие навыки по отладке и тестирова-
нию программы.

7
Задания для самостоятельной подготовки
1. Изучить возможности языка программирования для реализации:
– условной и безусловной передачи управления;
– вычислительного процесса разветвляющейся структуры.
2. Разработать алгоритм решения в соответствии с заданием.
3. Составить программу решения задачи. У
4. Подготовить тесты (число тестов равно числу ветвей вычисли-
тельного процесса) для проверки правильности функционироТвания
программы.
Н
Задания к работе
1. Вычислить значение функции, заданной в табБлице 2.1 (в соот-
ветствии с вариантом задания). Осуществить вывод значений
исходных данных и результат вычисления зн ачений функции, со-
й
провождая вывод наименованиями переменных.
2. Выполнить программу на ЭВМ и протестировать все ветви ал-
и
горитма.
р
Таблица 2.1
о

Исходные
Вариант Фтункция
данные
1 и 2 3
 at
з e cosbt, t1

 a = –0,5
1 о y1, 1t2
b = 2

п at2lnt, t 2
е x27/x2,x1,3

Р 2 yax37 x, x1,3 a = 1,5
  
lg x7 x ,x1,3

 ax2bxc, x1,2
 a = 2,8
3 a/x x21, x1,2 b = –0,3
 c = 4
abx/ x21, x1,2

8
Продолжение табл. 2.1
1 2 3
x27/x2,x1,4

4 Qax37 x, x1,4 a = 1,65
   У
ln x7 xa ,x1

1.5cos2x, x1 Т

5 y1,8ax, x1 a Н= 2,3
x226, 1 x2
3tgx, x2 Б
x3 xa, xa

 й
6 xsinax, xa a = 2,5

eaxcosax, xaи
bxlgbx, рbx1

7 Q1, bx1о b = 1,5
bxlgbx, bx1

т
cos2x, x3,5
8 yи 
sinxlgx, x3,5
з
sin2 ax, x1
9 о f  a = 20,3
lgx1, x1
п
cosxtsin2 x, x0,5
е 
10 z xt 1/ x, x0,5 t = 2,2

Р (ln3 xx2 )/ xt, x0,5
 ab
, x2,8
ex cosx

 a = 2,6
11 s(ab)/(x1), 2,8 x6
b = –0,39

ex sinx, x6


9