Question

How to count the numbers with even number of digits in an array with VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function count_even_numbers(ByVal arr As Integer()) As Integer
        Dim result As Integer = 0
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            Dim total_digits As Integer = Math.Ceiling(Math.Log10(arr(i)))

            If total_digits Mod 2 = 0 Then
                result += 1
            End If
        Next

        Return result
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim array As Integer() = New Integer() {564, 90, 7, 1248, 47325, 834921, 1234567}
	
        Console.Write(count_even_numbers(array))
    End Sub
End Class




' run:
'
' 3
'

 

70+ SQL courses for beginners and professionals