Заполните ячейки А1, А2, А3 электронной таблицы любыми числами. Составьте программу на языке VBA, которая замениткаждое из этих чисел квадратным корнем из числа. Отрицательные числа замените текстом "преобразование невозможно".
Ответы
Ответ дал:
0
Sub koren()For i = 1 To 3If Cells(i, 1) < 0 ThenCells(i, 1) = "Преобразование невозможно"ElseCells(i, 1) = Sqr(Cells(i, 1))End IfNext iEnd Sub
Приложения:
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад