vb素數求和?