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

问题描述:

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

s& = 1
i& = 0
Do While s