Question

Заполните ячейки А1, А2, А3 электронной таблицы любыми числами. Составьте программу на языке VBA, которая замениткаждое из этих чисел квадратным корнем из числа. Отрицательные числа замените текстом "преобразование невозможно".

Answer 1

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

b42cd5086cb2564303d244b7e97d2429.xls