VB随机产生一个三位数,判断该整数