Question

How to write an algorithm that adds the odd digits of one number to the end of a second number in VB.NET

Answer 1

Imports System

Public Class AddsOddDigitsIfNumberToOtherNumber_VB_NET
    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 12734, second_n As Integer = 100
        
		Console.WriteLine(AddOddDigits(n, second_n))
    End Sub

    Public Shared Function AddOddDigits(ByVal n As Integer, ByVal second_n As Integer) As Integer
        Dim multiply As Integer = 1, odd As Integer = 0

        While n <> 0
            If n Mod 2 <> 0 Then
				odd = odd + (n Mod 10) * multiply
                multiply = multiply * 10
            End If

            n = n \ 10
        End While

        Return second_n * multiply + odd
    End Function
End Class



' run:
'
' 100173
'

 

70+ SQL courses for beginners and professionals