3. Порядок выполнения работы

Задания

Задание 1. Создать и отладить процедуру с циклом For.

Задание 2. Создать и отладить процедуры для обработки одномерных массивов с оператором Do … Loop.

Задание 3. Создать и отладить процедуры для обработки двумерных массивов.

Задание 4. Создать и отладить программы вычисления суммы и произведения элементов массива А(10), размещенного в ячейках А1:А10 листа Excel. Обращение к этим программам осуществить из основной процедуры.

Задание 5. Создать и отладить процедуры вычисления площади треугольника по основанию и высоте. Исходные данные передавать через головную процедуру.

Задание 6. Создать программу согласно индивидуальному заданию.

3.1. Выполнение задания 1

3.1.1. Создать процедуру, вычисляющую сложные проценты на вклады и конечную величину вклада при 10 % годовых.

Для этого:

1. Введите текст процедуры

Public Sub Вклад( )

Dim СуммаВклада As Currency

Dim ЧислоЛет, Счетчик As Integer

СуммаВклада = InputBox(“Введите сумму вклада”)

ЧислоЛет = InputBox(“Введите число лет”)

For Счетчик = 1 To ЧислоЛет

СуммаВклада = СуммаВклада * 1.1

Next

MsgBox(“За “ & ЧислоЛет & “ лет Вы получите по вкладу ” &_ Format(СуммаВклада , “0,00”) & “ рублей”)

End Sub

2. Запустите программу (клавиша F5).

3.1.2. Найти сумму элементов массива В(8), размещенного в ячейках А4:Н4 листа Excel. Результат поместить в ячейку С5.

Для этого:

1. Создать в Excel таблицу «Сумма элементов массива» (табл.4).

Таблица 4

	A	B	C		D		E		F		G		H
1	СУММА ЭЛЕМЕНТОВ МАССИВА
2	Элементы массива
3	В(1)	В(2)		В(3)		В(4)		В(5)		В(6)		В(7)		В(8)
4	7	-1		5		3		0		-4		12		9
5	Результат суммирования

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

Public Sub Сумма( )

Dim СуммаМассива As Single

Dim I As Integer

СуммаМассива = 0

For I = 1 To 8

СуммаМассива = СуммаМассива + Cells(4,I)

Next

Range(“C5”).Value = СуммаМассива

End Sub

Обратите внимание! Если имена ячеек в Excel заранее не известны, для обращения к ним используется не ключевое слово Range, а ключевое слово Cells!

3. Запустить программу на выполнение, проверить результат в ячейке С5.

3.1.3. Найти произведение элементов массива С(5), размещенного в ячейках В2:В6 листа Excel. Результат поместить в ячейку Е6.

Для этого

1. Создать в Excel таблицу «Произведение» (табл. 5)

Таблица 5

	A		B		C		D		E		F		G		H
1	ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ
2	С(1)	0,8
3	С(2)	-1,6				Результат произведения
4	С(3)	9,5
5	С(4)	4,2
6	С(5)	-2,3

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

Public Sub Произведение( )

Dim Произведение As Single

Dim I As Integer

Произведение = 1

For I = 2 To 6

Произведение = Произведение * Cells(I,2)

Next

Range(“Е6”).Value = Произведение

End Sub

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

3.1.4. Составить программу вычисления суммы элементов массива Н(7), размещенного в ячейках В5:Н5 листа Excel. Результат поместить в ячейку Е8.

Для этого:

1. Создать в Excel таблицу «Сумма положительных» (табл. 5).

Таблица 5

	A	B	C	D	E	F	G	H
1	СУММА ПОЛОЖИТЕЛЬНЫХ
2
3	Элементы массива
4		D(1)	D(2)	D(3)	D(4)	D(5)	D(6)	D(7)
5		2	-7	-2	18	10	-6	0
6
7				Результат
8

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

Public Sub Положительные( )

Dim СуммаПлюс, I As Integer

СуммаПлюс = 0

For I = 2 To 8

If Cells(5,I) > 0 Then

СуммаПлюс = СуммаПлюс +Cells(5,I)

End If

Next

Range(“Е8”).Value = СуммаПлюс

End Sub

3. Запустить программу на выполнение, проверить результат в Е8.

3.1.5. Записать в массив А(6) значения, хранящиеся в диапазоне В1:В6 листа Excel с именем Первый. Вычислить значения массива D(6), каждый элемент которого получается в результате возведения в куб элементов массива А.

Разместить массив D(6) в А2:F2 листа Excel с именем Второй.

Для этого:

1. Создать новый файл.

2. Переименовать лист Excel Лист1 в лист Первый.

3. Переименовать лист Excel Лист2 в лист Второй.

4. В ячейки В1:В6 листа Первый записать числа 0, 1, 2, 3, 4, 5.

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

Public Sub Преобразование ( )

Dim I As Integer

Dim Первый, Второй As Object

Dim A(6), D(6) As Integer

Set Первый = Worksheets (“Первый”)

Set Второй = Worksheets (“Второй”)

For I = 1 to 6

A(I) = Первый.Cells(I,2)

D(I) = A(I) ^ 3

Второй.Cells(2,I) = D(I)

Next I

End Sub

6. Перейти на лист Второй и проверить результат.