9 lines
156 B
Text
9 lines
156 B
Text
Public Sub Main()
|
|
Dim siInput As Short[] = [1, 8, 0, 6, 4, 7, 3, 2, 5, 9]
|
|
Dim siTemp As Short
|
|
|
|
For Each siTemp In siInput.Sort()
|
|
Print siTemp;;
|
|
Next
|
|
|
|
End
|