利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.

Option ExplicitPrivate Sub Command1_Click()ClsDim mArr%(1 To 20), Max%, Min%, sum%, i%Max = 50Min = 100For i = 1 To 20RandomizemArr(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)NextPrint "最大值：" & MaxPrint "最小值：" & MinPrint "平均值：" & sum / 20End Su