>>453
先日投下したゴミコード
統失なので未だ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