1. 在VB中，判断一个整数的各位上的数字是否重复的自定义函数，请在程序划线处填入合适的代码。

Private Function judge(t As Long)As Boolean

Dim s As String, s1 As String, i As Integer, j As Integer

s=Str(t): judge =False

For i =1 To Len(s)－1

s1 = Mid(s, i, 1)

For j =i+ 1 To Len(s)

If    ①   Then Exit Function

Next j

Next i

    ② 

End Function

① ②