Инициализация матриц A и B
Public Sub For1()
Dim A(1 To 5, 1 To 5) As Integer
Dim B(1 To 5, 1 To 5) As Integer
Dim C(1 To 5, 1 To 5) As Integer
Dim I As Integer, J As Integer, K As Integer
Dim Res As String
' Инициализация матриц A и B случайными числами в интервале [-10, +10]
VBA.Randomize
For I = 1 To 5
For J = 1 To 5
'Получение случайного числа Rnd и преобразование в целое
A(I, J) = Int(21 * Rnd) - 10
Next J
Next I
For I = 1 To 5
For J = 1 To 5
B(I, J) = Int(21 * Rnd) - 10
Next J
Next I
'Вычисление произведения матриц
For I = 1 To 5
For J = 1 To 5
C(I, J) = 0
For K = 1 To 5
C(I, J) = C(I, J) + A(I, K) * B(K, J)
Next K
Next J
Next I
Res = "No"
C(2, 2) = 0
'Проверка на нулевое значение
For I = 1 To 5
For J = 1 To 5
If C(I, J) = 0 Then
Debug.Print "Индексы: ", I, J
Res = "Yes"
Exit For
End If
Next J
Next I
Debug.Print Res
End Sub
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий