Imports System
Public Class Exercise32
Public Shared Sub Main()
Dim num1, num2 As Integer
Do
Console.Write("First number? ")
num1 = Convert.ToInt32(Console.ReadLine())
If num1 <> 0 Then
Console.Write("Second number? ")
num2 = Convert.ToInt32(Console.ReadLine())
If num2 = 0 Then
Console.WriteLine("Cannot divide by 0")
Console.WriteLine()
Else
Console.WriteLine("Division is {0}", num1 / num2)
Console.WriteLine("Remainder is {0}", num1 Mod num2)
Console.WriteLine()
End If
End If
Loop While num1 <> 0
Console.WriteLine("Bye!")
End Sub
End Class