タイトル : Re^3: Queueを配列の様に使いたい 投稿日 : 2019/12/26(Thu) 15:51 投稿者 : nis9036
魔界の仮面弁士様 ありがとうございます。早速やってみます。 > > 下記を実行すると 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 } |