تابع جذر یک عدد به فرجه K

Public Function SQRoots(X As Double,K As Integer) As Double

Dim a,i,m

a=X

m=k-1

For i=1 to 100

     X=((m*X)+(a/(X^m)))*(1/k)

Next i

SQRoots=X

End Function

تابع جذر یک عدد به فرجه 2

Public Function SQRoot(X As Double) As Double

Dim a,i

a=X

For i=1 to 100

     X=(X+a/X)/2

Next i

SQRoot=X

End Function