Imports System
Public Class Program
Public Shared Function check_duck_numbers(ByVal s As String) As Boolean
Dim i As Integer = 0, len As Integer = s.Length
' Ignore leading 0s ' numbers with leading 0s is not Duck Number
While i < len AndAlso s(i) = "0"c
i += 1
End While
While i < len
If s(i) = "0"c Then Return True
i += 1
End While
Return False
End Function
Public Shared Sub Main()
Dim number As Integer = 19208
Dim s As String = number.ToString()
If check_duck_numbers(s) Then
Console.WriteLine("Duck Number")
Else
Console.WriteLine("Not a duck Number")
End If
If check_duck_numbers("000748") Then
Console.WriteLine("Duck Number")
Else
Console.WriteLine("Not a duck Number")
End If
End Sub
End Class
' run:
'
' Duck Number
' Not a duck Number
'
