Разбить массив на строки - VB

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

Товарищи, задача такая, что в моей программе вводится массив случайных чисел из 100 элементов. Нужно сделать так, что бы в окне Picture массив выглядел как матрица 10х10. Как сделать это, оставляя одномерность массива?

Решение задачи: «Разбить массив на строки»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Command1_Click()
   Dim A(1 To 100) As Integer, i As Integer
   For i = 1 To 100
       A(i) = Int(Rnd * 21 - 10)
       Picture1.Print A(i) & vbTab;
       If i Mod 10 = 0 Then Picture1.Print
   Next i
   
End Sub
                        

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

12 голосов , оценка 3.833 из 5

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