мои задания начинаются с 29 ой страницы! номера задач 8 11 24 50 71 97 113 128 Файл большой. Переслать нельзя. Вот ссылка на методичку http://zalil.su/2408604

Решение задач с помощью задач, формул и создания макросов

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государство, учреждения высшего образования

"Нижегородский государственный университет. Н. И. Лобачевского"

факультет

Кафедра Экономической информатики

Доклад

дисциплина "Информационные технологии"

Работу выполнила студентка

729 группа d/

Кудреватых Валерия Евгеньевна

Нижний Новгород 2009

Задача 1

Просуммировать элементы столбца указанной матрицы размера мхп. Результат получить в одномерном массиве размером n.

Метод 1.

Решить эту проблему с помощью задания формул и создания макросов.

Под МакросМассив()

'МакросМассив Макро

'Макрос записан 07.07.2009 (Gddess)

Range(&';А1&';).Select

ActiveCell.FormulaR1C1 = &';=INT(10*RAND()-2)&';

Range(&';А1&';).Select

Selection.AutoFill Destination:=Range(&';A1:C1&';), Type:=xlFillDefault

Range(&';A1:C1&';).Select

Selection.AutoFill Destination:=Range(&';А1:С4&';), Type:=xlFillDefault

Range(&';А1:С4&';).Select

Range(&';E1&';).Select

ActiveCell.FormulaR1C1 = &';=SUM(RC[-4]:R[3]C[-4])&';

Range(&';F1&';).Select

ActiveCell.FormulaR1C1 = &';=SUM(RC[-4]:R[3]C[-4])&';

Range(&';G1&';).Select

ActiveCell.FormulaR1C1 = &';=SUM(RC[-4]:R[3]C[-4])&';

End Sub

Метод 2.

Private Sub CommandButton1_Click()

Set List = Таблицы(&';Лист1&';)

Dim str As String ' объявление массива

n = 9 'количество столбцов

m = 4 'количество строк

ReDim A(1 To n, 1 To m) 'примечание размер

For i = 1 To n

For j = 1 To m

A(i, j) = Int(Rnd * 10)

Cells(i 1, j) = A(i, j)

Next j

Next i

ReDim b(1 To m)

For j = 1 To m

For i = 1 To n

Sum = Sum A(i, j)

Next i

b(j) = Sum

Sum = 0

Next j

str = &'; &';

For j = 1 To m

str = str CStr(Format(b(j), &';Fixed&';)) &'; &';

Cells(i, j, 5) = b(j)

Далее

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Способ 3.

Решить задачу с помощью форм.