以下程序的功能是：求被5和7除余数均为1的数。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount%，n%
Ncount=0
n=1
Do
n=n+1
If ______ Then
Debug.Print n
Ncount=Ncount+1
End If
Loop Until Ncount=5
End Sub

【参考答案】

n Mod 5=1 And n Mod 7=1或n Mod 7=1 And n Mod 5=1