下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。 Private Sub Form_Click() sum=0 For i=1 To 1000 If_____

admin2013-05-12  35

问题 下面程序的功能是单击窗体时在消息框中输出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

解析 本题考查VBA中书写条件表达式的知识。本题需要补充完整的空白处恰好就是这个程序的关键所在,也就是如何判断i能同时被3、5和7整除。判断整除我们一般使用两个数相除求余数,然后通过判断余数是否为0来实现。由于需要同时被3、5和7整除,所以三个判断的表达式之间应该是“与”的关系,最终结果为i Mod 3= 0 And i Mod 5=0 And i Mod 7=0。
转载请注明原文地址:https://jikaoti.com/ti/nJV0FFFM
0

最新回复(0)