vb 编写程序求1到n之间有多少个能被7整除的数 统计个数