1. (2019高二上·武义月考) 下面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

为实现上述功能，请在程序划线处填入合适的语句。