Предмет: Информатика,
автор: daryakahnovich
Заполните ячейки А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
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: damiraukenov2009
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: Gmbhjhbhhjjujokhyujj
Предмет: Химия,
автор: gitselar