VB操作题输入正整数n(n