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