Example

13:34 にページが自動更新されます。

Example18(1204-2)　PAD

学籍番号
氏　　名
\( \vec{Ans} = k \times \vec{Vector} \)マクロ(Main)コードをPADから完成させなさい．
マクロ(Main)の開始	Sub Main()
課題提出に必要【学籍番号・氏名・課題番号の出力】	Call Header
Long型変数 n の宣言とセル B2 で初期化	()
Double型配列変数 Vector の動的宣言、要素番号1 から n	()
Double型配列変数 Ans の動的宣言	()
Double型変数 k の宣言	()
Long型繰返し変数 i の宣言	()
iの繰り返し	()
Vector(i) に(n=5の場合) B4～F4 を代入．	()
	()
変数 k にセル B3 の値を代入	()
Ans() にkVector(k, Vector())の結果を代入．	()
iの繰り返し	()
(n=5の場合) B5～F5 に Ans(i)を代入．	()
	()
マクロ(Main)の終了	()
kVector関数の定義

選択肢


(1)	Vector(i) = Cells(4, i + 1)	(2)	End Main	(3)	Cells(6, i + 1) = Ans(i)
(4)	Loop	(5)	Dim Ans() As Double	(6)	Next i
(7)	Dim i As Long	(8)	k = Cells(3, 2)	(9)	End Sub
(10)	For i = 1 To n Step 1	(11)	End Main()	(12)	Ans() = kVector(k, Vector())
(13)	Sub End	(14)	Dim Vector() As Double: ReDim Vector(1 To n)	(15)	Dim n As Long: n = Cells(2, 2)
(16)	Dim k As Double