作业帮 > 数学 > 作业

利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/07/20 01:19:44
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
Private Sub Command1_Click()
Cls
Dim mArr%(1 To 20),Max%,Min%,sum%,i%
Max = 50
Min = 100
For i = 1 To 20
Randomize
mArr(i) = Int(Rnd * 51 + 50)
If mArr(i) > Max Then Max = mArr(i)
If mArr(8) < Min Then Min = mArr(i)
sum = sum + mArr(i)
Print mArr(i)
Next
Print "最大值:" & Max
Print "最小值:" & Min
Print "平均值:" & sum / 20
End Su