Комментарий
Для выделения комментариев в VB используется одиночный апостроф (´).
Пример: ´Объявление переменных.
Символ объединения строк позволяет объединить в одной строке несколько операторов.
Пример:
y = 0 : x = 0 : a = 5.
Пример вложенной структуры «Развилка»:
Постановка задачи:
Вычислить
функцию
Состав входных данных:
x.
Состав выходных данных:
y.
Формула:
Схема алгоритма:
Код приложения:
Private Sub Command1_Click()
Dim a As Single, x As Single, y As Single
x = InputBox("Введите значение x=")
If x >= 3 And x <= 7 Then
a = InputBox("Введите значение a=")
y = Sin(a * x) ^ (1 / 3) + x
ElseIf x < 7 Then
y = Exp(x) + 5
Else
y = Sin(x)
End If
MsgBox "при x=" & x & Chr(10) & "y=" & y
End Sub
Структура «цикл»
«ЦИКЛ» используется для повторения одних и тех же действий при выполнении программы. Количество повторений определяется значением логического выражения, которое в свою очередь зависит от управляющей переменной называемой Параметром Цикла.
До начала цикла Параметру Цикла присваивается некоторое начальное значение, которое в процессе повторений обязательно должно изменятся. В противном случае Цикл может стать бесконечным, т.е. программа зацикливается.
Существуют Циклы с предусловием и с постусловием.
«Цикл» с предусловием
Он выполняется после проверки логического выражения.
Алгоритм выглядит следующим образом:
Данная структура может быть описана различными конструкциями:
For…Next
Используется для выполнения определенного количества повторений.
For <параметры Цикла> = <начальное значение параметра Цикла> to
<конечное значение параметра Цикла> [Step <шаг>]
<тело Цикла>
NEXT [<параметр Цикла>]
При отсутствии ключевого слова Step (величина шага) принимается равной +1.
Шаг может быть положительный и отрицательный.
Do…Loop
Используется обычно в тех случаях, когда число повторений заранее не известно.
Например: обрабатывается набор записей поступающих из базы данных.
Обычно количество записей не известно, но может быть определено когда достигнут конец файла.
Do <условие>
<тело Цикла>
Loop
Данная конструкция может быть использована аналогично конструкции For…Next и тогда она будет выглядеть:
Do WHILE <условие повторения>
<тело Цикла>
<изменение параметра Цикла>
Loop.
Do…UNTIL
Do UNTIL <условие завершения Цикла>
<тело Цикла>
<параметр Цикла> = <параметр Цикла> + <шаг>
Loop.
Примечание:
По международному соглашению при работе с вещественными данными к конечному значению параметра цикла прибавляется половина величины шага, чтобы за счет погрешности не потерять последнее значение заданного диапазона.
В блок-схеме этот момент не учитывается.
Пример: