學(xué)校藝術(shù)節(jié)比賽，有7個(gè)評(píng)委打分，設(shè)計(jì)VB程序?qū)σ幻麉①愓叽蚍郑谖谋究蜉斎胨性u(píng)委打分，單擊“運(yùn)行”按鈕Commandl,在文本框Text8中顯示最高分，文本框Text9中顯示最低分，去掉一個(gè)最高分，一個(gè)最低分，剩余5個(gè)評(píng)委打分的平均分（保留一位小數(shù)）為最后得分，在文本框Text10中輸出該參賽者的得分．運(yùn)行效果如圖所示．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Commandl_-Click（　?。?br />      Dim  a （1 to 7）As  Single
      Dim   i As Integer,sum  As Single,max   As Single,min  As Single
      Dim  aver  As Single
      a（1）=Val（Text1．Text）：a（2）=Val（Text2．Text）：a（3）=Val（Text3．Text）
      a（4）=Val（Text4．Text）：a（5）=Val（Text5．Text） 
      a（6）=Val（Text6．Text）：a（7）=Val（Text7．Text）
      max=a（1）
      min=a（1）
   
       For  i=2  to  7
           If  max＜a（i）  Then
                max=a（i）
           Elself   Then
                min=a（i）
            End  If
             sum=sum+a（i）
         Next  i
         Text8．Text=Str（max）
         Text9．Text=Str（min）
          aver=Int（（sum-max-min）/5*10+0.5）/10
          Text10．Text=Str（aver）
End   Sub.