UC知道一个vb题
来源：百度知道 编辑：UC知道 时间：2024/05/10 20:33:18
完善下列程序。该程序的功能是：随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。
Private Sub Form_Click()
Dim s As Integer, i As Integer
Dim k As Integer, max As Integer, min As Integer
Randomize
k = Int(Rnd * 100) + 1
max = k: min = k
s = k
For i = 1 To 19
k = Int(Rnd * 100) + 1
s = s + k
If ______________Then max = k
If __________ Then min = k
Next i
s = _______________ _
Print "average="; s / 18
End Sub
希望能有点解释 谢谢
Private Sub Form_Click()
Dim s As Integer, i As Integer
Dim k As Integer, max As Integer, min As Integer
Randomize
k = Int(Rnd * 100) + 1
max = k: min = k
s = k
For i = 1 To 19
k = Int(Rnd * 100) + 1
s = s + k
If ______________Then max = k
If __________ Then min = k
Next i
s = _______________ _
Print "average="; s / 18
End Sub
希望能有点解释 谢谢
k> max '先让max等于第1个数了,然后后面生成的19个数,如果数大于MAX中的数,就改变MAX的值,这样,全部生成后,MAX中就是最大的数了.
k< min
'同上
s-max-min
'S是所有数的和,减去max,min中存的最大数,最小数,就是去除最大和最小后的和了..在后面的代码中再除以18,就是你需要的平均数了.