问答题

使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，
请填空 Private Sub Form_Click() Dim i As Integer Dim Sum As Integer Cls For i=1 To 1000 If 【 】 Then Sum=Sum+i Printi End If Next i Print Print"Sum="&Sum End Sub