Составим блок-схему

Рис. 2.1 Блок-схема

Текст программы:

Sub Tabulir()

Dim i As Integer

Dim x, y As Single

i = 1 ' для № строки при выводе

For x = 0 To 1.5 Step 0.3 ' изменение х в заданных пределах

y = x * x

i = i + 1

Cells(i, 1).Value = x ' пишем x в i-ую строку

Cells(i, 2).Value = y ' пишем y в i-ую строку

Next x

End Sub

Рис. 2.2 Результат выполнения

Каждый вариант состоит из двух задач.

Каждую задачу решить двумя способами.