Реферат: Компьютерные информационные технологии 2

4. End Function

Здесь и далее нумерация 1,2,…, 5 дана с целью последую­щих комментариев операторов процедуры:

1. Задание открытой (Рublic) процедуры с именем Первый­Символ, возвращающей преобразованное значение (тип Function). Входным аргументом является строка strИсходнаяСтрoка, в ко­торой требуется установить первую букву как прописную, а ос­тальные — строчные.

2. Описание введенной вспомогательной переменной — стро­ки strСтрока. Эту строку планируется использовать для времен­ного хранения информации.

3. Определение содержимого переменной strСтрока как зна­чение строки strИсходнаяСтрока, в начале и конце которой уда­лены пробелы с помощью встроенной в Ехсеl функции Trim().

4. Установка первого (левого) символа содержимого строки strСтрока как прописного (применяется встроенная функция UСаsе) и перевод остальных символов строки в строчные (встро­енная функция LСаsе). Оператор & (логическое «и») использу­ется для слияния (объединения) двух подстрок в одну. Резуль­тат записывается в строку ПервыйСимвол, то есть в имя функ­ции — для передачи в вызывающую программу.

5. Окончание процедуры.

Пример 6. Создать процедуру обработки события Нажа­тие (Click) для помещенной в поле рабочего листа кнопки Пре­образовать. Преобразование заключается в вызове для содер­жимого предварительно выделенного диапазона ячеек рабочего листа Ехсеl процедуры ПервыйСимвол (пример 5 ), подсчете числа сделанных с помощью этой процедуры преобразований и выделении курсивом не измененных процедурой значений.

В рассматриваемом примере используются понятия объекта Selection,- свойств Value и Font.Italic,Cell и события Click.

1. Private Sub Преобразовать_Click ( )

2. Dim intЧислоЗамен As Integer

intЧислоЗамен = 0

3. For Each Cell In Selection

If Cell.Value <> Первый символ (Cell.Value) Then

Cell.Value = Первый символ (Cell.Value)

intЧислоЗамен = intЧислоЗамен +1

Else

Cell.Fon.Italic = True

End If

Next Cell

7.MsgBox «Сделано» & intЧислоЗамен & «преобразований»

End Sub

Комментарии:

1. Задание процедуры, обрабатывающей событие Нажатие(Click), возникающее при нажатии кнопки с именем Преобразовать. Процедура не возвращает никакого значения (Sub), доступна только в данном модуле (Private) и не имеет входных аргументов.

2. Описание введенной переменной — intЧислоЗамен. Содержи­мое этой переменной— число преобразованных функцией Пер­выйСимвол ячеек. Изначально содержимое переменной intЧислоЗамен равно 0.

3. Организуется последовательный перебор всех ячеек пред­варительно выделенного диапазона, рабочего листа таблицы Ехсеl, определяемого объектом Selection.

4. Осуществляется проверка неравенства исходного значения текущей ячейки диапазона и значения этой же ячейки, преобра­зованного функцией ПервыйСимвол. В случае неравенства вы­полняется группа операторов 5, а в случае равенства — 6.

5. Строка преобразуется путем вызова для содержимого теку­щей ячейки рабочего листа таблицы Ехсеl процедуры Первый­Символ; содержимое переменной intЧислоЗамен (счетчика вы­полненных преобразований) увеличивается на 1.

6. Содержимое текущей ячейки выделяется курсивом.

7. Вывод сообщения о числе преобразованных ячеек.

Данные, необходимые процедуре типа Sub или Function для выполнения ее задачи (в примере 5 . переменная strИсходнаяСтрока), передаются как аргументы. Аргументы отделяются друг от друга запятыми. Объявляя аргумент с помощью ключе­вого слова Аs, можно задать тип исходных данных.