Из одномерного массива сделать двумерный массив - VB

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

Из одномерного буквенного массива сделать двумерный буквенный массив по данному примеру.

                    Листинг программы
                
Dim A as integer 
Cls 
F = array ("а","б","в","г","д","е","ё","ж","з","и")
For i = 0 to 9
Print F (i) 
Next I
 
End sub

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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