Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb programming language"
Dim count As Integer = 0
Dim strsize As Integer = str.Length
For b As Byte = Convert.ToByte("a"c) To Convert.ToByte("z"c)
For i As Integer = 0 To strsize - 1
Dim ch As Char = Chr(b)
If ch.ToString() = str(i) Then
Console.Write(ch & " ")
count += 1
Exit For
End If
Next
Next
Console.WriteLine(Environment.NewLine & "Total number of different characters are: " & count)
End Sub
End Class
' run
'
' a b e g i l m n o p r u v
' Total number of different characters are: 13
'