次の VBA コードがあります。
Option Explicit
Private a(2) as Double
Private b(2) as Double
Public Function Hello(X1 As Double, X2 As Double) As Double
a(1) = X1 + X2
a(2) = X1/X2
b(1) = X1
b(2) = X2^2
Hello = a(1)+a(2)+b(1)+b(2)
End Function
関数内で、、、、をHello
定義a(1)
しました。a(2)
b(1)
b(2)
X1
ただし、とを引数として受け取り、 、、、X2
の値を吐き出す関数またはサブルーチンを作成したいと考えています。これは、モジュール内の約 20 個の関数で 、 、 の上記の定義を使用しており、論文を使用する各関数で次のことを行う必要がないようにしたいためです。a(1)
a(2)
b(1)
b(2)
a(1)
a(2)
b(1)
b(2)
a(1) = X1 + X2
a(2) = X1/X2
b(1) = X1
b(2) = X2^2