Из одномерного массива сделать двумерный массив - 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

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

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