Вывод двумерного массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д