Программирование циклов - Примеры решения задач
Примеры решения задачПример 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
|
