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

タイトル 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 }

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

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