问题
填空题
以下程序的功能是：求被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
解析： 求模运算符(Mod)用来对两个数作除法并且只返回余数。被5和7整除余数为1的表达式分别可以写为“n Mod 5=1”和“n Mod 7=1”，而按照题面要求同时被5和7除余数为1，则可以将两个表达式用“And”连接。因此本题答案为：n Mid 5=1 And n Mod 7=1。