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

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

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

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

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

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

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

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