[ツリー表示へ] [ワード検索] [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 } |
をクリックするとツリー全体を一括表示します） - Queueを配列の様に使いたい - nis9036 19/12/25-22:44No.11997