VB編程。輸入整數n，計算1！+2！+3！….+n！的值，並在窗體上輸出。要求分別用for,while 兩種循環實現

Dim?n?As?Integer,?sum?As?Long,?jc?As?Long

n?=?InputBox("請輸入：")?'如果是用文本框text1輸入，這裏改為?n=val(Text1)

sum?=?0

For?i?=?1?To?n

jc?=?1

for?j=1?to?i

jc?=?jc?*?j

next?j

sum?=?sum?+?jc

Next?i

Print?sum

while:

Dim?n?As?Integer,?sum?As?Long,?jc?As?Long

n?=?InputBox("請輸入：")

sum?=?0

i?=?1

While?i?<=?n

jc?=?1

j?=?1

While?j?<=?i

jc?=?jc?*?j

j?=?j?+?1

Wend

sum?=?sum?+?jc

i?=?i?+?1

Wend

Print?sum