學校藝術節(jié)比賽，有7個評委打分，設計VB程序對一名參賽者打分，在文本框輸入所有評委打分，單擊“運行”按鈕Commandl,在文本框Text8中顯示最高分，文本框Text9中顯示最低分，去掉一個最高分，一個最低分，剩余5個評委打分的平均分（保留一位小數）為最后得分，在文本框Text10中輸出該參賽者的得分．運行效果如圖所示．

實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Private Sub Commandl_-Click（　　）
      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.