タイトル : ジャグ配列でRedim Preserve みたいな使い方をしたいのです 投稿日 : 2017/08/31(Thu) 15:26 投稿者 : Nis9036
毎々お世話になります。 例えば、2〜10までの数のそれぞれの公約数をリストアップしたい。その為にジャグ配列を使いたいのですが、Redim Preserve の様に使う事は出来ませんか? Dim Yak(2)() As Integer '2〜10の数のそれぞれの配列を格納する Dim Temp() As Integer '仮の配列 Dim N1, N2, N3 As Integer For N1 = 2 To 10 '2〜10の配列をジョグ配列に格納する ReDim Temp(0) N3 = 0 For N2 = 1 To N1 / 2 If N1 Mod N2 = 0 Then ReDim Preserve Temp(N3) '仮の約数配列に登録 Temp(N3) = N2 N3 = N3 + 1 End If Next Yak(N1) = New Integer() {} For N2 = 0 To Temp.Length - 1 Yak(N1)(N2) = Temp(N2) 'ここで仮の配列からジャグ配列に値を移したい Next Next MsgBox("End") End Sub とやってみると下から3行目の Yak(N1)(N2) = Temp(N2) 所で、「データ列名が適切である事を確認します」とストップしてしまいます。 本当は Redim Preserve の様に使いたいのですが、どうやれば出来るのか分かりませんでした。 2〜10までの約数だけなら中括弧{}の中に値を入れていけば済みますが、多くなってくるとそうも行きません。 宜しく教えて下さい。 |