罗森塔尔效应也称作（）

A.毕马龙效应

B.瓦拉赫效应

C.皮格马利翁效应

D.期待效应

下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5、7整除的整数，请补充完整此程序：
Pvivate Sub Form_Click()
Sum=0
For i=1 To 1000
If______Then
sum=sum+i
End If
Next i
MsgBox sum
End Sub