益鸣的回答：

n=10 x=1 for i=1 to n x=x*i next

smiley的回答：

dim?s?as?double,?n?as?integer n?=?val(inputbox("请输入n值，不要太大哦，否则出错")) s?=?1 do?while?n?>?1 ????s?=?s?*?n ????n?=?n?-?1 loop msgbox?"这个数的阶乘为"?&?s