[问答题] 编程题(26分)编写程序,对实验数据进行分组均化处理。处理的方法是:先将实验数据从小到大排序,然后按排序后的顺序每3个数作为一组,再用每组3个数的平均值作为这3个数的表现值。【编程

[问答题] 编程题(26分)编写程序,对实验数据进行分组均化处理。处理的方法是:先将实验数据从小到大排序,然后按排序后的顺序每3个数作为一组,再用每组3个数的平均值作为这3个数的表现值。【编程

[问答题] 编程题(26分)【题目】编写程序,对实验数据进行分组均化处理。处理的方法是:先将实验数据从小到大排序,然后按排序后的顺序每3个数作为一组,再用每组3个数的平均值作为这3个数的表现值。【编程要求】 1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。 2.运行程序,单击"处理"按钮,出现如图所示的InputBox函数窗口,输入数据个数(或使用缺省值)后单击"确定"按钮,则生成10-40之间的随机整数数组并显示在实验数据文本框中,然后对实验数据进行排序并显示在排序结果文本框中,再进行分组均化并在文本框中输出数据均化结果;单击“清除"按钮,将3个文本框清空,焦点置于"处理"按钮上;单击"结束"按钮,结束程序运行。 3.程序中应定义一个名为sort的通用过程,用于对一维数组按从小到大排序。 【要求】 将窗体文件和工程文件分别命名为F2和P2,并保存到T盘根目录下。

正确答案：

Option Explicit Option base A Private Sub CmdRun_Click() Dim a() As Integer,n As Integer,i As Integer Dim sum As Integer,av As Integer,k As Integer n=InputBox("输入数据个数:", ,AB) ReDim a(n) For i=A To n a(i)=Int(Rnd*DA)+A0 TextA=TextA & Str(a(i)