问题 填空题

使用窗体的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可以实现。

填空题
判断题