[填空题] 在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请

[填空题] 在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请

[填空题] 在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序：

Private Sub Command1_Click()

Dim ave As Single, max As Integer, i As Integer, n As Integer

Dim min As Integer, Sum As Integer, s As String

Dim t As Integer

s=InputBox("输入一个正整数:")

n=Val(s)

If n＞0 Then

max=n: min=n: Sum=0

For j=1 To n

t= 【9】

Print t;

Sum=Sum+t

If t＜min Then

min=t

Elself max＜t Then

max=t

End If

Next j

【10】

ave=Sum/n

MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后"

End If

End Sub

正确答案：

[9]Int(Rnd*100+1) [10]Sum=Sum-max-min解析：[分析]： 首先假定输入的正整数为最大数(max)和最小数(min)初值。本题采用了InputBox从键盘上输入数据，用Ms-gBox输出结果。在程序中min必须赋一个初值，否则min默认为0。在循环中，每产生一个数就和max及min进行比较，大的放入max，小的放入min，并计算各数之和。循环结束后，减去max和min，求得平均数ave。