问题
填空题
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在空白处填入适当语句将程序补充完整。
Private Sub Form_Click()
sum=0
For i=1 To 1000
If Then
sum=sum+i
End If
Next i
MsgBox sum
End Sub
答案
参考答案：i Mod 3=0 And i Mod 5=0 And i Mod 7=0
解析： 本题的功能就是判断i能同时被3、5和7整除。所以3个判断的表达式之间应该是“与”的关系，最终结果为i Mod 3=0 And i Mod 5=0 And i Mod 7=0。