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

根據上述算法，小明編寫如下VB程序。
（1）若文本框Text1中輸入數據為“0，25，0，78，78，0，0”（不含引號），點擊“壓縮”命令按鈕，在文本框Text2輸出數據里有個0。
（2）實現上述功能的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