[填空题] 在窗体上画一个名为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 Thenmax=n: min=n: Sum=0For j=1 To n t= 【9】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=tEnd 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。