Module Module1
Sub Main()
Dim n As Integer = 371
While n <> 0
n = n / 10 ' the remainder is not ignored (/)
Console.WriteLine(n)
End While
Console.WriteLine()
n = 371
While n <> 0
n = n \ 10 ' the remainder is ignored (\)
Console.WriteLine(n)
End While
End Sub
End Module
' run:
'
' 37
' 4
' 0
' 37
' 3
' 0