Основы офисного программирования и язык VBA


Пример 7.4


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




Начало  Назад  Вперед



Книжный магазин