Question

Составить блок схему и программу выводящей на экран дисплея таблицу квадратов чисел, меняющихся в интервале от 1 до 20 с шагом 0,5

Answer 1

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