|
▼ウッシ さん:
>こんばんは
>
>何をしたいのか理解出来ません。
>多分、的外れです。
>
>Sub test(ByRef a() As Double, i As Integer)
> Dim j As Integer
>
> For j = 0 To UBound(a, 2)
> a(i, j) = j * 2
> Next
>
>End Sub
>
>Sub main()
> Dim a(10, 20) As Double
> Dim i As Integer
>
> For i = 0 To UBound(a, 1)
> Call test(a, i)
> Next
>End Sub
>
>Sub test1(ByRef a() As Double, i As Integer)
> Dim j As Integer
>
> For j = 0 To UBound(a, 1)
> a(j, i) = j * 2
> Next
>
>End Sub
>
>Sub main1()
> Dim a(10, 20) As Double
> Dim i As Integer
>
> For i = 0 To UBound(a, 2)
> Call test1(a, i)
> Next
>End Sub
こんばんは。ありがとうございます。
的外れではなかったですが、このやり方は思いついてました。
ただ、これだと関数が引数としてiを持っていることを前提
にしなければなりませんし、Sub testの中のaは2次元配列
でないといけません。
分かりにくくて申し訳ないのですが、別の理由でtestに1次元
配列を入れるだけで同じ処理の関数が既にあり、2次元配列を
引数にして同じように関数が利用できないかと考えたわけです。
教えていただいたような方法ですと、同じ処理の関数を二つ作
ることになりますので、それを避けたいと思っているのですが・・・。
|
|