\( \displaystyle \vec{A} = \vec{B} + \vec{C} , \vec{A} = \vec{B} - \vec{C} \)
\( \vec{A} \) : 配列変数 Ans()
\( \vec{B} \) : 配列変数 Vector1()
\( \vec{C} \) : 配列変数 Vector2()
Start |
||||
Long型変数 n の宣言と セル B2 で初期化 |
Dim n As Long: n = Cells(2,2) | |||
Double型配列変数 Vector1 の動的宣言、 要素番号1 から n |
Dim Vector1() As Double: ReDim Vector1(1 To n) | |||
Double型配列変数 Vector2 の動的宣言、 要素番号1 から n |
Dim Vector2() As Double: ReDim Vector2(1 To n) | |||
繰返し変数 i の宣言 Long型 |
Dim i As Long | |||
i = 1, n, 1 |
Vector1(i) に Cells(3, i + 1) を代入． |
For i = 1 To n Step 1 Vector1(i) = Cells(3, i + 1) |
||
Vector2(i) に Cells(4, i + 1) を代入． |
Vector2(i) = Cells(4, i + 1) Next i |
|||
Double型配列変数 Ans の 動的宣言 |
Dim Ans() As Double | |||
Ans() に VectorSum(Vector1(), Vector2()) の結果を代入． |
Ans() = VectorSum(Vector1(), Vector2()) | |||
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 |
||
Ans() に VectorDif(Vector1(), Vector2()) の結果を代入． |
Ans() = VectorDif(Vector1(), Vector2()) | |||
i = 1, n, 1 |
Cells(6, i + 1) に Ans(i) を代入． |
For i = 1 To n Step 1 Cells(6, i + 1) = Ans(i) Next i |
||
End |
||||
関数の宣言
Function VectorSum(【仮引数の宣言】)【関数の戻り値の宣言】
End Function
【仮引数の宣言】ByRef A1() As Double, ByRef A2() As Double
【関数の戻り値の宣言】As Double()
\( \displaystyle \vec{A} = \vec{B} + \vec{C}\)
\( \vec{A} \) : 戻り値 Double型配列変数 S1()
\( \vec{B} \) : 仮引数 Double型配列変数 A1()
\( \vec{C} \) : 仮引数 Double型配列変数 A2()
Start |
Function VectorSum(【仮引数の宣言】)【関数の戻り値の宣言】 | |||
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) に A1(i) + A2(i) を代入． |
For i = LB To UB Step 1 S1(i) = A1(i) + A2(i) Next i |
||
関数 VectorSum の戻り値を S1() に設定． |
VectorSum = S1() | |||
End |
End Function | |||
関数の宣言
Function VectorDif(【仮引数の宣言】)【関数の戻り値の宣言】
End Function
【仮引数の宣言】ByRef A1() As Double, ByRef A2() As Double
【関数の戻り値の宣言】As Double()
\( \displaystyle \vec{A} = \vec{B} - \vec{C} \)
\( \vec{A} \) : 戻り値 Double型配列変数 S1()
\( \vec{B} \) : 仮引数 Double型配列変数 A1()
\( \vec{C} \) : 仮引数 Double型配列変数 A2()
Start |
Function VectorDif(【仮引数の宣言】)【関数の戻り値の宣言】 | |||
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) に A1(i) - A2(i) を代入． |
For i = LB To UB Step 1 S1(i) = A1(i) - A2(i) Next i |
||
関数 VectorDif の戻り値を S1() に設定． |
VectorDif = S1() | |||
End |
End Function | |||