выражение

выражение То выражение Is знак отношения выражение Пример: Select Case Value Case /, 3 Блок операторов 1 Case 5 То 10 Блок операторов 2 Case 12 Is >= 15

Блок операторов 3

Case Else

Блок операторов 4 End Select В данном примере проверяемым выражением является значение Value. Если значение Value 1 или 3 (Case /, 3), выполняется Блок операторов I. Если значение Value от 5 до 10 (Case 5 То 10), выполняется Блок операторов 2. Если значение Value равно 12 или больше 15 (Case 12 Is >= 15), выполняется Блок операторов 3. Если значение Value не равно ни одному из указанных значений ^и не принадлежит ни одному из указанных диапазонов, выполняется Блок операторов 4. Пример программы. Программа должна определять, является ли вводимый символ большой или малой буквой латинского алфавита или четной или нечетной десятичной цифрой. Проверка символа осуществляется по значению ASClI-кода вводимого символа. Значение ASClI-кода вводимого символа является проверяемым выражением структуры Select Case. В зависимости от значения кода выдается то или иное сообщение (соответствующие блоки Case-операторов. Запуск программы осуществляется щелчком мыши по форме (операторы программы помещаются в процедуру обработки события Form_Click). Для ввода символа и вывода сообщения используются встроенные функции InpupBox и MseBox. Рис 3 5 В программе используются всгроенные функции Len (определяет длину строки), Cdbl (преобразует тип исходного выражения в тип Double), Is Numeric (проверяет, является ли символ числом), Asc (преобразует символ и ASCll-код), Спг (преобразует ASCII-код в строку). После запуска программы появляется пустая форма. Щелчок мыши на форме вызывает появление окна ввода, в котором можно набрать вводимый символ и ввести его щелчком мыши по кнопке или клавишей “Enter” (рис. 3.5). После ввода появляется окно, выводящее характеристику введенного символа Ввод других символов будет вызывать вывод соответствующих сообщений. Рис 3 б 3.5.5. Циклы В алгоритмах обработки информации и реализующих их программах широко используются циклы — повторяющиеся одинаковые вычисления. Для реализации такого рода программ в Visual Basic специальные средства — операторы цикла. 3.5.5.1. Оператор цикла For-Next Синтаксис оператора следующий:

For параметр цикла = начшьное значение То конечное значение [Step шаг} {блок операторов} [Exit For] [блок операторов^ Next {параметр цик-га {,параметр цик-ш ][, .]] где For, To, Exit For, Step, Next ключевые слова. Пара For-Next определяют начало и конец оператора цикла. Операторы между ними (б->ок операторов) повторяются столько раз, сколько определено. задаваемыми начальным значением, конечным значением и шагом. Exit For может находится в любом месте между For - Next и используется для прекращения выполнения цикла (управление передается на оператор, который следует сразу за Next) и применяется, например, в логическом операторе, который проверяет альтернативное условие прерывания цикла (например, ошибку). Параметр цчюш - арифметическая переменная, не может быть элементом массива или элементом пользовательского типа данных. Начальное значение, конечное значение и шаг определяют значения, которые принимает параметр цикла при работе программы - на первом шаге параметр цикла принимает начальное значение, после выполнения операторов, входящих в цикл (блок операторов), параметр цикла изменяется на величину шага (выполняется оператор Next), опять выполняются операторы, входящие в цикл, параметр цикла изменяется на величину шага и т. д., пока параметр цикла не примет последовательно все свои значения. После того, как параметр цикла примет все свои значения и соответственное число раз выполнится блок операторов в цикле, будет выполняться следующий за Next оператор. . Операторы, входящие в цикла будут выполняться если: шаг цикла >= 0 и конечное значение >= начальное значение шаг цикла < 0 и конечное значение <= начальное значение. Пример. Рассматривается фрагмент программы для нахождения максимального значения элементов одномерного массива из 15 элементов. Dim В (1 То J5), МахВ As Single 'оператор объявления массива и переменной МахВ = В(1) 'присвоение начального значения МахВ For /= /To 15 'начало цикла If B(I) > МахВ Then МахВ = В(1) 'этот оператор выполнится 15 раз Next / 'конец цикла MsgBox Str(MaxB) 'для вывода результата используется 'встроенная функция MsgBox, в которой 'используется встроенная функция Str 'для преобразования числового значения в строку При использовании оператора цикла необходимо соблюдать правила:

1. Следует избегать изменения значения параметра цикла в каких-либо операторах внутри цикла.

• 2. Передача управления на операторы внутри цикла (кроме первого) из каких-либо операторов вне цикла запрещена.

Оба фрагмента программ эквивалентны, т.е. два цикла могут заканчиваться одним оператором Next. При выполнении цикла в цикле внутренний цикл выполняется для каждого значения параметра внешнего цикла (в фрагментах программ оператор C(I,J) = A(I) * B(J) выполнится 12 раз со следующей последовательностью индексов: С(1,1), С(1,2), С(1,3), С(1,4), С(2,1), С(2,2), С(2,3), С(2,4), С(3,1), С(3,2), С(3,3), С(3,4)). Внутренний (“вложенный”) цикл должен целиком содержаться во внешнем цикле: Число вложенных циклов не ограничено. Пример. Рассматривается фрагмент программы для формирования вектора А(4). элементами которою являются суммы столбцов матрицы В (5,4). Dim А(1 То 4), В(1 То 5, / То 4) As Single’onepaTop объявления массивов For J = I To 4

A(J) = 0 'присвоение начального значения

'элемента вектора For / = / То 5

A(J) = A(J) + B(/,J) 'вычисление суммы в цикле Next / Next J Пример программы. Определен массив записей для хранения результатов экзаменов Dim Sesia (5) As Resiiitaf на основе пользовательского типа данных Type Reyiltat Familia As Sti ing * 20 Name Exam (1 To 3) As Stung * /5 ReyiltExam (/ To J) As Integer End Type Программа должна вводить исходные данные и определять среднюю оценку студента, фамилия которого задается Поместим описание пользовательской структуры данных в раздел Geneial модуля Module! (рис 3 7) и создадим форму (рис 3 8). Рис 37 Форма и программы процедур обработки событии обеспечивают следующую логику работы При загрузке формы меткам (Label I, Label2, Label3) присваиваются названия экзаменов и активизируется командная кнопка “Ввод”, командная кнопка “Вычисление” не активна Последовательное пятикратное щелканье мыши по кнопке “Ввод” после заполнения информацией текстовых окон обеспечивает ввод необходимых исходных данных После чего командная кнопка “Ввод” деактивизируется, а командная кнопка “Вычисление” активизируется После ввода в текстовое окно под ней фамилии и щелчка мыши по кнопке “Вычисление” производится вычисление средней оценки студента и результат выводится в текстовое окно Рис 38 Работа с формой показана на рис.3.9, а, б. 3.5.5.2. Оператор цикла Do-Loop Синтаксис оператора следующий Do [{While | Until} логическое выражение]