Imports System
' In a combination, the subset elements can be listed in any order.
Public Class TwoLettersCombinationFromABCD_VB_NET
Public Shared Sub create_2_letters_combination(ByVal letters As Char())
Dim size As Integer = letters.Length
For i As Integer = 0 To size - 1
For j As Integer = i + 1 To size - 1
Console.WriteLine("{0}{1}", letters(i), letters(j))
Next
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim letters As Char() = New Char() {"A"c, "B"c, "C"c, "D"c}
create_2_letters_combination(letters)
End Sub
End Class
' run:
'
' AB
' AC
' AD
' BC
' BD
' CD
'