存儲簡單幾何圖形（正方形、長方形和三角形）數(shù)據(jù)的方法描述如下：
1）使用特征數(shù)：1表示正方形、2表示長方形、3表示三角形；
2）正方形只用1個正整數(shù)表示邊長、長方形用2個正整數(shù)分別表示它的長與寬、三角形用3個正整數(shù)分別表示其三邊的長；
3）數(shù)據(jù)的開頭是一個正整數(shù)n,表示接下來共有n個簡單幾何圖形的信息；所有原始數(shù)據(jù)都是合理的．如4，1，2，3，2，2，3，2，2，3，3，3，4，5，表示共有4個簡單幾何圖形，第一個為正方形：邊長為2；第二個為三角形：邊長分別為2，2，3；第三個為長方形：長和寬分別為2，3；第四個為三角形，三邊長分別為：3，4，5；
      根據(jù)上述存儲方法，小龍編寫了一個計算所有簡單幾何圖形邊長之和的VB程序，功能如下：窗體加載時，自動讀取數(shù)據(jù)，依次存儲在數(shù)組元素a（1）、a（2）、a（3）…中．單擊“計算邊長之和”按鈕Commandl,程序?qū)?shù)據(jù)依次進行分析計算，將計算結(jié)果顯示在文本框Text1中．
（1）如果數(shù)據(jù)為“5，1，2，3，2，2，3，2，2，3，1，5，2，8，9”，則三角形共有

1

1

個．
（2）實現(xiàn)上述功能的VB程序如下．請在橫線處填入合適代碼．
Dim a（1 To 10000）As Long'存儲簡單幾何圖形的原始數(shù)據(jù)
Private  Sub  Form_Load（　　）
'本過程用于讀取簡單幾何圖形的原始數(shù)據(jù)，相關(guān)數(shù)據(jù)存儲在數(shù)組a中
‘代碼略
End Sub
Private Sub  Command1_Clici（　?。?br />Dim  n  As Long  i  As Long,s As Long,k As Long
n=

①

①

s=0
For i=1 To n
    If  a（k）=1 Then
         s=s+4*a（k+1）
         k=k+2
     Elself a（k）=2 Then
          s=s+

②

②

          k=k+3
      Else
          s=s+a（k+1）+a（k+2）+a（k+3）

③

③

        End  If
       Next  i
       Text1．Test=Str（s）
End Sub.