试用VB程序语言写出完整程序段:计算1*2*3···*3000,当积大于3000时停止计算.