Вывод двумерного массива - VB

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

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

Задание: поменять местами 2 и 4 столбцы двух массивов. Сделал, но как вывести результат не пойму. help Вывод желательно в MsgBox'e

Решение задачи: «Вывод двумерного массива»

textual
Листинг программы
Private Sub Command1_Click()
Dim n%, m%
n = 4: m = 5
ReDim A(n, m) As Double, B(m, n) As Double
 
A(1, 1) = 8: A(1, 2) = 7: A(1, 3) = 6: A(1, 4) = 5: A(1, 5) = 4
A(2, 1) = 3: A(2, 2) = 2: A(2, 3) = 6: A(2, 4) = 4: A(2, 5) = 1
A(3, 1) = 7: A(3, 2) = 4: A(3, 3) = 9: A(3, 4) = 5: A(3, 5) = 1
A(4, 1) = 12: A(4, 2) = 10: A(4, 3) = 11: A(4, 4) = 7: A(4, 5) = 9
 
B(1, 1) = 5: B(1, 2) = 6: B(1, 3) = 7: B(1, 4) = 8
B(2, 1) = 4: B(2, 2) = 3: B(2, 3) = 6: B(2, 4) = 1
B(3, 1) = 8: B(3, 2) = 7: B(3, 3) = 5: B(3, 4) = 2
B(4, 1) = 9: B(4, 2) = 4: B(4, 3) = 3: B(4, 4) = 2
B(5, 1) = 13: B(5, 2) = 12: B(5, 3) = 7: B(5, 4) = 9
 
Call p24(A())
Call p24(B())
MsgBox r(A()) & vbNewLine & r(B())
End Sub
Sub p24(mass() As Double)
Dim i%, temp As Double
For i = 1 To UBound(mass, 1)
        temp = mass(i, 4)
        mass(i, 4) = mass(i, 2)
        mass(i, 2) = temp
Next i
End Sub
Function r(ByRef mass() As Double)
Dim i%, j%
r = ""
For i = 1 To UBound(mass, 1)
   For j = 1 To UBound(mass, 2)
       r = r & mass(i, j) & vbTab
   Next j
   r = r & vbNewLine
Next i
End Function

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


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

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

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