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