Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main()
Dim s As String = "vb.net cpp vb.net c++ java c python VB.net c cpp php c++ java"
Dim words = s.Split()
Dim unique_words As IEnumerable(Of String) = words.Distinct()
For Each word In unique_words
Console.WriteLine(word)
Next
End Sub
End Class
' run:
'
' vb.net
' cpp
' c++
' java
' c
' python
' VB.net
' php
'