暗淡？n？作為？整數，？sum？作為？龍，？jc？作為？長的
n？=?InputBox("請輸入:")？如果在文本框text1中輸入，此處將更改為？n=val(Text1)
sum？=?0
為了什麽？我？=?1?去哪？n
jc？=?1
為了什麽？j=1？去哪？我
jc？=?jc？*?j
下壹個？j
sum？=?sum？+?（同jurisconsult） 法學家
下壹個？我
打印？sumwhile:
暗淡？iAs？整數，？j？作為？整數
暗淡？n？作為？整數，？sum？作為？龍，？jc？作為？長的
n？=?InputBox("請輸入:")
sum？=?0
我？=?1
什麽時候？我？& lt=?n
jc？=?1
j？=?1
什麽時候？j？& lt=?我
jc？=?jc？*?j
j？=?j？+?1
行
sum？=?sum？+?（同jurisconsult） 法學家
我？=?我？+?1
行
打印？總和