单选题 窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 500
If P(i) Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
If x Mod 7＜＞0 Then
p=True
Else
p=False
End If
End Function
关于上述程序，以下叙述中正确的是______。