Массивы: вычислить значения заданной функции большие, чем A - VB

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

Кому не сложно и кому позволяет время напишите код или подскажите с чего начинать . Задача выглядит так. Нужно вычислить значение функции z=b^k/k^2 большие чем a, если k=1,2.....,20. b=0,5 . a=3. Заранее спасибо огромное

Решение задачи: «Массивы: вычислить значения заданной функции большие, чем A»

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

                            Sub Main()
   Dim a As Single, k As Integer, b As Single, z As Single, s As String
   'вычислить значение функции z=b^k/k^2 большие чем a, если k=1,2.....,20. b=0,5 . a=3.
    a = 3
    b = 0.5
    For k = 1 To 20
      z = b ^ k / k ^ 2
      If z > a Then s = s & "k = " & k & vbTab & "z = " & z & vbCrLf
    Next k
    MsgBox IIf(s = "", "Ни одно из значений z не больше a", s)
End Sub
                        