19
1
Option Strict On
2
Public Module Module1
3
Public Sub Main()
4
Dim addition As Integer = 1
5
addition += 2 '3
6
7
Dim subtraction As Integer = 3
8
subtraction -= 4 '-1
9
10
Dim multiplication As Integer = 5 * 6
11
multiplication *= 6 '30
12
13
Dim division As Double = 7 / 8
14
division /= 8 '0.875
15
16
Dim exponent As Double = 9 ^ 10
17
exponent ^= 10 '3486784401
18
End Sub
19
End Module
Cached Result
CoOrds 1: x = 0, y = 0
CoOrds 2: x = 10, y = 10
CoOrds 2: x = 10, y = 10