Imports System
Public Class Test
Public Shared Function sqrt_(n As Integer) As Integer
If n = 0 Or n = 1 Then
return n
End If
Dim i As Integer = 1
Dim sq As Integer = 1
Do While sq <= n
i += 1
sq = i * i
Loop
return i - 1
End Function
Public Shared Sub Main()
Console.WriteLine(sqrt_(9))
Console.WriteLine(sqrt_(5))
Console.WriteLine(sqrt_(26))
Console.WriteLine(sqrt_(16))
End Sub
End Class
' Run:
' 3
' 2
' 5
' 4