行列(A)×列ベクトル(b)を求める関数\( MatrixProVector(A(), b()) \) の定義
選択肢
| (1) | Dim Ans As Double | (2) | MatrixProVector = Ans | (3) | UB = UBound(b) |
| (4) | ByRef A As Double | (5) | Dim Ans() As Double | (6) | End Function |
| (7) | ) As Double | (8) | Dim Ans(LB To UB) As Double | (9) | ReDim Ans(LB To UB) |
| (10) | Ans(j) = 0# | (11) | ByRef A() As Double | (12) | Dim LB As Long |
| (13) | : | (14) | Dim Ans(LB To UB) | (15) | Next j |
| (16) | ) As Double() | (17) | For i = LB To UB Step 1 | (18) | ByVal A() As Double |
| (19) | Start MatrixProVector( | (20) | Dim UB As Long | (21) | Next i |
| (22) | LB = LBound(b) | (23) | Ans = Ans + A * b | (24) | ByRef b() As Double |
| (25) | MatrixProVector = Ans() | (26) | Dim i As Long, j As Long | (27) | Ans(j) = Ans(j) + A(j,i) * b(i) |
| (28) | Function MatrixProVector( | (29) | , | (30) | For j = LB To UB Step 1 |