Примеры функций

• функция вычисления выражения y=

Public Function fun1(x)

fun1=(x*x-5*2^0.5)/(2*x^3+1)

End Function

• функция вычисления полупериметра треугольника по трем сторонам a, b, c

Public Function Полупериметр(a, b, c)

Полупериметр=(a+b+c)/2

End Function

• функция вычисления длины окружности и площади круга заданного радиуса R

Public Function Окружность(R)

Pi=3.14

a=2*Pi*R

b=Pi*R^2

Окружность="С="+str(a)+" S="+str(b)

End Function

• функция нахождения максимального элемента из трех чисел a, b, c.

Public Function Max(a, b, c)

If a > b Then

m = a

1. Else

m = b

End If

If c > m Then

Max = c

Else

Max = m

End If

End Function

• функция нахождения корней квадратного уравнения

Public Function Корни(a, b, c)

d = b ^ 2 - 4 * a * c

If d >= 0 Then

x1 = (-b + d ^ (1 / 2)) / (2 * a)

x2 = (-b + d ^ (1 / 2)) / (2 * a)

Корни = "x1=" + str(x1) + "; x2=" + str(x2)

Else

Корни = "корней нет"

End If

End Function

Разработка функций для реализации простейших циклических алгоритмов

Для реализации циклических алгоритмов в VBA используются 3 вида операторов цикла For, While, Do Loop

1. Формат оператора For

For переменная = начальное_значение To конечное_значение [Step шаг] [операторы] [Exit For] [операторы]

Next [перменная]

пример

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

...

Next K

Next J

Next I

2. Формат оператора While

While условие [операторы]

Wend

пример

While i <= 10 s=s+i

i=i+1

Wend

3. Формат оператора Do ... Loop имеет две разновидности

Do [{While | Until} условие] [операторы] [Exit Do] [операторы]

Loop

или

Do [операторы] [Exit Do] [операторы]

Loop [{While | Until} условие]

Примеры функций циклических алгоритмов

• функция вычисления суммы S=1²+2²+…+n²;

Public Function FunS(n)

Dim s As Integer

Dim i As Integer

s = 0

For i = 1 To n

s = s + i ^ 2

2.Next

FunS=s

End Function

• функция вычисления приближенного значения sin(x) по формуле у=x/1!-x³/3!+x⁵/5!-….+x²ⁿ⁺¹/(2n+1)! с заданной погрешностью;

Public Function sinus(x, погрешность)

i = 2

p = x

s = x

While Abs(p) > погрешность

p = -p * x ^ 2 / (i * (i + 1))

i = i + 2

s = s + p

Wend

sinus = s

End Function

• функция нахождения суммы цифр целого числа n;

Public Function сумма_цифр_числа(n)

s = 0

While n <> 0

c = n Mod 10

s = s + c

n = n \ 10

Wend

сумма_цифр_числа = s

End Function

Разработка функций обработки строк и текстовой информации на vba Примеры функций обработки строк

• функция подсчета количества символа пробел в строке

Public Function CountSpace(s As String) As Integer

Dim i As Integer

Dim p As Integer

p=0

For i = 1 To Len(s)

If Mid(s, i, 1) = " " Then

p = p + 1

End If

Next

CountSpace = p

End Function

Разработка пользовательских форм в vba

Чтобы создать новую пользовательскую форму в VBA необходимо находясь в среде VBA выполнить команду Insert(Вcтавить)/UserForm(Форма) и затем в появившемся окне формы необходимо установить его размеры, название (свойство Caption) и необходимые параметры. Из панели элементов управления выбрать необходимые элементы и разместить их на форме. Исходные данные задаются посредством элементов управления поле (TextBox), поле со списком (ComboBox), список (ListBox), счетчик (SpinButton), полоса прокрутки (ScrollBar). Выходные данные отображаются на форму посредством элементов управления поле, поле со списком, список. Соответствующие надписи на форме осуществляются посредством элемента управления надпись (Label). Для выбора действий используются элементы управления флажок (CheckBox), переключатель (OptionButton), выключатель (ToggleButton). Выполнение и завершение макросов осуществляется посредством элемента управления кнопка (CommandButton). Для вставки рисунков используется элемент управления рисунок (Image), для работы с вкладками и страницами используются элементы управления набор вкладок (TabStrip) и набор страниц (Page)