作业帮 > 综合 > 作业

通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 06:51:32
通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出
Private Sub Command1_Click()
Dim i As Integer,x As Integer,s As Long
Randomize
For i = 1 To 30
x = Int(Rnd * 100) + 1
Print x,
If (i Mod 5) = 0 Then Print
s = s + x
Next
Print "平均数="; s / 30
End Su