下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程

问题填空题

下列程序的功能是找出被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

答案

参考答案：n Mod 5=1 And n Mod 7=1

解析：本题考查的是VBA编程基础。题目要求在显示出最小的5个可以同时被5和7除后余1的整数。Do…loop until Ncount=5循环进行整体控制，n=n+1保证是最小的5个正整数。而if控制的两个语句，一个是打印，一个是对找出的数进行计数。因此，if的条件必定是满足要求的一条语句，要满足这个条件，必须满足两个条件，一是n mod 5=1，二是n mod 7=1，且要同时满足，则可用and进行连接。