Private? Sub？ Command 1_Click()

Dim? n？ As? integer

Dim? sum？ As? double；twofold

sum？ =? 0

n？ =? InputBox ("Please enter a value for n")

For what? Me? =? 1? Where to? n

sum？ =? sum？ +? Jiecheng (1)

Next? I

Print? total

End? submarine

Public? Function? Jiecheng (ByVal? n？ As? Integer) As? double；twofold

Dim? jc？ As? double；twofold

jc？ =? 1

For what? Me? =? 1? Where to? n

jc？ =? jc？ *? I

then

Jiecheng? =? Jurist (with jurisconsult)

End? function