Imports System
Public Class Test
Public Shared Function getTheLowestDigit(n As Integer) As Integer
Dim min As Integer = 9
Do While(n <> 0)
If (n Mod 10 < min) Then
min = n Mod 10
End If
n = Int(n / 10)
Loop
return min
End Function
Public Shared Sub Main()
Dim n As Integer = 213
Console.WriteLine(getTheLowestDigit(n))
n = 76594
Console.WriteLine(getTheLowestDigit(n))
n = 76529
Console.WriteLine(getTheLowestDigit(n))
End Sub
End Class
' run
'
' 1
' 4
' 2