利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
问题描述:
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
答
Private 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)