' arraysort.vb

Imports System
Imports System.Collections

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

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

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