セクオフスレ★46at OFFREG
セクオフスレ★46 - 暇つぶし2ch454:名無しさん@お腹いっぱい。
19/08/05 00:20:53.28 iovjy0pR.net
>>453
先日投下したゴミコード
統失なので未だVBS、未だソートwwwwwwwwww

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


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch