Question

How to sum 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, sum As Integer = 0

        For i As Integer = 0 To size - 1
            If is_perfect_square(arr(i)) Then
                Console.WriteLine(arr(i) & " : Yes")
                sum += arr(i)
            Else
                Console.WriteLine(arr(i) & " : No")
            End If
        Next

        Console.WriteLine("sum = " & sum)
    End Sub
End Class




' run:
'
' 7 : No
' 8 : No
' 9 : Yes
' 0 : Yes
' 36 : Yes
' sum = 45
'

 

70+ SQL courses for beginners and professionals