Удаление и вставка элементов - VB

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

Дан массив размера N. Утроить в нем вхождения всех элементов с нечетными номерами (1, 3, …). Условный оператор не использовать.

Решение задачи: «Удаление и вставка элементов»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim i&
Private Sub Form_Load()
    ReDim r(1 To 3) As String
    For i = 1 To UBound(r) * 3
        ReDim Preserve r(1 To i)
        r(i) = (i - 1) * 2 + 1
    Next
    MsgBox Join(r, ", ")
    End
End Sub
                        

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

8 голосов , оценка 3.875 из 5

Похожие ответы