Простые типы данных

End sub

End function

Язык программирования VBA. Линейные алгоритмы

Лабораторная работа № 23

Цель работы: Ознакомить с функциями и процедурами и привить навыки использования их при решении задач

Программа VBA состоит из одного или нескольких модулей. Модуль - это лист с текстом программы. Обычно текст программы VBA начинается с опций, которые управляют описанием переменных, способом сравнения строк и т.д. Затем следует объявление глобальных переменных или констант данного модуля. Далее располагается непосредственно текст функций пользователя и процедур, составляющих саму программу.

Общий вид функций пользователя:

Function имя функции (список параметров)

тело функции

Процедуры также имеют стандартное оформление:

Sub имя процедуры (список параметров)

тело процедуры

Имя типа	Возможные значения
Boolean (логический)	Истина, ложь
Byte	0…255
Integer (Целое)	-32758…мультикомпьютер32767
Long (Длинное целое)	Примернр -2000 000 000…[phone]
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 литра. Сколько литров масла осталось в бочке?

2. В Казахстане обитают 172 вида млекопитающих, птиц в 3 раза больше, чем
млекопитающих, а пресмыкающихся в 4 раза меньше, чем птиц. Сколько видов
пресмыкающихся в Казахстане?

3. Найдите периметр и площадь прямоугольного треугольника со сторонами 3 см, 4 см, 5 см.

Дата добавления: 2014-11-20