3.2. Выполнение задания 2

3.2.1. С использованием оператора Do While вычислить сумму элементов массива С(20). Вычисления следует прекратить тогда, когда сумма достигнет величины 500.

Исходные данные взять из диапазона В1:В20 листа Исходные. Сумму поместить в ячейку А15 листа Данные, а номер последнего элемента, участвовавшего в суммировании – в ячейку А17 того же листа.

Для этого:

1. Переименовать два листа ЭТ в Исходные и Данные.

2. Ввести данные в диапазон В1:В20 листа Исходные

10, 20, 30, 40, 50, 60, 70, 80, 90, 100,

110, 120, 130, 140, 150, 160, 170, 180, 190, 200.

3. Создать программу:

Public Sub ОператорDo ( )

Dim C(20), I, Сумма As Integer

Dim Исходные, Данные As Object

Set Исходные = Worksheets(“Исходные”)

Set Данные = Worksheets(“Данные ”)

Сумма = 0

I = 1

Do While Сумма <= 500

Сумма = Сумма + Исходные.Cells(I,2)

I = I + 1

Loop

Данные.Range(“A15”) = Сумма

Данные.Range(“A17”) = I - 1

End Sub

3.2.2. С использованием оператора цикла Do Until вычислить сумму элементов массива С(20). Вычисления следует прекратить тогда, когда сумма достигнет величины 500.

Исходные данные взять из диапазона В1:В20 листа Исходные. Сумму поместить в ячейку А15 листа Данные, а номер последнего элемента, участвовавшего в суммировании – в ячейку А17 того же листа.

Для этого:

1. Переименовать два листа ЭТ в Исходные и Данные.

2. Ввести данные в диапазон В1:В20 листа Исходные

10, 20, 30, 40, 50, 60, 70, 80, 90, 100,

110, 120, 130, 140, 150, 160, 170, 180, 190, 200.

3. Создать программу:

Public Sub ОператорDo ( )

Dim C(20), I, Сумма As Integer

Dim Исходные, Данные As Object

Set Исходные = Worksheets(“Исходные”)

Set Данные = Worksheets(“Данные ”)

Сумма = 0

I = 1

Do Until Сумма > 500

Сумма = Сумма + Исходные.Cells(I,2)

I = I + 1

Loop

Данные.Range(“A15”) = Сумма

Данные.Range(“A17”) = I

End Sub

3.3. Выполнение задания 3

3.3.1. Создать процедуру для выполнения следующих действий:

1. Записать в массив М(3,4) данные, хранящиеся в ячейках А1:D3 листа Excel с именем Задание.

2. Найти сумму элементов каждой строки массива и записать в массив c именем S.

3. Вывести окно с сообщением «Сумма» I-й «строки равна» S(I).

Для этого:

1. Открыть новый файл;

2. Переименовать Лист1 в Задание;

3. Заполнить ячейки A1:D3 значениями

2 5 -1 4

7 0 6 -8

9 -3 1 -5

4. Создать процедуру:

Public Sub ДвумерныйМассив( )

Dim M(3, 4), S(3) As Integer

Dim I, J As Integer

Dim Задание As Object

Set Задание = Worksheets(“Задание”)

For I = 1 To 3

For J = 1 To 4

M(I,J) = Задание.Cells(I,J)

Next

Next

For I = 1 To 3

S(I) = 0

For J = 1 To 4

S(I) = S(I) + M(I,J)

Next

MsgBox(“Сумма” & I & “-й строки равна” & S(I))

Next

End Sub

5. Сохранить файл с именем «Тренировка».

6. Запустить программу на выполнение и проверить результат счета.

3.3.2. Создать программу для выполнения следующих действий:

1. Записать в массив N(4,5) данные, хранящиеся в ячейках C2:G5 листа Excel с именем Задание.

2. Найти произведение элементов каждого столбца массива и записать в массив c именем P.

3. Вывести окно с сообщением «Произведение» J «-го столбца равно» P(J).

4. Проанализировать значение ячейки А3 листа с именем Значение. Если оно меньше 7, то записать значения массива Р в ячейки В3:В7 листа Итоги. В противном случае – в ячейки D2:D6 листа Итоги.

Для этого:

1. Открыть новый файл;

2. Переименовать Лист1 в Задание, Лист2 – в Значение, Лист3 – в Итоги.

3. Заполнить ячейки C2:G5 значениями

2 -1 7 1 -2

7 0 3 -2 5

3 -1 4 -5 8

1 2 3 4 5

4. Создать процедуру:

Public Sub ПочтиЗачет( )

Dim N(4, 5), P(5) As Integer

Dim I, J As Integer

Dim Задание, Значение, Итоги As Object

Set Задание = Worksheets(“Задание”)

Set Значение = Worksheets(“Значение ”)

Set Итоги = Worksheets(“Итоги”)

For I = 1 To 4

For J = 1 To 5

N(I, J) = Задание.Cells(I + 1, J + 2)

Next

Next

For J = 1 To 5

P(J) = 1

For I = 1 To 4

P(J) = P(J) * N(I, J)

Next

MsgBox(“Произведение” & J & “-го столбца равно” & P(J))

Next

If Значение.Range(“A3”).Value < 7 Then

For J = 1 To 5

Итоги.Cells(J + 2, 2) = P(J)

Next

Else

For J = 1 To 5

Итоги.Cells(J + 1, 4) = P(J)

Next

End If

End Sub

5. Сохранить файл с именем «Итоговый».

6. Запустить процедуру на выполнение и проверить результат счета, вводя в ячейку А3 листа Значение разные числа.