问题
填空题
使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，请填空。
Private Sub Form_Click() Dim i As Integer Dim Sum As Integer Cls For i=1 To 1000 If 【11】 Then Sum=Sum+i Printi End If Next i Print Print"Sum="&Sum End Sub
答案
参考答案：i Mod 5=0 And i Mod 7=0
解析： Mod()函数的功能是求余，题目要求计算能同时被 5以及7整除的数，使用i Mod 5=O And i Mod 7=0可以实现。