存储简单几何图形（正方形、长方形和三角形）数据的方法描述如下：
1）使用特征数：1表示正方形、2表示长方形、3表示三角形；
2）正方形只用1个正整数表示边长、长方形用2个正整数分别表示它的长与宽、三角形用3个正整数分别表示其三边的长；
3）数据的开头是一个正整数n,表示接下来共有n个简单几何图形的信息；所有原始数据都是合理的．如4，1，2，3，2，2，3，2，2，3，3，3，4，5，表示共有4个简单几何图形，第一个为正方形：边长为2；第二个为三角形：边长分别为2，2，3；第三个为长方形：长和宽分别为2，3；第四个为三角形，三边长分别为：3，4，5；
      根据上述存储方法，小龙编写了一个计算所有简单几何图形边长之和的VB程序，功能如下：窗体加载时，自动读取数据，依次存储在数组元素a（1）、a（2）、a（3）…中．单击“计算边长之和”按钮Commandl,程序对数据依次进行分析计算，将计算结果显示在文本框Text1中．
（1）如果数据为“5，1，2，3，2，2，3，2，2，3，1，5，2，8，9”，则三角形共有

1

1

个．
（2）实现上述功能的VB程序如下．请在横线处填入合适代码．
Dim a（1 To 10000）As Long'存储简单几何图形的原始数据
Private  Sub  Form_Load（　　）
'本过程用于读取简单几何图形的原始数据，相关数据存储在数组a中
‘代码略
End Sub
Private Sub  Command1_Clici（　　）
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.