Private Sub Command1_Click()For i = 1 To 2000If Prime(Sum_Y(i)) = True And Prime(i) = False Then Print iNextEnd Sub'求素数函数Function Prime(ByVal n As Integer) As BooleanFor i = 2 To Int(Sqr(n))If n ...