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

---

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

---

556(1): 2019/06/01(土)10:43 ID:/THuLu8v(1)調 AAS
なんで皆ソートするの？
他より大きかったら＋1するだけじゃないの？
Option Explicit

　　Dim arr1
　　Dim arr2
　　arr1 = Array(-6, 3, 9, 5, 3, -7)
　　arr2 = RankArray(arr1, 1)
　　WScript.Echo Join(arr2, ", ")

Function RankArray(arrSrc, k)
　　Dim i
　　Dim j
　　Dim arrRet
　　arrRet = Array(1, 1, 1, 1, 1, 1)
　　For j = 1 To UBound(arrSrc)
　　　　For i = 0 To j - 1
　　　　　　If arrSrc(i) > arrSrc(j) Then
　　　　　　　　arrRet(i) = arrRet(i) + 1
　　　　　　ElseIf arrSrc(i) = arrSrc(j) Then
　　　　　　　　arrRet(i) = arrRet(i) + k
　　　　　　　　arrRet(j) = arrRet(j) + k
　　　　　　Else
　　　　　　　　arrRet(j) = arrRet(j) + 1
　　　　　　End If
　　　　Next
　　Next
　　RankArray = arrRet
End Function

---

557: 2019/06/01(土)11:50 ID:40Zd+DZB(1)調 AAS
>>556
自演乙

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s