作业帮 > 综合 > 作业

VB 求10个随机数和平均值

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 02:12:15
VB 求10个随机数和平均值
Private Function AverageSub () As Double
Dim intTotal As Integer
Dim i As Interger
intTotal = 0
Randomize()
For i = 0 To 9
intTotal = intTotal + int(Rnd(100))
Next
AverageSub = intTotal / 10
End Function