Переставить элементы массива местами - VB

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

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

Есть идеи насчет третьего задания?

Решение задачи: «Переставить элементы массива местами»

textual
Листинг программы
Private Sub Command1_Click()
Dim i&
  ReDim a(0 To 11)
  For i = LBound(a) To UBound(a)
    a(i) = i 'MonthName(i + 1, True)
  Next
  ReDim b(LBound(a) To UBound(a))
  On Error Resume Next
  For i = LBound(a) To UBound(a) Step 2
    b(i) = a(i \ 2)
    b(i + 1) = a(UBound(a) - i \ 2)
  Next
  Print Join(b)
End Sub

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

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