Построить матрицу 3*3, чтобы все числа перемножались друг на друга - VB

Формулировка задачи:

Ребят помогите пожалуйста написать матрицу 3на3 в visual basic, чтобы все числа переумножались друг на друга

Решение задачи: «Построить матрицу 3*3, чтобы все числа перемножались друг на друга»

textual
                            Листинг программы 
                        

                            Function GroupPorn() As Integer()
Dim X(1 To 3, 1 To 3) As Integer
      For i% = 1 To 3
          For j% = 1 To 3
               X(i%, j%) = i% * j%
          Next j%
      Next i%
      GroupPorn = X
End Function
 
Sub Test()
Dim Z() As Integer
    Z = GroupPorn
    Debug.Print Z(1, 1)
    Debug.Print Z(2, 2)
    Debug.Print Z(3, 3)
End Sub
                        

Оцени полезность:

7 голосов , оценка 3.857 из 5

Похожие ответы