作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/28 05:06:28
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
希望你们帮帮忙
要求变量名;最大值max最小值min平均值avg;变量声明;在commandl-Click()事件中编写
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
Private Sub Command1_Click()
Dim a%(1 To 20),max%,min%
max = 50
min = 100
Randomize
Cls
For i = 1 To 20
a(i) = Int(Rnd * 51 + 50) '产生20个50到100的随机数
Print Tab(5 * ((i - 1) Mod 10) + 1); a(i); '加tab是为了使打印出来的数对齐
If i Mod 10 = 0 Then Print
If a(i) >= max Then max = a(i)
If a(i)