Module Tester Sub Main() Dim A As Integer A = 0 A += 10 Console.WriteLine("A += 10 yields " & A) A -= 5 Console.WriteLine("A -=5 yields " & A) A *= 3 Console.WriteLine("A *= 3 yields " & A) A /= 5 Console.WriteLine("A /= 5 yields " & A) A ^= 2 Console.WriteLine("A = 2 yields " & A) End Sub End Module
A += 10 yields 10 A -=5 yields 5 A *= 3 yields 15 A /= 5 yields 3 A ^= 2 yields 9