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