Imports System
Imports System.Linq
Public Class CharacterRangeArray
Public Shared Function CreateCharacterRangeArray(ByVal startChar As Char, ByVal endChar As Char) As Char()
If endChar < startChar Then
Throw New ArgumentException("End character must be greater than or equal to start character.")
End If
Return Enumerable.Range(Convert.ToInt32(startChar), Convert.ToInt32(endChar) - Convert.ToInt32(startChar) + 1).
Select(Function(i) Convert.ToChar(i)).
ToArray()
End Function
Public Shared Sub PrintCharacters(charArray As Char())
For Each ch As Char In charArray
Console.Write(ch & " ")
Next
Console.WriteLine()
End Sub
Public Shared Sub Main(ByVal args As String())
Dim charArray As Char() = CreateCharacterRangeArray("a"c, "m"c)
PrintCharacters(charArray)
End Sub
End Class
' run:
'
' a b c d e f g h i j k l m
'
