[問答題] 編程題(26分)【題目】編寫程序,對實驗數(shù)據(jù)進行分組均化處理。處理的方法是:先將實驗數(shù)據(jù)從小到大排序,然后按排序后的順序每3個數(shù)作為一組,再用每組3個數(shù)的平均值作為這3個數(shù)的表現(xiàn)值?！揪幊桃蟆? 1.程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。 2.運行程序,單擊"處理"按鈕,出現(xiàn)如圖所示的InputBox函數(shù)窗口,輸入數(shù)據(jù)個數(shù)(或使用缺省值)后單擊"確定"按鈕,則生成10-40之間的隨機整數(shù)數(shù)組并顯示在實驗數(shù)據(jù)文本框中,然后對實驗數(shù)據(jù)進行排序并顯示在排序結果文本框中,再進行分組均化并在文本框中輸出數(shù)據(jù)均化結果;單擊“清除"按鈕,將3個文本框清空,焦點置于"處理"按鈕上;單擊"結束"按鈕,結束程序運行。 3.程序中應定義一個名為sort的通用過程,用于對一維數(shù)組按從小到大排序。 【要求】 將窗體文件和工程文件分別命名為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("輸入數(shù)據(jù)個數(shù):", ,AB) ReDim a(n) For i=A To n a(i)=Int(Rnd*DA)+A0 TextA=TextA & Str(a(i)