End Sub. Пример 23. Построить и заполнить таблицу значениями функции

Пример 23. Построить и заполнить таблицу значениями функции

на отрезке с шагом 1 для аргумента х, изменяющегося от 3 до 5 с шагом 0,5. Точку х=а исключить.

Sub Demo_tab()

Dim i, a As Integer

Dim x, y As Single

i = 1

For a = 4 To 6 Step 1

For x = 3 To 5 Step 0.5

' Вычисляем значение функции, если знаменатель не ноль

If x <> a Then

y = Sqr(x ^ 2 + a ^ 2) / (x - a)

End If

i = i + 1

Cells(i, 2) = x

Cells(i, 3) = y

Cells(i, 1) = a

Next x

i = i + 1 ' вставляет пустую строку между разными а

Next a