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

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/04/30 23:58:40

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 DoubleRandomize '根据时间初始化随机数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 = 0For L = 0 To 9 '取出最大值 If B < A(L) Then B = A(L)NextC = 100For L = 0 To 9 '取出最大值 If C > A(L) Then C = A(L)NextFor L = 0 To 9 '将所有数相加 D = D + A(L)NextD = D - B - C '去除最大和最小值D = D / 8 '算出平均值MsgBox "未进行四舍五入前:" & DMsgBox "保留小数2位:" & Round(D, 2)
End Sub

再问：是50——100，不好意思，麻烦帮忙修改下
再答：那就把(Rnd * 100)这个替换为(Rnd * 50)+50就行了,你自己替换总会了吧

VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数. vb语句设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均 vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值 vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. 将随机产生的10个[100,200]范围内的随机整数存入数组,求数组中的最大值和最小值. 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计 vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值 vb问题利用随机函数产生80个10～99之间的随机整数,