Imports System
Public Class Program
Public Shared Sub Main()
Dim remider As Integer, num As Integer = 73812, largest As Integer = 0
While num > 0
remider = num Mod 10
If largest < remider Then
largest = remider
End If
num = num / 10
End While
Console.Write(largest)
End Sub
End Class
' run:
'
' 8
'