Прикладное программное обеспечение (стр. 3 )

& (амперсанд) либо + (плюс)

Объединение нескольких последовательностей символов в одну строку

Выражение “Северный” & “ветер” эквивалентно строке “Северный ветер”

Для записи разветвляющихся алгоритмов используется оператор If. Он имеет две формы записи.

1.  Однострочная запись

If условие Then [оператор 1] [Else оператор2]

2.  Многострочная запись

If условие1 Then [оператор1]

[Elself условие2 Then [оператор2] ...

[Else [операторЗ]]

End If

В условии записывается логическое выражение, которое использует операции сравнения, приведенные ниже. Для создания сложных условий используются логические операции AND (и) и OR (или).

Операции сравнения. Используются для сравнения двух значений. Результатом сравнения является логическое значение: ИСТИНА либо ЛОЖЬ.

Оператор сравнения	Значение	Пример
= (знак равенства)	Равно	A = B
> (знак больше)	Больше	A > B
< (знак меньше)	Меньше	A < B
>= (знак больше и знак равно)	Больше или равно	A >= B
<= (знак меньше и знак равно)	Меньше или равно	A <= B
<> (знак не равно)	Не равно	A <> B

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

1. Функция вычисления выражения

Public Function funl(x)

funl=(x*x-5*2^0,5)/(2*x^3+l)

End Function

2. Функция вычисления полупериметра треугольника по трем сторонам а, b, с

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

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

End Function

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

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

Pi=3,14

a=2*Pi*R

b=Pi*R^2

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

End Function

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

Public Function Max(a, b, с)

If a > b Then

m = a

Else

m = b

End If

If с > m Then

Max = с

Else

Max =m

End If

End Function

5. Функция нахождения корней квадратного уравнения

Public Function Корни(а, b, с)

d=b^2-4*a*c

If d>=0 Then

xl=(-b + d^(l/2))/(2*a)

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

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

Else

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

End If

End Function

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

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

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

For переменная = начальное_значение То конечное_значение [шаг]

[операторы]

[Exit For]

[операторы]

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

Пример

For I = 1 То 10

For J - 1 То 10

For К = 1 To 10

…

Next К

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} условие]

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

1.  Функция вычисления суммы S=12+22+...+n2

Public Function FunS(n)

S = 0

For i = 1 To n

s = s + i ^ 2

Next

FunS=s

End Function

2.  Функция вычисления приближенного значения
y=sin(x)=x/1!-х/3!+х5/5!'-...+х2n+1/(2п+1)! с заданной погрешностью

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

i = 2

p = x

s = x

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

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

i = i + 2

s = s + p

Wend

sinus = s

End Function

Разработка процедур и функций обработки массивов

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

1.  Функция вычисления суммы элементов массива А

1-й способ

Public Function Сумма_массива(А As Variant)

Dim s, x

s = 0

For Each x In A

s = s + x

Next x

Сумма_массива = s

End Function

2-й способ

Public Function SumMas(a As Variant)

n = a. Columns. Count 'количество столбцов

m = a. Rows. Count' количество строк

s = 0

For r = 1 To n

For с = 1 To m

s = s + a(r, c)

Next с

Next r

SumMas=s

End Function

2.  Функция подсчета количества положительных элементов массива А

Public Function CountP(a As Variant)

n = a. Columns. Count

m = a. Rows. Count

k=0

For r=l To n

For с = 1 To m

If a(r, c) > 0 Then k=k+l

Next с

Next r

CountP=k

End Function

3.  Функция нахождения максимального и минимального значения массива А

Public Function max_min_A(a As Variant)

n = a. Columns. Count

m = a. Rows. Count

minimal = a(1, 1)

maximal = a(1, 1)

Разработка функций обработки целых чисел.

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

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

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

s = 0

While n <> 0

с = n Mod 10

s = s + c

n = n/10

Wend

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

End Function

2.  Функция нахождения НОД двух натуральных чисел a и b

Public Function НОД(а, b)

While a <> b

If a>b Then

a= a - b

Else

b = b-a

End If

Wend

НОД = а

End Function

For r = 1 To n

For с = 1 To m

If a(r, c) < minimal Then minimal = a(r, c)

If a(r, c) > maximal Then maximal = a(r, c)

Next с

Nextr

max_min_A = "Минимальный эл-т:" + Str(minimal) +
_", максимальный эл-т:" + Str(maximal)

End Function

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

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

Пример использования формы

Вводится исходная строка, из нее необходимо получить реверсированную (перевернутую) строку.

Private Sub btnStart_Click()

Dim S1, S As String

Dim i As Byte

If TextBox1.Text = "" Then

MsgBox ("Введите исходную строку")

TextBox1.SetFocus

Else

S = TextBox1.Text

For i = 0 To Len(S) - 1

S1 = S1 + Mid(S, Len(S) - i, 1)

Next i

TextBox2.Text = S1

End If

End Sub

6.5.  Варианты заданий

Вариант 1

1.  Составить функцию VBA для нахождения среди трех заданных чисел a, b, c двух чисел, дающих максимальное произведение.

2.  Разработать функцию VBA, вычисляющую количество нечетных отрицательных элементов массива.

3.  Разработать программу или пользовательскую форму для нахождения и перестановки местами элементов с максимальным и минимальным значением выделенного диапазона рабочей таблицы.

4.  Создать в Word макрос, который определит количество слов, запятых и точек в произвольном тексте. Словами будем называть группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя.

5.  Составить в Excel функцию, получающую натуральное число N и возвращающее квадраты всех простых чисел от 0 до заданного натурального N. Произвести вычисления в книге с созданной функцией.

6.  Организуйте ввод сведений в таблицу, содержащую данные о выдаче долгосрочных  кредитов коммерческим банком со следующими данными: код получателя кредита, наименование получателя кредита, дата выдачи кредита, срок (3-4 срока), на который выдан кредит (в днях), процент, сумма кредита, дата оплаты процентов по кредиту.

7.  Создать в Word программу. В форме пользователь вводит слово или словосочетание, а программа просматривает весь текст и вставляет в конце документа введенное слово (словосочетание), рядом с которым перечислены все номера страниц, на которых это слово встречается. Совпадения номеров страниц не допускаются. То есть если указанное слово на странице 5 встречается три раза, номер 5 в выводе указывается только один раз.
Форма должна состоять из следующих компонентов: 1 TextBox для ввода слова (словосочетания); 1 кнопка для выхода из программы, 1 кнопка для запуска поиска и вставки результата в документ; компонент типа Label с поясняющим текстом над строкой ввода. Кроме того, на форме могут быть компоненты типа Frame.

8.  Разработать приложение, позволяющее при помощи диалогового окна, показанного на рисунке, заполнять таблицу Регистрация туристов.