Предмет: Информатика, автор: daryakahnovich

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

Ответы

Автор ответа: v1248
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
ПОМОГИТЕ ПЖ У МЕНЯ СОЧЬ ПЖ Прочитайте внимательно текст и выполните задания.

Звёздное небо – идеально. Созвездия гармонируют друг с другом и создают великолепное впечатление. Луна дополняет этот образ своим мягким, но ярким светом. Если действительно задуматься, то такое чувство, что вот-вот взлетишь в космос. Облака иногда закрывают луну, но не портят образ неба.

Созвездия бывают совершенно разные и очень даже похожие. Например, Малая Медведица и Большая Медведица. Иногда можно найти знаки зодиака: Козерог, Овен,3 Телец, Рыбы и т.д. Различные животные посещают звёздное небо и «смотрят» на нас. Можно найти такие звёзды как Сириус. Мелкие звёзды сосчитать невозможно. Их как будто рассыпали. Они то гаснут, то опять появляются. Самый звёздный месяц – август. В этот месяц – очень много падающих звёзд. Звёздное небо – удивительно и неповторимо.

1. Запишите тему текста.

2. Определите стиль речи данного текста

3. Определите жанр текста

4. Сформулируйте и запишите основную мысль текста

5. Выпишите из текстов одно предложение с однородными членами. Составьте схему

6. Дайте ответы на вопросы.

1.Почему звёздное небо мы считаем удивительным и неповторимым?

2. Почему звёздное небо всегда привлекало человека?


7. Сформулируйте 1 тонкий и 1 толстый вопрос по тексту.
Предмет: Математика, автор: Gmbhjhbhhjjujokhyujj