vb中求1000以内7的倍数