产生10个三位随机数,打印出所有的数,然后降序输出,并求出其中的平均值Vb

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/20 00:10:31

产生10个三位随机数,打印出所有的数,然后降序输出,并求出其中的平均值Vb
产生10个三位随机数,打印出所有的数,然后降序输出,并求出其中的平均值.在picture控件中显示原始数据、排序后数据和平均值.

代码如下：
Private Sub Command1_Click()
Dim a(10) As Integer
Picture1.Print "排序前："
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 900) + 100
s = s + a(i)
Picture1.Print a(i);
Next i
s = s / 10
Picture1.Print
Picture1.Print "排序后："
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
r = a(j)
a(j) = a(j + 1)
a(j + 1) = r
End If
Next j
Next i
For i = 1 To 10
Picture1.Print a(i);
Next i
Picture1.Print
Picture1.Print "平均值：" & s
End Su

VB：用函数array产生一组数并输出,然后求出其大于平均值的元素个数并输出 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数” 2010-5-22 产生80个10-99的随机数,求出素数的个数并求出所有素数的和写VB代码 VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 VB 编写一段程序能够输出10个14至19之间的可带有一位小数的随机数,并输出平均值. vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序 vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出利用VB如何设计下面问题：利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值. 编一个程序,输入10个整数,并放在数组中,先降序输出所有的数,再统计并输出其中正数、负数和零的个数 C语言编程考试题用随机函数产生并输出20个[10,99]的随机整数,输出其中大于这20个数的平均值的数. 怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值