实现上述功能的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

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

 Dim a As Integer,b As Integer,c As Integer

 Dim d As Integer

 a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)

 d=min(a,b)+min(b,c)

 Text4.Text=Str(d)

End Sub

Function min(x As Integer,y As Integer)As Integer

 If x<y Then min=x Else min=y

End Function

运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是（  ）