Question

How to swap two numbers in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim x As Integer = 345
        Dim y As Integer = 10
		
        Dim tmp As Integer = x
        x = y
        y = tmp
		
        Console.Write(x & " " & y)
    End Sub
End Class





' run:
'
' 10 345
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile

Answer 2

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim x As Integer = 345
        Dim y As Integer = 10
		
        x = x + y
        y = x - y
        x = x - y 
		
        Console.Write(x & " " & y)
    End Sub
End Class





' run:
'
' 10 345
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile

Answer 3

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim x As Integer = 4892
        Dim y As Integer = 11
		
        x = x * y
        y = x / y 
        x = x / y 
		
        Console.Write(x & " " & y)
    End Sub
End Class





' run:
'
' 11 4892
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile

Answer 4

Imports System
 
Public Class Program
    Private Shared Sub Swap(Of T)(ByRef a As T, ByRef b As T)
        Dim temp As T = a
        a = b
        b = temp
    End Sub
 
    Public Shared Sub Main(ByVal args As String())
        Dim x As Double = 3.14
        Dim y As Double = 2.98
          
        Swap(x, y)
          
        Console.Write(x & " " & y)
    End Sub
End Class
 
 
 
 
' run:
'
' 2.98 3.14
'

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile