VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB

来源：学生作业帮助网编辑：作业帮时间：2024/11/07 22:40:18

VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB
VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.
VB

帮你写好了,这个是工程文件,下载下来就可以了.

以下是源码:

Private Sub Command1_Click()

Dim A(10) As Double, L As Integer, B As Double, C As Double, D As Double

Randomize '根据时间初始化随机数

A(0) = (Rnd * 100)

A(1) = (Rnd * 100)

A(2) = (Rnd * 100)

A(3) = (Rnd * 100)

A(4) = (Rnd * 100)

A(5) = (Rnd * 100)

A(6) = (Rnd * 100)

A(7) = (Rnd * 100)

A(8) = (Rnd * 100)

A(9) = (Rnd * 100)

B = 0

For L = 0 To 9 '取出最大值

If B < A(L) Then B = A(L)

C = 100

For L = 0 To 9 '取出最大值

If C > A(L) Then C = A(L)

For L = 0 To 9 '将所有数相加

D = D + A(L)

D = D - B - C '去除最大和最小值

D = D / 8 '算出平均值

MsgBox "未进行四舍五入前:" & D

MsgBox "保留小数2位:" & Round(D, 2)

End Sub

VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB vb 随机产生10个100-200之间的数求最大值急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果用VB程序设计利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. VB随机产生10个100到200之间的整数,将其按从大到小顺序排列用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来. VB:随机产生30个[100,500]区间的随机整数,求其和及平均值. vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现 VB随机产生1000个10-99之间的随机数,统计出现次数最多的数是哪几个? VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出