Question

How to count odd and even digits of a number in VB.NET

Answer 1

Imports System

Public Class CountOddAndEven
	Public Shared Sub Main()
        Dim n As Integer = 92734, even As Integer = 0, odd As Integer = 0

        While n > 0
            If n Mod 2 = 0 Then
                even += 1
            Else
                odd += 1
            End If

			n = n \ 10 ' \ not /
        End While

		Console.WriteLine("even = {0}" & Environment.NewLine & "odd = {1}", even, odd)
    End Sub
End Class
 
  
' run:
'
' even = 2
' odd = 3
'

 

70+ SQL courses for beginners and professionals