Example

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

Example21(1204-3)　PAD

学籍番号
氏　　名
三辺の長さから三角形の面積を計算するマクロ(Main)コードをPADにしたがって完成させなさい．
マクロ(Main)の開始	Sub Main()
課題提出に必要【学籍番号・氏名・課題番号の出力】	Call Header
Long型変数 n の宣言とセル B2 で初期化	()
Double型配列変数Matrix の動的宣言、要素番号1 から n の二次元配列	()
Double型配列変数Vector の動的宣言、要素番号1 から n	()
繰返し変数 iとj の宣言Long型	()
j の繰り返し	()
i の繰り返し	()
Matrix(j, i) に(n=5の場合)F5からj9を代入．	()
	()
	()
j の繰り返し	()
Vector(j) に(n=5の場合)N5からN9を代入．	()
	()
Double型配列変数 Ans の宣言	()
Ans() にMatrixProVector(Matrix(), Vector())の結果を代入	()
j の繰り返し	()
(n=5の場合)R5からR9を代入．	()
	()
マクロ(Main)の終了	()

選択肢


(1)	Next j	(2)	Vector(j) = Cells(j, 14)	(3)	Sub End
(4)	End	(5)	Matrix(j,i) = Cells(j + 4, i + 5)	(6)	Dim Matrix() As Double : ReDim Matrix(1 To n, 1 To n)
(7)	Loop i = 1 To n Step 1	(8)	Loop	(9)	Dim n As Double : n = Cells(2,2)
(10)	Ans() = MatrixProVector(Matrix(), Vector())	(11)	Dim Vector() As Double : ReDim Vector(1 To n)	(12)	End Sub
(13)	Next i	(14)	Loop j = 1 To n Step 1	(15)	Dim Ans() As Double
(16)	For i = 1 To n Step 1	(17)	Do	(18)	For j = 1 To n Step 1
(19)	Cells(j + 4, 18) = Ans(j)	(20)	Dim j As Long, i As Long	(21)	Do i = 1 To n Step 1
(22)	Do j = 1 To n Step 1