Лабораторная работа № 23 Язык программирования vba. Линейные алгоритмы
Цель работы: Ознакомить с функциями и процедурами и привить навыки использования их при решении задач
Программа VBA состоит из одного или нескольких модулей. Модуль - это лист с текстом программы. Обычно текст программы VBA начинается с опций, которые управляют описанием переменных, способом сравнения строк и т.д. Затем следует объявление глобальных переменных или констант данного модуля. Далее располагается непосредственно текст функций пользователя и процедур, составляющих саму программу.
Общий вид функций пользователя:
Function имя функции (список параметров)
тело функции
End function
Процедуры также имеют стандартное оформление:
Sub имя процедуры (список параметров)
тело процедуры
End sub
Простые типы данных
Имя типа |
Возможные значения |
Boolean (логический) |
Истина, ложь |
Byte |
0…255 |
Integer (Целое) |
-32758…мультикомпьютер32767 |
Long (Длинное целое) |
Примернр -2000 000 000…+2000 000 000 |
Single (Число с плавающей точкой) |
По абсолютной величине 1,401298е-45… 3,402823е38 |
Date (Дата) |
От 1 янв. 100г до 31 дек. 9999г. |
Double (Число двойной точности) |
По абсолютной величине 4,94065645841247е-324…1,79769313486232е308 |
Array (Массив) |
Зависит от размера и типа элементов массива |
Object |
|
String (Строка) |
Набор символов |
Currency (Денежный) |
|
Variant (Вариант) |
Зависит от содержимого переменной |
При объявлении переменной определяется ее тип и область видимости. Для объявления переменных используются операторы Dim, Public, Private и Static. Первый можно использовать на уровне процедуры и на уровне модуля, Public и Private - на уровне модуля, Static — только на уровне процедуры.
{Dim | Private | Public | Static} < имя переменной > As < имя типа > Операции и встроенные математические функции
Abs (число) - модуль числа
Atn (число)--арктангенс угла ( и радианах).
Cos (число) - косинус угла ( в радианах)
Ехр ( число ) - экспонента (е в степени «число» )
Log (число)-натуральный логарифм числа
Sgn ( число ) - знак числа ( если число больше нуля , значение функции равно 1, если число равно нулю, значение функции = 0, если число меньше нуля, значение функции =-1)
Sin ( число ) - синус угла ( в радианах)
Sqr ( число ) - квадратный корень
Tan ( число ) - тангенс угла ( в радианах) Задание 1
Запишите следующие выражения на языке программирования VBA:
Задание 2
Продолжительность урока 45 минут. Одну третью часть урока потратили на решение задач, одну пятую часть на повторение пройденного, а одну девятую часть на решение уравнения. Сколько времени потратили на решение задач, повторение пройденного и решение уравнения?
Private Sub CommandButtonl_Click()
Dim a, b, c, d As Integer
a=45
b = a/3
c=a/5
d=a/9
MsgBox ("На решение задач потратили") & b & ("минут, на повторение пройденного") & с & ("минут, на решение уравнения") & d & ("минут")
End Sub
Задание 3
Длина путей железнодорожного узла Западного Казахстана 420 км, а железнодорожного узла Мангистау - на 217 км длиннее. Какова длина путей железнодорожного узла Мангистау?
Private Sub CheckBoxl_Click()
Dim c, d As Integer
с = 420
d=c + 217
MsgBox ("Длина путей железнодорожного узла Мангистау") & d &("км") End Sub
Задание 4
Из мяса приготовили 6 палок мясного рулета по 2 кг каждый. Из 12 кг мяса изготовили докторскую колбасу. Сколько килограммов мяса было израсходовано на изготовление мясных изделий?
Private Sub OptionButtonl_C!ick()
Dim m As Integer
m = 6*2 + 12
MsgBox ("На изготовление мясных изделий было израсходовано") & m & (кг мяса")
End Sub
Задания для самостоятельной работы:
1. Из 70 - литровой бочки растительного масла продали 9 банок по 3 литра. Сколько литров масла осталось в бочке?
В Казахстане обитают 172 вида млекопитающих, птиц в 3 раза больше, чем млекопитающих, а пресмыкающихся в 4 раза меньше, чем птиц. Сколько видов пресмыкающихся в Казахстане?
Найдите периметр и площадь прямоугольного треугольника со сторонами 3 см, 4 см, 5 см.