Оператор выбора Select Case
Оператор выбора Select Case удобно использовать, когда в зависимости от значения некоторого выражения, имеющего конечное множество допустимых значений, необходимо выполнить разные действия.
Select Case Тестируемое выражение
Case Условие выбора 1
Блок операторов 1
……………
Case Условие выбора n
Блок операторов n
Case Else
Блок операторов
End Select
После каждого оператора Case может находиться произвольное количество других операторов, и все они будут выполняться, если условие оператора Case истинно.
Пример
Рассмотрим пример начисления комиссионных на основе оператора выбора Select Case. В этом примере размер комиссионных зависит только от объема проданной продукции по правилу, приведенному в табл. 7.
Таблица 7
| Объем продаж, тыс. руб. | Комиссионные, % |
| От 0 до 9999 | |
| От 10000 до 39999 | |
| 40000 и более |
Программный код
Option Explicit
Sub PR6()
Dim opr As Double
Dim prem As Double
opr = Val(InputBox("Введите объем продаж"))
Select Case opr
Case 0 To 9999
prem = 0.08 * opr
Case 10000 To 39999
prem = 0.1 * opr
Case Is >= 40000
prem = 0.14 * opr
End Select
MsgBox ("Комиссионные=" & prem)
End Sub
Слово Is, используемое в программе, является ключевым словом VBA, обозначающим тестируемое выражение в операторе Case.
В операторе Case допустимо использовать составные условия, подобно тому, как это делается в условном операторе.
Пример
Case 5, 6, 9 to 10, 13, 14, Is>=16
В этом операторе проверяется, принадлежит ли тестируемое выражение отрезку от 9 до 10 или равняется одному из значений: 5, 6, 13, 14, или оно не меньше 16.
Операторы цикла
Циклический процесс – это процесс, в котором один оператор или группа операторов выполняются многократно при различных значениях аргумента.
Оператор цикла с параметром For – Next
Оператор цикла For – Nextиспользуется, когда заранее известно, сколько раз должно повториться тело цикла.
Общий вид оператора цикла с параметром выглядит следующим образом:
For Счетчик = Начальное значение To Конечное значение Step Шаг
Блок операторов
Next Счетчик
Цикл For – Next обеспечивает выполнение блока операторов (тела цикла) n раз при последовательном изменении счетчика от начального до конечного значения с указанным шагом изменения.
.
Если Step Шаг в конструкции отсутствует, то по умолчанию считается, что шаг равен 1.
Пример 1
Задано натуральное число n. Вычислить n! (факториал n).
Напомним, что n! = 1×2×3×4×…×n.
Например, 5! = 1×2×3×4×5 = 120.
Программный код
Option Explicit
Sub PR7()
Dim n As Integer
Dim F As Double
Dim i As Integer
n = Val(InputBox("Введите n"))
F = 1
For i = 1 To n
F = F * i
Next i
MsgBox ("Факториал числа " & n & "=" & F)
End Sub
Пример 2
Вычислить y=sin0.1+sin0.2+sin0.3+…+sin10
Программный код
Option Explicit
Sub PR8()
Dim x As Double, y As Double, summa As Double
summa = 0
For x = 0.1 To 10 Step 0.1
summa = summa + Sin(x)
Next x
MsgBox ("Сумма=" & summa)
End Sub
Оператор цикла While – Wend
Оператор цикла While – Wend используется для организации цикла с неизвестным заранее числом повторений тела цикла. Общий вид цикла While – Wendвыглядит следующим образом:
While Условие
Блок операторов
Wend
Цикл While – Wend обеспечивает многократное выполнение блока операторов, пока условие принимает значение True (истина).
Пример 1
Вычислить и вывести значения функции Y при X изменяющемся от –10 до 10 с шагом 2.
Программный код
Option Explicit
Sub PR9()
Dim X As Integer
Dim Y As Double
X = –10
While X <= 10
If X <> 2 Then
Y = 1 / (X – 2) + X
MsgBox ("Y=" & Y)
Else
MsgBox ("функция не определена")
End If
X = X + 2
Wend
End Sub
Пример 2
Задан натуральный ряд чисел. Вычислить сумму четных чисел данного ряда.
Программный код
Option Explicit
Sub PR10()
Dim N As Integer, I As Integer, S As Double
N = Val(InputBox("Введите N"))
I = 2 : S = 0
While I <= N
S = S + I
I = I + 2
Wend
MsgBox (S)
End Sub
Пример 3
Вкладчик положил на счет 1000 рублей. Через сколько дней вклад достигнет 20000 рублей, если начисляемый процент 0,6 % в день.
Ответ: 500 дней.
Программный код
Option Explicit
Sub PR11()
Dim V As Double
Dim Pr As Double
Dim Kol As Integer
V = Val(InputBox("Введите начальный взнос"))
Kol = 0
While V <= 20000
Pr = V * 0.6 / 100
V = V + Pr
Kol = Kol + 1
Wend
MsgBox ("20000 руб. вклад достигнет за " & Kol & " дней")
End Sub