某數(shù)據(jù)壓縮方法描述如下：
1）原始數(shù)據(jù)中，某數(shù)不為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用該數(shù)據(jù)表示：
2）原始數(shù)據(jù)中，某數(shù)為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用兩個數(shù)表示，均為0；
3）原始數(shù)據(jù)中，某數(shù)據(jù)相鄰有重復(fù)，壓縮數(shù)據(jù)用3個數(shù)表示：第1個為0，第2個為重復(fù)數(shù)的個數(shù)，第3個數(shù)為該數(shù)本身。
原始數(shù)據(jù)：25  0  78  78  78  78  78  78
壓縮數(shù)據(jù)：25  0 0       0  6  78
程序運行界面如圖所示：

根據(jù)上述算法，小明編寫如下VB程序。
（1）若文本框Text1中輸入數(shù)據(jù)為“0，25，0，78，78，0，0”（不含引號），點擊“壓縮”命令按鈕，在文本框Text2輸出數(shù)據(jù)里有個0。
（2）實現(xiàn)上述功能的VB程序如下。請在橫線處填入合適代碼。
Dim a（1 To 100）As Integer,b（1 To 100）As Integer,c（1 To 100）As Integer
Dim n As Integer,num As Integer
Private Sub Init1 （　　）
Dim s1 As String,c1 As String
Dim i As Integer,t As Integer,len1 As Integer
n=0：t=0：s1=Text1．Text
len1=Len（s1）
For i=1 To len1
ch=Mid（s1，i,1）
If ch＜＞“，“Then
①

t=t*10+val（ch）

t=t*10+val（ch）

Else
n=n+1：a（n）=t：t=0
End If
Next i
n=n+1：a（n）=t
End Sub
Private Sub Command1_Click （　　）
Call Init1
Dim pa As Integer,pb As Integer
Dim firstdata As Integer,count As Integer,i As Integer
pb=1
firstdata=a（1）
n=n+1
a（n）=a（n-1）+1
count=1
For i=2 To n
If a（i）=firstdata Then
count=count+1
Else
If count=1 Then
If firstdata＞0 Then
b（pb）=firstdata：pb=pb+1
Else
b（pb）=0：b（pb+1）=0：pb=pb+2
End If
Else
b（pb）=0
b（pb+1）=count
②

b（pb+2）=firstdata

b（pb+2）=firstdata

pb=pb+3
End If
count=1
firstdata=a（i）
End If
Next i
Text2．Text=Str（b（1））
For i=③

2 to pb-1

2 to pb-1

Text2．Text=Text2．Text+“，“+Str（b（i））
Next i
End Sub