В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму
элементов массива и разделить каждый элемент массива на полученное
значение результат получить в диапазоне ячеек Е1:Е15. Разместить
командную кнопку «Вычислить» и написать к ней процедуру. Результат с
моделируйте на рабочем листе самостоятельно.
Делала в Exс что не так
Sub Лист3_Кнопка1_Щелчок()
Dim s, d, i As Integer 'Описание данных
s = 0 'Начальные присваивания
For i = 1 To 15
s = s + Cells(i, 1)
d = Cells(i, 1) / s
Cells(16, 3) = "Сумма=": Cells(17, 3) = s
Cells(1, 3) = "Деление=": Cells(i, 4) = d
Next
End Sub
244
287
Ответы на вопрос:
А) Авторское право представляет собой одну из форм защиты интеллектуальной собственности
Б) Плагиат-умышленная кража идеи/задумки кого либо
Популярно: Информатика
-
kristok201201.01.2023 18:39
-
dogtor2023.06.2020 09:57
-
геймер3909.10.2022 00:32
-
lenasinyikovich16.01.2020 09:18
-
ArthurMyChemov21.09.2020 08:36
-
liliya15nafikova05.04.2021 06:11
-
stephanzakharop010v807.05.2020 19:48
-
ruslan42826.04.2020 07:43
-
valia0102200407.10.2022 23:19
-
ankerkor09.09.2021 16:48