で、こいつが課題提出用ひながた。
ソートされたらいいな、をカタチにする。をパクらせていただきました。
Module non_SortExam
' Sortの中で呼びたい関数/サブルーチンが
' あるならここらへんに書いとく
' 課題:
' ここのナカミを埋めなさい
'
Sub Sort(ByVal data() As Integer)
' とりあえず組み込みメソッドでお茶を濁しておく
Array.Sort(data)
End Sub
' data() 内を0以上100未満の乱数で埋める
Sub FillRandom(ByVal data() As Integer)
Dim I As Integer
Dim R As New Random
For I = 0 To data.Length - 1
data(I) = R.Next(100)
Next
End Sub
' data() が昇順にソートされているなら True を返す
Function IsSorted(ByVal data() As Integer) As Boolean
Dim I As Integer
If data.Length = 0 OrElse data.Length = 1 Then
Return True
End If
For I = 0 To data.Length - 2
If data(I) > data(I + 1) Then
Return False
End If
Next
Return True
End Function
Sub Main()
Dim data() As Integer
Dim I As Integer
Dim R As New Random
For I = 0 To 9
ReDim data(R.Next(100)) ' テケトーな大きさの配列を
FillRandom(data) ' テケトーに埋める
Console.Write("{0}回目 {1}個をソート...", I, data.Length)
Sort(data)
If IsSorted(data) Then
Console.WriteLine("ソートされています")
Else
Console.WriteLine("ダメぢゃん!")
End
End If
Next
Console.WriteLine("よくできました!")
End Sub
End Module