填空题

下面程序的功能是单击窗体时在消息框中输出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＝0And i Mod 7＝0
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如卞程序： Private Sub Command1-Click() Dim a(10) As Integer Dim x As Integer For i＝1 To 10 a(i)＝i Next i x＝1 MsgBox a(f(x)+x) End Sub Function f(y As Integer) y＝y+2 f＝y End Function 程序运行后，单击命令按钮，消息框的输出结果为______。
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： PrivateSubCommand1_Click() Dim i As Integer，x As Integer For i＝1 To 6 If i＝1 Then x＝i If i＜＝4 Then x＝x+1 Else x＝x+2 End If Next i MsgBox X End Sub 程序运行后，单击命令按钮，其输出结果为______。
相关试题