（行）ベクトル（1次元配列変数）の各要素を k 倍する関数\( kVector(k,Vector()) \) の定義
選択肢
| (1) | ByRef Vector() As Double | (2) | End Function | (3) | ) As Double |
| (4) | Dim Ans As Double | (5) | ByVal Vector As Double | (6) | LB = LBound(Vector) |
| (7) | Ans(i) = k * Vector(i) | (8) | : | (9) | Ans = k * Vector |
| (10) | UB = UBound(Vector) | (11) | Dim UB As Long | (12) | Dim LB As Long |
| (13) | kVector = Ans() | (14) | ) As Double( ) | (15) | Function kVector( |
| (16) | Dim Ans(LB To UB) As Double | (17) | Dim i As Long | (18) | For i = LB To UB Step 1 |
| (19) | Start kVector( | (20) | Next i | (21) | ByVal k As Double |
| (22) | , | (23) | Dim Ans(LB To UB) | (24) | Dim Ans() As Double |
| (25) | kVector = Ans | (26) | ReDim Ans(LB To UB) | (27) | ByRef Vector As Double |