プログラミングに関して

質問

『Rnd関数を用いて12個の一様乱数の合計値を400回求めて、Sheet1のA１セルからJ40セルまでの範囲のセルに順番にその合計値を書き込むSubプロシージャ「Kadai1A」を作成せよ。』という問題に歯が立ちません。わかる方いらっしゃいましたら回答お願いします。

回答No.1

DIooggooID · ベストアンサー

一例です。

Sub Kadai1A()
'
'12個の一様乱数
　　Dim rnd_Num(12) As Single

'乱数の合計値
　　Dim total As Single

'カウンター
　　Dim cnt As Integer

'格納セルの位置
　　Dim raw1, col1 As Integer

'セル位置１～４０までの繰り返し
　　For raw1 = 1 To 40

'セル位置Ａ～Ｊまでの繰り返し
　　　　For col1 = 1 To 10

'　　12個の一様乱数を計算する
　　　　　　For cnt = 1 To 12
　　　　　　　　rnd_Num(cnt) = Rnd
　　　　　　Next cnt

'　　12個の一様乱数の合計を計算する
　　　　　　total = 0
　　　　　　For cnt = 1 To 12
　　　　　　　　total = total + rnd_Num(cnt)
　　　　　　Next cnt
'　　12個の一様乱数の合計を計算する　　　　　　
　　　　　　Cells(raw1, col1).Value = total

　　　　Next col1
　　Next raw1

'
End Sub

お礼

ありがとうございます。
参考にして課題に取り組みたいと思います。