用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中去掉一个最大数和一个最小数,然后求其平均数,并在
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 19:08:37
用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中去掉一个最大数和一个最小数,然后求其平均数,并在窗体上输出.(vb学得不好,)
楼主看看这个:
Private Sub Command1_Click()
Dim aNum(9) As Long, V As Long
Dim nMax As Long, nMin As Long
Dim vAvg As Double, i As Long
Randomize
nMax = 0: nMin = 100 '初始化设置
For i = 0 To 9 '产生10个数据
V = 10 + 89 * Rnd() '10到99
aNum(i) = V
If (V > nMax) Then nMax = V
If (V < nMin) Then nMin = V
Next
'输出到窗口,同时求数据之和
Me.Cls: V = 0
Print "这10个数是:"
For i = 0 To 9
Print aNum(i);
V = V + aNum(i)
Next
Print vbLf & "最大数是:" & nMax
Print "最小数是:" & nMin
V = V - nMax - nMin '去掉最大、最小值
' 如果要按10个数算平均值,把下面改为 V/10
Print "平均值为:"; V / 8
End Sub
再问: лл��
Private Sub Command1_Click()
Dim aNum(9) As Long, V As Long
Dim nMax As Long, nMin As Long
Dim vAvg As Double, i As Long
Randomize
nMax = 0: nMin = 100 '初始化设置
For i = 0 To 9 '产生10个数据
V = 10 + 89 * Rnd() '10到99
aNum(i) = V
If (V > nMax) Then nMax = V
If (V < nMin) Then nMin = V
Next
'输出到窗口,同时求数据之和
Me.Cls: V = 0
Print "这10个数是:"
For i = 0 To 9
Print aNum(i);
V = V + aNum(i)
Next
Print vbLf & "最大数是:" & nMax
Print "最小数是:" & nMin
V = V - nMax - nMin '去掉最大、最小值
' 如果要按10个数算平均值,把下面改为 V/10
Print "平均值为:"; V / 8
End Sub
再问: лл��
用VB编写程序完成以下功能:随机生成10个两位整数(必须使用数组),从中去掉一个最大数和一个最小数,然后求其平均数,并在
编写一个C程序,输入8个整数放入一维数组w中,找出其中的最小数和 最大数,并将它们分别与数组
vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该
一. 编写一个C程序,输入8个整数放入一维数组w中,找出其中的最小数和最大数,并将它们分别与数组中的第
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
vb程序设计——用数据保存随机产生的10个介于20~50之间的整数,求最大数,最小数和平均数
VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并
输入一个组数,求其中最大数最小数,并输出.用MATLAB循环结构完成,
用VB编写程序:随机产生三个数,求出其中最小的那个数
编写VB程序.输入20个数,放在数组中,输出其总和,平均数,以及大于平均数的那些数