Создание финансовых функций

Контрольные вопросы

Задание

Пример программы

Справочная информация

Символьная информация постоянно присутствует во всех программах, как средство ведения диалога с пользователем, а также для отображения входных и выходных данных. Для ее описания используются типы данных String, Variant, а также символьные константы. При обработке символьной информации часто применяются функции обработки строк Asc(), Chr(), Lcase(), Ucase(), Left(), Rigt(), Mid(), Len(), Ltrim(), Rtrim(), Trim(), Spaсe(), String(), StrComp(), StrReverse(), InStr(), InStrRev(), Replace() (см. прилож. 14).

1. Требуется создать программу, позволяющую преобразовать начальную букву строковой переменной в заглавную, если это не пробел.

‘ Пример 3.1

‘Лабораторная работа №3

Sub Lab_rab_3_1()

Dim p, v As String

'объявляем переменные р (входная) и v (выходная) - строковыми

M1: p = InputBox("Введите строку символов", _

"Ввод данных", " абвгдежзе")

'Метка М1: переменной р присваиваем значение строки символов, 'вводимой с клавиатуры

If p = Empty Then Exit Sub

'если нажата кнопка Cancel, тогда завершаем процедуру

If Asc(Left(p, 1)) = 32 Then

'если ASCII код первого символа строки есть "пробел", тогда

MsgBox "Первый символ - пробел. Повторите ввод", _

vbInformation + vbOKOnly, "Внимание!"

'вывод на экран сообщения

GoTo M1

'и переход на метку М1

Else

'иначе

v = UCase(Left(p, 1)) & Right(p, Len(p) - 1)

'Формирование выходной переменной

MsgBox v, vbOKOnly, "Результат"

'Вывод результата

End If

'закрывающая операторная скобка

End Sub

2. Требуется создать программу вывода на экран очередного символа строки. Реализовать режим повтора работы программы по запросу пользователя.

‘ Пример 3.2

‘Лабораторная работа №3

Sub Lab_rab_3_2()

Dim p As String, i, n, k As Integer

met: p = InputBox("Введите строку символов", _

"Ввод данных", "абвгдеж")

If p = Empty Then Exit Sub

For i = 1 To Len(p)

'Цикл по I от 1 до количества символов строки

MsgBox Str(i) & " – тый символ строки - " & Mid(p, i, 1)

Next i

k = MsgBox("Продолжить работу программы", _

vbYesNo + vbQuestion)

'Переменной к присваивается значение, возвращаемое

'функцией MsgBox() в зависимости от нажатой пользователем

'кнопки Да или Нет

If k = vbYes Then GoTo met

End Sub

1. Выполните постановку задачи, опишите экономико-математическую модель и метод решения, составьте алгоритм решения и представьте их преподавателю.

2. В соответствии с вариантом задания (см. табл.4) создайте процедуру обработки символьной информации (см. Пример 3).

3. Отладьте программу, проверьте ее работоспособность, в том числе с критическими и недопустимыми значениями параметров.

4. Создайте в Кнопочной_форме кнопку для запуска созданной процедуры и проверьте ее работу.

5. Сохраните созданный модуль и представьте работу преподавателю.

Таблица 4

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

№ варианта	Задание
	Три последние символа строки преобразовать к верхнему регистру, переместить их в начало строки и вывести результат на экран. Реализовать режим повтора работы программы по запросу пользователя. Ввод строки выполнить с помощью функции InputBox().
	Ввести с помощью функции InputBox() фамилию студента и вывести на экран обращение по схеме: «Господин Иванов!» или «Госпожа Иванова!» Проверку осуществлять на наличие буквы «а» в конце фамилии. Если фамилия заканчивается на другие буквы, тогда форму обращения уточнить с помощью запроса у пользователя.
	Удвоить или утроить (по указанию пользователя) каждую букву символьной строки по схеме: тень àттеенньь и вывести результат на экран. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Найти гласные буквы в символьной строке и, если они есть, то преобразовать их в прописные и вывести результат на экран, если их нет - вывести об этом сообщение. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Добавить в начало символьной строки символы «*», число которых равно числу символов строки и вывести результат на экран. Если первый символ – не цифра, то сообщить об этом пользователю. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Найти цифры в символьной строке и, если они есть, заменить их на символ «!» и вывести результат на экран, если их нет – вывести об этом сообщение пользователю. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Вывести на экран четные символы строки в обратной последовательности. Реализовать режим повтора работы программы по запросу пользователя. Ввод строки выполнить с помощью функции InputBox().
	Вывести на экран сообщение пользователю, четное или нечетное число гласных букв русского алфавита находится в символьной строке. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Вывести на экран первую или вторую половину (по указанию пользователя) символьной строки. Ввод строки выполнить с помощью функции InputBox().Реализовать режим повтора работы программы по запросу пользователя.
	Найти в символьной строке двойные пробелы и, если они есть, заменить их на одинарные пробелы и вывести результат на экран. Реализовать режим повтора работы программы по запросу пользователя. Ввод строки выполнить с помощью функции InputBox().

1. Для каких целей применяется каждая из функций обработки строк:

Asc(), Chr(), Lcase(), Ucase(), Left(), Rigt(), Mid(), Len(), Ltrim(), Rtrim(), Trim(), Spaсe(), String(), StrComp(), StrReverse(), InStr(), InStrRev(), Replace()?

2. Объясните смысл использованного в примере программы выражения

v = UCase(Left(p, 1)) & Right(p, Len(p) - 1)

3. Объясните назначение параметров функции InputBox() и процедуры MsgBox, использованных в примере 3.

4. Каково отличие функции и процедуры?

5. *В профессиональном программировании использование оператора <Goto Метка> считается некорректным. Предложите вариант программы без использования перехода на метку.

Цель работы – изучение основ создания пользовательских финансовых функций средствами языка программирования VBA.

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

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