12 lines
209 B
Text
12 lines
209 B
Text
Public Sub Main()
|
|
Dim iArray As Integer[] = [8, 2, 5, 9, 1, 3, 6, 7, 4]
|
|
Dim iTemp As Integer
|
|
Dim sOutput As String
|
|
|
|
For Each iTemp In iArray.Sort()
|
|
sOutput &= iTemp & ", "
|
|
Next
|
|
|
|
Print Left(sOutput, -2)
|
|
|
|
End
|