Составить блок схему и программу выводящей на экран дисплея таблицу квадратов чисел, меняющихся в интервале от 1 до 20 с шагом 0,5
Dim i As Single
Dim k As Integer
For i = 0 To 20 Step 0.5
k = k + 1
Cells(k + 3, 1).Value = 1
Cells(k + 3, 2).Value = "*"
Cells(k + 3, 3).Value = i
Cells(k + 3, 4).Value = "="
Cells(k + 3, 5).Value = i * i
Next i
Это вба?