填空题

下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount%，n%
Ncount=0
n=0
Do
n=n+1
If______Then
Debug.Print n
Ncount=Ncount+1
End If
Loop Until Ncont=5
End Sub