tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: Queueを配列の様に使いたい
投稿日: 2019/12/26(Thu) 11:05
投稿者魔界の仮面弁士
> 下記を実行すると YS(0) には 2 の倍数、YS(1) には 3 の倍数、YS(N) には N+2 の倍数が 100 個ずつ入ります。

上記では「100個ずつ」でしたが、今度は「2〜100 の範囲の値」に限定して作ってみました。
ついでにデータ型を、String のジャグ配列から、Integer のジャグ配列に変更しています。

Dim lst As New List(Of List(Of Integer))()
For x = 2 To 100
    Dim y As New List(Of Integer)()
    For z = x To 100 Step x
        y.Add(z)
    Next
    lst.Add(y)
Next
Dim YS As Integer()() = lst.Select(Function(a) a.ToArray()).ToArray()

' YS(0) は 50 個。{ 2, 4, 6, …, 96, 98, 100 }
' YS(1) は 33 個。{ 3, 6, 9, …, 93, 96, 99 }
' YS(2) は 25 個。{ 4, 8, 12, …, 92, 96, 100 }
' :
'YS(30) は 3 個 { 32, 64, 96 }
'YS(31) は 3 個 { 33, 66, 99 }
'YS(32) は 2 個 { 34, 68 }
' :
'YS(47) は 2 個 { 49, 98 }
'YS(48) は 2 個 { 50, 100 }
'YS(49) は 1 個 { 51 }
'YS(50) は 1 個 { 52 }
' :
'YS(96) は 1 個 { 98 }
'YS(97) は 1 個 { 99 }
'YS(98) は 1 個 { 100 }

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。