Dim i, j, k, a(1000), b(1000) As Integer
    Dim ii As Double
Private Sub Form_Load()
   a(0) = 0
   'Для 100 натуральных чисел
   k = 0  'Счетчик получаемой последовательности b()
        For i = 1 To 100
            a(i) = a(i - 1) + 1
            j = Int(Sqr(a(i)))
            ii = Sqr(a(i))
            'Если кв. корень натуральное четное число
            If j = ii And ii Mod 2 = 0 Then
            k = k + 1
            b(k) = a(i)
            End If
        Next
        'MsgBox (k)
End Sub