Работа с массивами одномерными и двумерными - VB

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

Не помню ни черта а сделать надо, если кто поможет буду благодарен... вот две задачи 1. Даны целые числа a,n,x, ..., x(n)-n внизу (n>0). определите, каким по счету идет в последовательности x(1), ... , x(n) член, равный а. Если такого члена нет, то ответом должно быть число 0. 2. Дана целочисленная квадратная матрица А(10,10). Запишите все элементы жэтой матрицы, кратные 5, в одномерный целочисленный массив.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a(1 To 10, 1 To 10) As Integer
Dim b() As Integer
ReDim b(0)
For i = 1 To 10
 Print
   For j = 1 To 10
     a(i, j) = Int(Rnd * 10) + 1
      If a(i, j) Mod 5 = 0 Then ReDim Preserve b(UBound(b) + 1): b(UBound(b) - 1) = a(i, j)
     Print a(i, j);
   Next
Next
Print
For i = 0 To UBound(b) - 1
  Print b(i);
Next
End Sub