19/08/05 00:20:12.33 .net
>>115
先日投下したゴミコード
統失なので未だVBS、未だソートｗｗｗｗｗｗｗｗｗｗ
↓
692 名前：ピッコロ ◆YAZTByPXwc6o [] 投稿日：2019/08/02(金) 00:53:04.71 ID:VeWgf3Oa
Option Explicit
Main
Sub Main()
Dim a
a = Array(1, 2, 1, 1, 4, 3, 9)
StarlinSort a
WScript.Echo Join(a, ",")
End Sub
Sub StarlinSort(arr)
Dim i, j
j = 0
For i = 0 To UBound(arr)
If i = UBound(arr) Then
arr(j) = arr(i)
j = j + 1
ElseIf arr(i) <= arr(i + 1) Then
arr(j) = arr(i)
j = j + 1
Else
arr(i + 1) = arr(i)
End If
Next
ReDim Preserve arr(j - 1)
End Sub