Из одномерного массива сделать двумерный массив - VB
Формулировка задачи:
Из одномерного буквенного массива сделать двумерный буквенный массив по данному примеру.
Visual Basic
Решение задачи: «Из одномерного массива сделать двумерный массив»
textual
Листинг программы
Private Sub Form_Initialize()
Dim i As Long, j As Long, F, FF
AutoRedraw = True
F = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и")
For i = 0 To UBound(F)
Print F(i)
Next i
ReDim FF((UBound(F) - 1) \ 2, 1)
Print
For i = 0 To UBound(FF)
FF(i, 0) = F(j)
FF(i, 1) = F(j + 1)
j = j + 2
Print FF(i, 0), FF(i, 1)
Next
End Sub