\( \displaystyle \vec{A} = k \vec{B} \)
\( \vec{A} \) : 配列変数 Ans()
\( \vec{B} \) : 配列変数 Vector()
Start |
||||
Long型変数 n の宣言と セル B2 で初期化 |
Dim n As Long: n = Cells(2,2) | |||
Double型変数 k の宣言と セル B3 で初期化 |
Dim k As Double: k = Cells(3,2) | |||
Double型配列変数 Vector の 動的宣言、要素番号1 から n |
Dim Vector() As Double: ReDim Vector(1 To n) | |||
繰返し変数 i の宣言 Long型 |
Dim i As Long | |||
i = 1, n, 1 |
Vector(i) に Cells(4, i + 1) を代入． |
For i = 1 To n Step 1 Vector(i) = Cells(4, i + 1) Next i |
||
Double型配列変数 Ans の 動的宣言 |
Dim Ans() As Double | |||
Ans() に kVector(k, Vector()) の結果を代入． |
Ans() = kVector(k, Vector()) | |||
i = 1, n, 1 |
Cells(5, i + 1) に Ans(i) を代入． |
For i = 1 To n Step 1 Cells(5, i + 1) = Ans(i) Next i |
||
End |
||||
関数の宣言
Function kVector(【仮引数の宣言】)【関数の戻り値の宣言】
End Function
【仮引数の宣言】ByVal k As Double, ByRef A1() As Double
【関数の戻り値の宣言】As Double()
\( \displaystyle \vec{A} = k \vec{B} \)
\( \vec{A} \) : 戻り値 Double型配列変数 S1()
\( \vec{B} \) : 仮引数 Double型配列変数 A1()
k : 仮引数 Double型変数 k
Start |
Function kVector(【仮引数の宣言】)【関数の戻り値の宣言】 | |||
Long型変数 LB の宣言と 仮引数の配列変数 A1 の 最小要素番号で初期化 |
Dim LB As Long: LB = LBound(A1) | |||
Long型変数 UB の宣言と 仮引数の配列変数 A1 の 最大要素番号で初期化 |
Dim UB As Long: UB = UBound(A1) | |||
Double型配列変数 S1 の 動的宣言、要素番号を LB から UB に設定． |
Dim S1() As Double: ReDim S1(LB To UB) | |||
繰返し変数 i の宣言 Long型 |
Dim i As Long | |||
i = LB, UB, 1 |
S1(i) に k * A1(i) を代入． |
For i = LB To UB Step 1 S1(i) = k * A1(i) Next i |
||
関数 kVector の戻り値を S1() に設定． |
kVector = S1() | |||
End |
End Function | |||