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