在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机
在窗体上画一个名为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=【 】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【 】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
471***265
2023-07-23 00:37:01
正确答案：Int(Rnd*100+1) Sum=Sum-max-min
首先假定输入的正整数为最大数(max)和最小数(min)初值。本题采用了InputBox从键盘上输入数据，用Ms-gBox输出结果。在程序中min必须赋一个初值，否则min默认为0。在循环中，每产生一个数就和max及min进行比较，大的放入max，小的放入min，并计算各数之和。循环结束后，减去max和min，求得平均数ave。
相似问题
在窗体上画一个命令按钮 然后编写如下程序： Function fun(ByVal num As Lo
在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k
在窗体上画一个命令按钮 其名称为Command1 然后编写如下程序： Function M(x As
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function
Visual Basic中的控件分为3类 它们是标准控件 【 】和可插入对象。请帮忙给出正确答案和分
Visual Basic中的控件分为3类，它们是标准控件、【 】和可插入对象。请帮忙给出正确答案和分析，谢谢！
若有一个动态数组a有两个元素a(0)和a(1) 现要令数组a有三个元素a(0) a(1)和a(2)
若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用【 】语句。请帮忙给出正确答案和分析，谢谢！
编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放
编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Su
