VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

692(6): ピッコロ ◆YAZTByPXwc6o 2019/08/02(金)00:53 ID:VeWgf3Oa(1)調 AAS
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

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.050s