下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer，P As Integer
p＝0
For i＝100 To 999
If __①__ Then
List1.AddItem Str(i)
②__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：_____________________________________；
划线②处应填入的语句为：_____________________________________。