利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/07/20 01:19:44
利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
![利用随即函数产生50到100范围内的20个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决](/uploads/image/z/4307371-43-1.jpg?t=%E5%88%A9%E7%94%A8%E9%9A%8F%E5%8D%B3%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F50%E5%88%B0100%E8%8C%83%E5%9B%B4%E5%86%85%E7%9A%8420%E4%B8%AA%E9%9A%8F%E5%8D%B3%E6%95%B4%E6%95%B0%2C%E6%98%BE%E7%A4%BA%E5%85%B6%E4%B8%AD%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC+%E6%9C%80%E5%B0%8F%E5%80%BC%E5%92%8C%E5%B9%B3%E5%9D%87%E6%95%B0.+%E5%B0%BD%E9%87%8F%E7%AE%80%E5%8D%95%E7%82%B9+VB%E8%A7%A3%E5%86%B3)
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
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个随即整数,显示其中的最大值 最小值和平均数. 尽量简单点 VB解决
利用随即函数产生50-100范围内的20个随即数,显示其中的最大值、最小值和平均值.
利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值
用vb编程:利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值.
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
利用随机函数产生50-100范围内的20个随机数,显示其中最大值,最小值和平均值
vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
随即产生10个整数 ,求他们得最大值、最小值、和、平均数
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果