Матричное моделирование экономических задач в пакете Microsoft Excel: Методические указания и задания по выполнению контрольных работ по дисциплине "Информационные технологии в экономике", страница 13

Окончание табл. 3.10

Контрольная работа оформляется в электронном и печатном вариантах. В отчете по контрольной работе для каждой задачи приводятся условие, решение и выводы. Наиболее значимые эта-пы решения комментируются.

23

Приложение 1

Текст функции Diag(Vector) на языке Visual Basic.

‘Функция Diag разворачивает вектор-строку или вектор-столбец в диагональную матрицу.

Function Diag(Vector As Range) As Variant

Dim r, c As Integer

Dim i, j As Integer

Dim md()

r = Vector.Rows.Count

c = Vector.Columns.Count

If r > 1 And c > 1 Then

MsgBox ("В диагональную матрицу можно развернуть только строку или столбец, но не матрицу из нескольких строк и нескольких столбцов") ElseIf r > 1 Then

ReDim md(1 To r, 1 To r) For i = 1 To r For j = 1 To r If i = j Then

md(i, j) = Vector(i) Else

md(i, j) = 0 End If Next j Next i ElseIf c > 1 Then

ReDim md(1 To c, 1 To c) For i = 1 To c For j = 1 To c If i = j Then

md(i, j) = Vector(i) Else

md(i, j) = 0 End If Next j Next i End If Diag = md End Function

24