利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/05 06:58:20
利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
Option Explicit
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
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
利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
利用随机函数产生50-100范围内的20个随机数,显示其中最大值,最小值和平均值
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
利用随机函数产生50-100范伟内的20个随机数,显示其中的最大值,最小值和平均值
pascal 利用随机函数产生的20个50—100范围内的随机数,显示它们的最大值、最小值和平均值.
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,