作业帮 > 数学 > 作业

VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值.

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/05/05 13:45:49
VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值.
VB,先产生100个0~67之间的随机数,编一子过程计算这些随机数的平均值、最大值、最小值.
Dim sum,max,min
Sub aaa(ByRef sum,ByRef max,ByRef min)
min = 100 ' 给最小值先给一个比较大的值
For i = 1 To 100
s = Int(Rnd(1) * (67 - 0)) + 0 's为算出0-67之间的随机数
sum = sum + s
If s > max Then max = s
If s < min Then min = s
Next i
sum = sum / 100
End Sub
Private Sub Command1_Click()
Call aaa(sum,max,min)
Print sum
Print max
Print "aaa"
Print min
End Su