Page 21 - 6735

Public Sub main()
x = 1.5: i = 2
y = IIf(x = 1.5, 6, 0) 'якщо умова істинна, то повертає 6,
інакше 0
y = Choose(i, 4.6, 3.7, 8, 10.2) 'якщо і=1, то y=4.6, якщо
і=2, то y=3.7, і т.д.
y = Switch(x = 0.5, 0.2, x = 1.5, 4.1) 'якщо x=0.5, то
повертає 0.2, якщо x=1.5, то повертає 4.1
End Sub

Оператори циклу For-Next

Оператори циклу призначені для циклічного виконання
заданого блоку команд. Оператор циклу For-To-Next циклічно
виконує блок команд, поки змінна циклу не досягне заданого
значення. На кожній ітерації змінна циклу збільшує своє значення
на 1, але дозволяється вказувати довільний крок після слова Step.
Оператор циклу For-Each-Next циклічно виконує блок команд,
для кожного елемента в масиві або колекції.

Dim i, s As Integer
Dim x, y As Double
Dim obj As Object

Public Sub main()
'Приклад 1: знайти суму цілих чисел від 1 до 100
s = 0 'присвоїти сумі 0
For i = 1 To 100 'i змінюється від 1 до 100
s = s + i 'додати до суми 'i'
Next i 'наступне 'i'
Debug.Print s 'вивести

'Приклад 2: вивести таблицю значень y=Sin(x), якщо 'x'
змінюється від 0 до 1 із кроком 0.1
For x = 0 To 1 Step 0.1 'x змінюється від 0 до 1 із кроком
21