VBAプログラミング

画像のような60人分の学生の平均点を計算するプログラムを作りたいのですが、Rnd関数とInt関数を用いた場合はどのよう表記されるのか教えてほしいです。宜しくお願い致します。

質問者からの補足コメント

• めぐみんさん返信ありがとうございます。範囲は0点から100点なので最低点数は0となります(＞人＜;)

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/01/14 12:18

No.4 回答者： gaotian 回答日時： 2023/01/21 10:35

これで、比較したみてください。

Dim AVE

AVE = WorksheetFunction.Average([A1].CurrentRegion)
Range("A10") = "AVE"
Range("B10") = AVE
Range("A11") = "INT(AVE)"
Range("B11") = Int(AVE)
Range("A12") = "ROUND(AVE)"
Range("B12") = Round(AVE, 2)

No.3 回答者： めぐみん_ 回答日時： 2023/01/14 13:28

こんな感じでしょうか？

Sub try()
Dim i As Integer, j As Integer
Dim tensu As Integer, goukei As Integer
Dim heikin As Double

Randomize ' 習ってないようなら消してください。

goukei = 0

For i = 1 To 6
For j = 1 To 10
tensu = Int(Rnd() * 101)
Cells(i, j).Value = tensu
goukei = goukei + tensu
Next j
Next i

heikin = goukei / 60#

MsgBox ("平均点 = " & heikin)

End Sub

No.2 回答者： めぐみん_ 回答日時： 2023/01/14 08:24

課題であるならどのように習って来たかによって回答は変わると思う。

ちなみに個人の最低点数は 1 or 0 ？
これによって発生させる乱数の範囲が変わるから。

No.1 回答者： tatsumaru77 回答日時： 2023/01/14 07:56

平均点を表示したプログラムを提示していただけませんでしょうか。

Rnd関数の用途がよくわからないのですが、何のために使用したいのでしょうか。