Page 22 - 6735

0.1
y = Sin(x) 'обчислення функції
Debug.Print "x="; x; "y="; y 'вивести
Next x 'наступне 'x'

'Приклад 3: знайти індекс елемента масиву зі значенням 7
A = Array(2, 5, 7, 1) 'масив
For i = 0 To 3 'i змінюється від 0 до 3
'якщо елемент рівний 7, то вивести індекс і вийти з
циклу
If A(i) = 7 Then Debug.Print i: Exit For
Next i 'наступне 'i'

'Приклад 4: вивести елементи масиву А
For Each x In A 'для кожного х у А
Debug.Print x; 'вивести
Next x 'наступний х

'Приклад 5: вивести в комірки A1:A5 1
For Each obj In Range("A1:A5") 'для кожного об'єкта obj у
діапазоні комірок
obj.Value = 1 'присвоїти значенню комірки 1
Next obj 'наступний об'єкт
End Sub
5050
x= 0 y= 0
x= 0,1 y= 9,98334166468282E-02
x= 0,2 y= 0,198669330795061
x= 0,3 y= 0,29552020666134
x= 0,4 y= 0,389418342308651
x= 0,5 y= 0,479425538604203
x= 0,6 y= 0,564642473395035
x= 0,7 y= 0,644217687237691
x= 0,8 y= 0,717356090899523
x= 0,9 y= 0,783326909627483
x= 1 y= 0,841470984807896
2
22