Для сравнения принципа работы рассматриваемого оператора с оператором For приведем пример программы, выполняющей аналогичную задачу вычисления суммы
Sub Sum()
Dim i As Integer
n = InputBox("Введите количество слагаемых")
s = 0
i = 0
While i < n + 1
s = s + i ^ 2
i = i + 1
Wend
Приведем пример предыдущей задачи с использованием данного оператора
Sub Sum()
Dim i As Integer
n = InputBox("Введите количество слагаемых")
s = 0
i = 0
Do While i < n + 1
s = s + i ^ 2
i = i + 1
Loop
MsgBox s
End Sub
или
Sub Sum()
Dim i As Integer
n = InputBox("Введите количество слагаемых")
s = 0
i = 0
Do
s = s + i ^ 2
i = i + 1
Loop Until i > n
MsgBox s
End Sub
4. Содержание условия оператора If. Для записи разветвляющихся алгоритмов используется оператор If (Если), который имеет две формы записи.
1. Однострочная запись:
If условие Then [оператор]
If условие Then [оператор 1] [ Else оператор 2]
2. Многострочная запись:
If условие Then
[оператор 1]
[оператор 2]
[оператор 3]
End If
В однострочном операторе условие и выполняемые при соблюдении условия действия располагаются в одной строке. В том случае, если при выполнении условия требуется выполнение блока операторов, используется многострочный оператор.
|
|
После имени конструкции If должно следовать логическое выражение, содержащее условие. Для создания сложных условий используются логические операции And (И) и Or (Или). В качестве условия могут выступать следующие логические выражения: сравнение переменной с другой переменной, константой или функцией; любая переменная; выражение; поле базы данных; функция, принимающие значения True (Истина) или False (Ложь).
5. Невыполнение условия в операторе If. Если условие не выполняется, то Visual Basic переходит к выполнению операторов, следующих за указанным оператором.
В качестве примера приведем функцию определения корней квадратного уравнения:
Function Корни(a, b, c)
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + d ^ (1 / 2)) / (2 * a)
x2 = (-b - d ^ (1 / 2)) / (2 * a)
Корни = "x1=" + str(x1) + "; x2=" + str(x2)
Else
Корни = "корней нет"
End If
End Function
6. Назначение операторов Then, Else и Else If. Конструкция If … Then (Тогда) … Else (Также)аналогична конструкции If... Then, но позволяет задать действия, исполняемые как при выполнении условий, так и в случае их невыполнения.
Команда If может проверить только одно условие. Если требуется осуществить переход управления в зависимости от результатов проверки нескольких условий, то дополнительное условие можно задать с помощью оператора Else If (Также Если). Оно будет анализироваться только в том случае, если предыдущее условие ложно.
Ключевое слово End If обозначает конец многострочной конструкции и его наличие в команде в этом случае обязательно. Если указанное условие выполняется, то есть результат проверки равен True (Истина), то выполняются операторы, следующие за ключевым словом Then.
|
|