Отображение матрицы по вертикали - VB

Узнай цену своей работы

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

нужно написать процедуру,которая возвращает матрицу m*n передаваемая в качестве параметра отображенную по вертикали на 180, как это сделать в отдельной процедуре?
вот на что способен мой мозг,помогите пожалуйста!

Решение задачи: «Отображение матрицы по вертикали»

textual
Листинг программы
Option Explicit
Sub main()
    Dim A() As Integer, i As Integer, j As Integer
    Dim n As Integer, m As Integer, s As String
    n = 8
    m = 7
    Randomize
    Cls
    ReDim A(1 To n, 1 To m)
    
    s = "Исходная матрица" & vbCrLf
    For i = 1 To n
        For j = 1 To m
           A(i, j) = Int(Rnd * 9 + 1)
           s = s & A(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    s = s & vbCrLf
    
    ReflectMatrix A
    
    s = s & "Результат" & vbCrLf
    For i = 1 To n
        For j = 1 To m
           s = s & A(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    
    MsgBox s
End Sub
 
Private Sub ReflectMatrix(ByRef A() As Integer)
    Dim n1 As Integer, m1 As Integer, n2 As Integer, m2 As Integer
    Dim i As Integer, j As Integer, B() As Integer
    n1 = LBound(A, 1): n2 = UBound(A, 1)
    m1 = LBound(A, 2): m2 = UBound(A, 2)
    ReDim B(n1 To n2, m1 To m2)
    For i = n1 To n2
        For j = m1 To m2
            B(i, j) = A(n2 - i + 1, m2 - j + 1)
        Next j
    Next i
    A = B
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.167 из 5
Похожие ответы