Question

How to find the perfect square elements in an array with VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function is_perfect_square(ByVal n As Double) As Boolean
        Dim sq As Double = Math.Sqrt(n)

        Return ((sq - Math.Floor(sq)) = 0)
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {7, 8, 9, 0, 36}
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1

            If is_perfect_square(arr(i)) Then
                Console.WriteLine(arr(i) & " : Yes")
            Else
                Console.WriteLine(arr(i) & " : No")
            End If
        Next
    End Sub
End Class




' run:
'
' 7 : No
' 8 : No
' 9 : Yes
' 0 : Yes
' 36 : Yes
'

 

70+ SQL courses for beginners and professionals