В массиве, содержащем не более k элементов, определить номер элемента, корень из которого максимален - VB

Sub Task(A() As double, k as integer)
      Avg#=0
      n#=0
      max#=-1
      for i%=1 to k
          if A(i%) > 0 then
             n#=n#+1
             Avg#=Avg#+A(i%)
             tmp#=Sqr(A(i%))
             if tmp# > Max# then Max#=tmp#
          End if
       Next i%
       If n# > 0 then
          Debug.print "Макс. значение корня=";Max#
          Debug.Print "Среднее значение     =";Avg#/n# 
       else
          Debug.print "Все числа неположительны!"
       end if
End Sub