100到1000质数的和及个数VB