' strlensort.vb

Imports System
Imports System.Collections

Public Class SortByStringLength
	Shared Sub Main()
		Dim strArray As String() = { _
			"いろは", _
			"にほえと", _
			"ちりぬるを", _
			"わか", _
			"よたれそ", _
			"つねならむ" _
		}
		Dim strlenComp As IComparer = New StrLenComparer()
		Array.Sort(strArray, strlenComp)

		For Each s As String In strArray
			Console.WriteLine(s)
		Next
		' 出力：
		' わか
		' いろは
		' よたれそ
		' にほえと
		' つねならむ
		' ちりぬるを
	End Sub
End Class

Public Class StrLenComparer
		Implements IComparer
	Public Function Compare(ByVal x As Object,ByVal y As Object) As Integer Implements IComparer.Compare
		Dim str1 As String = CType(x, String)
		Dim str2 As string = CType(y, String)

		Return str1.Length - str2.Length
	End Function
End Class

' コンパイル方法：vbc strlensort.vb