Программирование циклов, цикл do while - Примеры решения задач

Пример 1. Представить таблицу квадратов чисел от 2 до 10.

Решение.

Для отображения результатов воспользуемся Excel и для доступа к ячейкам функцией Cells (номер_строки, номер_колонки).

Sub квадраты()
Dim x
 
Cells(2, 1).Value = "x"
Cells(3, 1).Value = "x^2"
 
For x = 2 To 10
Cells(2, x).Value = x
Cells(3, x).Value = x ^ 2
Next x
End Sub