[填空題] 在窗體上畫(huà)一個(gè)名為Command1的命令按鈕。下列程序的功能是：從輸入對(duì)話框輸入一個(gè)正整數(shù)n。用隨機(jī)函數(shù)產(chǎn)生n個(gè)1～100范圍的隨機(jī)數(shù)，然后求出去掉一個(gè)最大數(shù)和最小數(shù)的平均數(shù)。根據(jù)題意，請(qǐng)完善下列程序： 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("輸入一個(gè)正整數(shù):") 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)，，"去掉最大數(shù)和最小數(shù)后" End If End Sub

[9]Int(Rnd*100+1) [10]Sum=Sum-max-min解析：[分析]： 首先假定輸入的正整數(shù)為最大數(shù)(max)和最小數(shù)(min)初值。本題采用了InputBox從鍵盤(pán)上輸入數(shù)據(jù)，用Ms-gBox輸出結(jié)果。在程序中min必須賦一個(gè)初值，否則min默認(rèn)為0。在循環(huán)中，每產(chǎn)生一個(gè)數(shù)就和max及min進(jìn)行比較，大的放入max，小的放入min，并計(jì)算各數(shù)之和。循環(huán)結(jié)束后，減去max和min，求得平均數(shù)ave。