- •Федеральное агентство по рыболовству Балтийская государственная академия рыбопромыслового флота
- •Оглавление
- •Введение
- •Программирование на языке Visual Basic
- •Создание Windows-приложения
- •Переменные и константы
- •Объявление типа переменной
- •Комментарии в программных кодах
- •Выражения
- •Оператор присваивания
- •Функции
- •Математические функции
- •Финансовые функции
- •Системные функции InputВox и MsgBox
- •Вывод только значения переменной z
- •Строковые выражения и функции
- •Использование текстовых полей для ввода и вывода
- •Вывод на экранную форму с помощью оператора Print
- •Оператор If…Then для программирования ветвлений
- •Оператор Select Case
- •Программирование циклов с использованием операторов For…Next и Do…Loop
- •2. Оператор цикла do ... Loop (цикл с условием)
- •Оператор Exit
- •Циклы с незаданным числом повторений
- •Массивы
- •Работа с одномерным массивом
- •‘ Переобъявление динамического массива
- •Двухмерные массивы
- •Сортировка элементов массива
- •Работа с файлами последовательного доступа
- •Контрольные вопросы
- •Список литературы
Оператор Select Case
Оператор Select Case удобно использовать при проверке сложных условий. Он позволяет обрабатывать в программе несколько условий. Оператор выполняет один из нескольких блоков операторов в зависимости от значения выражения. Он позволяет выбирать альтернативу в программе, такая конструкция называется «переключателем».
Синтаксис оператора Select Case имеет вид:
Select Case выражение
Case условие 1
блок операторов 1
Case условие 2
блок операторов 2
Case условие n
блок операторов n
[Case Else
блок операторов по умолчанию]
End Select
Если встретилось первое истинное значение, то выполняются нижеследующие операторы до слова Case и конструкция завершается.
Если ни одно из Case-условий не истинно, то выполняются операторы, следующие за словом E1se.
Если оператор Сasе E1se отсутствует и ни одно из Сase-условий не является истинным, то не выполняется ни один из операторов.
Case-условие может иметь вид:
а) Case константа 1, константа 2, …
Например, Case 1,2,3
В этом случае достаточно, чтобы значение выражения было равно любой из констант;
б) Case Is знак отношения константа
Например, Case Is>10
В этом случае необходимо, чтобы выполнялось условие отношения;
в) Case Константа 1 ТО Константа 2
Например, Case 60 То 90
В этом случае необходимо, чтобы выполнялось соотношение:
Константа 1 <= выражение <= Константа 2
Пример.
Используя оператор Select Case, вычислить значение функции Y
y =
x2, если x<0
0 в остальных случаях
Фрагмент программного кода будет иметь вид:
х = Val(InputВox("x=", "Ввод х"))
Select Case х
Case Is > 0
у=х^3
Case Is < 0
у=х^2
Case E1se у = 0
End Se1ect
MsgBox "у=" & у & "при х = "& х
Пример.
Задано число N. В случае если N – натуральное нечетное число, меньшее 10, то целочисленной переменной F присвоить значение 1. Если N – натуральное четное число, меньшее 10, то переменной F присвоить значение 2.
Если N – отрицательно, то переменной F присвоить значение –1.
Если N принадлежит промежутку [10,1000], то переменной F присвоить значение 10, иначе F присвоить значение 0.
Программный код имеет вид:
Dim f As Integer, n As Integer
n = InрutВох("Введите число n ","Ввод данных")
Select Case n
Case 1,3,5,7,9
f = 1
Case 2, 4,6,8
f = 2
Case Is < 0
f = –1
Case 10 То 1000
f = 10
Case Else f = 0
End Select
MsgBox "Переменная f=" & f & " для числа n =" & N,64,”Ответ”
Программирование циклов с использованием операторов For…Next и Do…Loop
При решении многих задач часто необходимо многократно повторять одни и те же действия над одними и теми же переменными, которые меняют свои значения. Такие вычислительные процессы называются циклическими. Существуют циклы с заданным числом повторений и циклы с заранее неизвестным числом повторений. Циклы могут быть простыми и сложными.
Для организации циклов используются операторы цикла FOR … NEXT и DO … LOOP.
1. Оператор цикла FOR … NEXT (цикл со счетчиком)
Синтаксис оператора цикла имеет вид:
For х = а То b [ Step с ]
операторы тела цикла
Next [х]
где х - переменная или счетчик цикла;
а, b, с - соответственно начальное, конечное и шаг изменения переменной цикла (при с = 1 шаг изменения переменной цикла можно не указывать).
Пример.
Вычислить квадраты целых чисел от 1 до 10.
Dim n As Integer
For n = 1 То 10
y=n^2
Print n,y
Next n