フーリエの計算結果の表示を増やすには？ (ID:118698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 z1 = Sqr(xr(1) * xr(1) + xi(1) * xi(1)) fai1 = -xr(1) / Abs(xr(1)) * (Atn(xi(1) / z1 / Sqr(1 - xi(1) * xi(1) / z1 / z1)) - pi / 2) For r = 1 To 5 x = xr(r) y = xi(r) z = Sqr(x * x + y * y) fai = -x / Abs(x) * (Atn(y / z / Sqr(1 - y * y / z / z)) - pi / 2) - r * fai1 If fai > pi Then fai = fai - 2 * pi End If If fai < -pi Then fai = fai + 2 * pi End If If Abs(fai) > pi Then If fai > pi Then fai = fai - 2 * pi End If End If pre = z * v * 0.766 Next r List4.AddItem fai List5.AddItem z 上記の計算プログラム上のZの表示を１つから５つに計算結果を増やしたいのですが、どのようにしたら良いでしょうか。助言をいただけませんか？よろしくお願いします。