Задание 1, 3, 4, вариант 9

Содержание:

Задача 1

Постановка задачи

Определить среднее значение диапазона клеток А1:D4 на рабочем листе «Лист1».

Начало

I=1, 4

j=1, 4

Sum = Sum + Cells(i, j)

sred = Sum / 16

Sred

Конец

Блок-схема

Программа

Sub Programm()

Sheets(1).Activate

For i = 1 To 4

For j = 1 To 4

Sum = Sum + Cells(i, j)

Next j

Next i

sred = Sum / 16

MsgBox ("Среднее значение = " & sred)

End Sub

Задача 3

Постановка задачи

Найти сумму диагональных элементов блока ячеек, состоящего из 5 строк и 5 столбцов.

Начало

I=1, 5

Sum = Sum + Cells(i, i).Value

Конец

Sum

Блок-схема

Программа

Public Sub Task3()

For i = 1 To 5

Sum = Sum + Cells(i, i).Value

Next i

MsgBox ("Сумма диагональных элементов = " & Sum)

End Sub

Задача 4

Постановка задачи

Информацию о сбойных ситуациях выдать с помощью функции MsgBox.

[image]

Блок-схема

Начало

I=1, 5

s1=s1+x1

(x2