VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

533(2): ピッコロ ◆YAZTByPXwc6o 2019/05/28(火)22:38 ID:TJM+GGRg(7/13)調 AAS
進捗ですソートできました

Option Explicit

Dim a
a = Array(-6,3,9,5,3,-7)
Sort a
WScript.Echo Join(a, ", ")

Sub Sort(a)
　　Sort_ a, LBound(a), UBound(a)
End Sub

Sub Sort_(a, l, u)
　　If l >= u Then Exit Sub
　　Sort__ a, l, u
　　Sort_ a, l + 1, u
End Sub

Sub Sort__(a, l, u)
　　If l >= u Then Exit Sub
　　If a(u - 1) > a(u) Then Swap a(u - 1), a(u)
　　Sort__ a, l, u - 1
End Sub

Sub Swap(a, b)
　　Dim c
　　c = a
　　a = b
　　b = c
End Sub

---

534(2): 2019/05/28(火)22:46 ID:vNl8ufTP(1/2)調 AAS
>>533
ブラボー！！下手くそ！！
わざと下手くそに書けと言われても俺にはここまでは無理だわ（称賛）

---

536(1): 2019/05/28(火)22:53 ID:zzZz5E2H(1/2)調 AAS
>>533

935 名前：デフォルトの名無しさん[sage] 投稿日：2019/05/17(金) 12:23:14.18 ID:99nnd/tf [1/3]
>>934
うるせぇ死ね

---

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

---

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

---

ぬこの手 ぬこTOP 0.032s