列ベクトル(a)と列ベクトル(b)の差を求める関数\( VectorDif(a(), b()) \) の定義
選択肢
| (1) | Dim i As Long | (2) | ) As Double() | (3) | ReDim Ans(LB To UB) |
| (4) | ByRef b As Double() | (5) | End Function | (6) | Function VectorDif( |
| (7) | Dim UB As Long | (8) | VectorDif = Ans() | (9) | LB = LBound(a) |
| (10) | ByVal a() As Double | (11) | Dim LB As Long | (12) | ByRef a As Double() |
| (13) | : | (14) | ByRef b() As Double | (15) | UB = UBound(a) |
| (16) | Start VectorDif( | (17) | ) As Double | (18) | For i = LB To UB Step 1 |
| (19) | Next i | (20) | ByRef a() As Double | (21) | End VectorDif |
| (22) | Dim Ans() As Double | (23) | , | (24) | Ans(i) = a(i) - b(i) |
| (25) | ByVal b() As Double |