Реферат Розробка додатків на мові VBA в середовищі MS EXCEL з обробки даних для заданих об'єктів

s = s + A (i, j)

Next j

s = s/n

Sheet4.Cells (i + 4, 9) = s

Next i

End Sub

Sub rab2 (n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range ("H3") = "Середнє значення елементів за стовпцем"

Sheet4.Range ("G4") = "Стовпець "

Sheet4.Range ("I4") = "Xcp"

For j = 1 To n

s = 0

Sheet4.Cells (j + 4, 7) = j

For i = 1 To n

s = s + A (i, j)

Next i

s = s/n

Sheet4.Cells (j + 4, 9) = s

Next j

End Sub

Sub rab3 (n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range ("H3") = "Min елементи в рядках"

Sheet4.Range ("G4") = "Рядок "

Sheet4.Range ("I4") = "Min"

For i = 1 To n

x = A (i, 1) 'min

Sheet4.Cells (i + 4, 7) = i

For j = 2 To n

If x> A (i, j) Then

x = A (i, j)

End If

Next j

Sheet4.Cells (i + 4, 9) = x

Next i

End Sub

Sub rab4 (n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range ("H3") = "Min елементи за стовпцями"

Sheet4.Range ("G4") = "Стовпець "

Sheet4.Range ("I4") = "Min"

For j = 1 To n

x = A (1, j) 'min

Sheet4.Cells (j + 4, 7) = j

For i = 2 To n

If x> A (i, j) Then

x = A (i, j)

End If

Next i

Sheet4.Cells (j + 4, 9) = x

Next j

End Sub

Sub rab5 (n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range ("H3") = "Max елементи по рядках"

Sheet4.Rang...