VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/01 09:19:24
VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.
VB
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就行了,你自己替换总会了吧
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之间的随机整数,