【单选题】下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39) Private Sub Command34_Click() t=0 m=1 sum=0 Do t=t+m sum=sum+t m=_______ Loop While m<=39 MsgBox“Sum”&Sum . End Sub 为保证程序正确完成上述功能,空白处应填人的语句是
【简答题】下列程序的功能是单击窗体时在消息框中输出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