vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/28 06:23:16
vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值
![vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值](/uploads/image/z/172899-27-9.jpg?t=vb%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%2C%E6%8A%8A100-200%E4%B9%8B%E9%97%B4%E7%9A%8420%E4%B8%AA%E6%95%B0%E5%AD%98%E5%88%B0%E4%B8%80%E4%B8%AA%E6%95%B0%E7%BB%84%E9%87%8C%2C%E6%B1%82%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%E5%80%BC)
Private Sub Command1_Click()
Dim a(1 To 20)
Dim max,ave,min,sum
max = 0
min = 300
Print "产生的20个数为:";
For i = 1 To 20
a(i) = Int(Rnd() * 100 + 101)
Print a(i);
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
Print
Print "平均值为"; sum / 20; "最大值为:"; max; "最小值为:"; min
End Su
Dim a(1 To 20)
Dim max,ave,min,sum
max = 0
min = 300
Print "产生的20个数为:";
For i = 1 To 20
a(i) = Int(Rnd() * 100 + 101)
Print a(i);
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
Print "平均值为"; sum / 20; "最大值为:"; max; "最小值为:"; min
End Su
vb程序设计,把100-200之间的20个数存到一个数组里,求最大值最小值和平均值
用数组求10个数中的最大值、最小值和平均值.
用VB求最大值最小值和平均值
问一个VB基础题啊 怎么随机产生10个30到100的数,求最大值、最小值和平均值.输出结果
编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
用C语言编写:求元素个数为 10 的一维数组元素中的最大值、最小值和平均值.
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值
编写用指针变量作为函数参数求数组的最小值、最大值和平均值的函数
用数组求一组数中最大值,最小值和平均值,并求有多少个数超过平均值
VB,用VB语言写!随机产生10个两位整数,求期中的最大值,最小值和平均值.
用C语言求10个数的最大值和最小值和平均值