Получить сумму произведений двух одномерных массивов (имеющих одну и туже размерность), а также двух столбцов многомерного массива (не используя цикл)- Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub GetCalculate4()
    Dim iMassiv1#(1 To 100), iMassiv2#(1 To 100)
    Dim iCount%, iSumProduct#
  
    For iCount = 1 To 100
        iMassiv1(iCount) = Rnd * 1000
        iMassiv2(iCount) = Rnd * 1000
    Next
  
    iSumProduct = Application.SumProduct(iMassiv1, iMassiv2)
End Sub
 
Private Sub GetCalculate5()
    Dim iMassiv#(1 To 100, 1 To 5), iSumProduct#
    Dim iColumn%, iRow%
  
    For iColumn = 1 To 5
        For iRow = 1 To 100
            iMassiv(iRow, iColumn) = Rnd * 1000
        Next
    Next
  
    With Application
         iSumProduct = .SumProduct( _
         .Index(iMassiv, 0, 1), .Index(iMassiv, 0, 5))
    End With
End Sub
Столбцы с номерами 1 и 5 используются только в качестве примера.

Похожие записи/страницы:

Leave a Comment