【加试题】一个二进制数字串的压缩算法是取二进制字符串的首字符为压缩后的第一个符号，接着统计首字符的个数，二者连接后再连接一个分隔符“/”，接着是另一个连续字符的个数，再是分隔符“/”，……以此类推，直到结束。小明编写了一个VB程序实现上述算法，在文本框Text1中输入一串二进制数字，单击“压缩”按钮Command1，在文本框Text2中输入连续1和0的个数。程序运行界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Text2．Text=coding(Text1．Text)
End Sub
Private Function coding(s As String)As String
Dim n As Integer，i As Integer，C As String
c=Mid(s，1，1)
n=1
For i=2 To Len(s)
If 
Then ‘(1)
n=n+1
Else
c=c+Str(n)+“／”
n=1
End If
Next i
coding= 
‘(2)
End Function
