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

Тип: контрольная работа
Категория: Информатика

Скачать

Купить

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮГосударственное образовательное учреждение высшего профессионального образования«Нижегородский государственный университет им. Н.И. Лобачевского»Экономический факультетКафедра Экономической информатикиОтчётпо дисциплине «Информационные технологии»Работу выполнила студентка729 группы д/оКудреватых Валерия ЕвгеньевнаНижний Новгород 2009Задача 1Просуммировать элементы столбцов заданной матрицы размером mхn. Результат получить в одномерном массиве размером n.Способ 1.Решим данную задачу с помощью задания формул и создания макросов.Sub МакросМассив()' МакросМассив Макрос' Макрос записан 07.07.2009 (Gddess)Range("A1").SelectActiveCell.FormulaR1C1 = "=INT(10*RAND()-2)"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefaultRange("A1:C1").SelectSelection.AutoFill Destination:=Range("A1:C4"), Type:=xlFillDefaultRange("A1:C4").SelectRange("E1").SelectActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"Range("F1").SelectActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"Range("G1").SelectActiveCell.FormulaR1C1 = "=SUM(RC[-4]:R[3]C[-4])"End SubСпособ 2.Private Sub CommandButton1_Click()Set List = Worksheets("Лист1")Dim str As String ‘ объявление массиваn = 9 ‘количество столбцовm = 4 ‘количество строкReDim A(1 To n, 1 To m) ‘указание размерностиFor i = 1 To nFor j = 1 To mA(i, j) = Int(Rnd * 10)Cells(i + 1, j) = A(i, j)Next jNext iReDim b(1 To m)For j = 1 To mFor i = 1 To nSum = Sum + A(i, j)Next ib(j) = SumSum = 0Next jstr = " "For j = 1 To mstr = str + CStr(Format(b(j), "Fixed")) + " "Cells(i, j + 5) = b(j)NextEnd SubPrivate Sub CommandButton3_Click()Unload MeEnd SubСпособ 3.Решим задачу с использованием форм.Private Sub CommandButton1_Click()Dim str As Stringn = 3m = 4ReDim A(1 To n, 1 To m)ReDim b(1 To m)For i = 1 To nFor j = 1 To mA(i, j) = Int((10 * Rnd) - 5)Next jNext istr = " "For i = 1 To nFor j = 1 To mstr = str + CStr(Format(A(i, j), "Fixed")) + " "NextNext'Выведем результатUserForm1.Label4.Caption = strFor j = 1 To mFor i = 1 To nSum = Sum + A(i, j)Next ib(j) = Sum

Другие файлы:

Microsoft Word . Комфортная работа с помощью макросов
Самоучитель предназначен для всех, кто использует Microsoft Word в работе и желает существенно повысить эффективность своего труда с помощью макросов....

Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application
Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила е...

Применение VBA и макросов в Microsoft Excel
В ниге рассматривается автоматизация выполнения всевозможных задач с помощью Excel VBA от создания простого отчета до разработки полноценного приложен...

Анализ макросов в Microsoft Office Word 2007
Изучение понятия, видов и методов создания стандартных макросов Microsoft Office Word - набора инструкций, которые сообщают программе, какие действия...

Вероятностно-статистический анализ продаж автомобилей BMW
Генеральная, выборочная совокупность. Методологические основы вероятностно-статистического анализа. Функции MathCad, предназначенные для решения задач...