' Module paramByVal
'     Sub swap(x As Integer, y As Integer)
'         Dim temp As Integer
'         temp = x 
'         x = y 
'         y = temp 
'     End Sub
    
'  Sub Main(args As String())
'         Dim a As Integer = 100, b As Integer = 200
'         Console.WriteLine($"Before swap,the value of a is {a},the value of b is {b}")
'         swap(a,b)
......................