Start |
||||
Long型変数 n の宣言と セル B2 で初期化 |
Dim n As Long: n = Cells(2,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(3, i + 1) を代入． |
For i = 1 To n Step 1 Vector(i) = Cells(3, i + 1) Next i |
||
Double型配列変数 Ans の 動的宣言 |
Dim Ans() As Double | |||
Ans() に Vector() を代入． |
Ans() = Vector() | |||
i = 1, n, 1 |
Cells(4, i + 1) に Ans(i) を代入． |
For i = 1 To n Step 1 Cells(4, i + 1) = Ans(i) Next i |
||
End |
||||