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

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

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

Код к задаче: «Удаление и вставка элементов - VB»

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


СОХРАНИТЬ ССЫЛКУ