В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами - VB

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

В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами (первый со вторым, третий с четвертым и т.п.). Вывести исходный и преобразованный массив.

Код к задаче: «В заданной матрицы Н (4,2) поменять местами элементы с четными и не четными индексами - VB»

textual
Dim a(1 To 4, 1 To 2), b As Integer
Dim c As String
List1.Clear
Randomize
For i = 1 To 4
c = ""
For j = 1 To 2
 a(i, j) = Int(21 * Rnd(1))
Next j
c = a(i, 1) & "    " & a(i, 2)
List1.AddItem c
Next i
 
List1.AddItem " "
For i = 1 To 4
c = ""
b = a(i, 1): a(i, 1) = a(i, 2): a(i, 2) = b
c = a(i, 1) & "    " & a(i, 2)
List1.AddItem c
Next i
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ