TypeDef keytype = Integer
Sub selectsort(n As Integer, a As *keytype)
Dim i As Integer, j As Integer, k As Integer
Dim min As keytype
For i = 0 To n - 1
min = a[i]
k = i
'未整列範囲の最小値を求める
For j = i + 1 To n
If a[j] < min Then
min = a[j]
k = j
End If
Next j
'値の入れ替え
a[k] = a[i]
a[i] = min
Next i
End Sub