Файл: Informatika_Chast_3_2009_Naumov.docx

Слово ByRef задает передачу по ссылке (By Reference – посредством ссылки на адрес в памяти ЭВМ, где размещена переменная, являющаяся соответствующим фактическим параметром подпрограммы). Параметры такого статуса являются, как правило, выходными, но через них в вызываемую подпрограмму можно передавать и исходные данные ( текущие значения, изменяемые внутри этой подпрограммы, например, значения времени, изменяемые с заданным шагом при динамических расчетах).

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

В блочном условном операторе блоки операторов, помещенные в его ветвях, размещаются по тексту обязательно в отдельных строках (отдельно от строк, где размещены условия со служебным словом Then и служебное слово Else). В блоке операторов в одной строке могут размещаться несколько операторов, разделенных двоеточием. Блочный оператор завершается служебными словами End If, размещаемыми в отдельной строке.

Для наглядности соответствующие служебные слова If и End If, Then и Else рекомендуется размещать одно под другим, а вложенные блоки смещать по строкам вправо, выравнивая их по левому краю.

10. Выполнить программу из файла max2.xls для любых трех пар неравных чисел.

Далее закрыть этот файл и открыть скопированный ранее в бригадную папку файл max3.func.xls. В этом файле реализован проект вывода максимального из 3-х чисел с помощью структурированной программы, состоящей из главной подпрограммы и вспомогательной подпрограммы-функции с именем «max2». Эта функция задает выбор максимума из 2-х чисел.

11. Ознакомиться с содержанием программы из файла max3_ func.xls: выбор максимального из трёх чисел с использованием подпрограммы-функции выбора максимума из двух чисел.

подпрограмма-функция (описание)

Function max2(ByVal x As Integer, _└┘–

ByVal y As Integer) As Integer

If x>y Then max2= x Else max2= y

End Function

Главная подпрограмма

Private Sub CmdРешение_ Click ()

Dim a As Integer, b As Integer, _└┘–

c As Integer, maximum As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

c = CInt(Text3.Text)

maximum=max2(max2(a, b), c)

Text4.Text= maximum

End Sub

Пояснения

В главной подпрограмме в конце действий выполняется вывод в поле с именем «Text4» максимального значения из 3-х чисел. Это значение определено с использованием и последовательным вызовом подпрограммы-функции выбора максимума из 2-х чисел.

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

После первого обращения к функции с именем «max2» она имеет значение максимума из значений переменных «a» и «b». Это значение передается в качестве фактического параметра при втором обращении к функции наряду со значением переменной «с». В итоге получается окончательный результат.

12. Выполнить программу из файла max3_func.xls. Далее закрыть этот файл.

13. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

14. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса <имя группы>».

Содержание отчета

Отчет должен содержать:

• номер, название и цель работы;

• краткую теоретическую часть, включающую:

• описание форматов строчного и блочного условных операторов;

• возможности вложенности одного условного оператора в другой;

• основные понятия, связанные с использованием вспомогательных подпрограмм и главной подпрограммы;

• определение статусов параметров, задающих условия передачи этих параметров из главной подпрограммы во вспомогательную и обратно;

• результаты выполнения работы согласно заданию, выданному преподавателем, а именно текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;

• заключение по работе.

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

1. Определение разветвляющегося алгоритма. Пример.

2. Что такое логические операции, их назначение? Приведите примеры.

3. Синтаксис условного оператора «If …Then…Else». Формы записи условного оператора.

4. Сколько строк кода может следовать за операторами Then или Else?

ЛАБОРАТОРНАЯ РАБОТА № 3

Редактор VBA. Оператор множественного

ветвления

Цель работы:

• познакомиться с алгоритмом типа «выбор» и оператором множественного ветвления Select Case;

• получить навыки создания программного модуля с использованием оператора множественного ветвления Select Case.

Теоретическая часть

Оператор Select Case еще называют переключателем.

Общий формат оператора множественного ветвления Select Case представлен на рис. 4.

Рис. 4

В переводе с английского Select Case означает «выбор случая (варианта)».

Выражение – может быть в частности константа (число) или переменная любого типа.

Список условий – может быть трех видов:

1) Case константа 1, константа 2, константа 3,…;

2) Case Is знак отношения константа;

(есть)

3) Case константа 1 To константа 2.

(до)

Действия при выполнении инструкции Select Case:

– сначала в общем случае вычисляется значение выражения в заголовке;

– затем производится проверка на совпадение значения выражения (или переменной) и одного из Case-условий: в случае совпадения выполняются инструкции (операторы), помещённые за этим Case-условием; в случае несовпадения во всех Case-условиях выполняются инструкции после служебных слов Case Else.

В первом виде списка условий необходимо равенство значения выражения одной из списка констант.

Во втором виде списка условий должно выполняться условие отношения между значением выражения и константой («ключом» к соответствующей ветви может быть любое значение из заданного полуинтервала, ограниченного константой с той или иной стороны).

В третьем виде списка условий должно выполняться условие-отношение:

константа 1<= выражение<= константа 2, т.е. «ключом» к соответствующей ветви может быть любое значение из заданного интервала, включая его границы.

Оборудование, инструменты и приборы: ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).

Задания

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

Таблица 3

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

Продолжение табл. 3

Продолжение табл. 3