數據庫大作業，要求做壹個網上書店信息系統，VB+SQL

這個作業什麽時候要呢？

Dim?n?As?Integer

Dim?sum?As?Double

sum?=?0

n?=?InputBox("請輸入n的值")

For?i?=?1?To?n

sum?=?sum?+?jiecheng(i)

Next?i

Print?sum

End?Sub

Public?Function?jiecheng(ByVal?n?As?Integer)?As?Double

Dim?jc?As?Double

jc?=?1

For?i?=?1?To?n

jc?=?jc?*?i

Next

jiecheng?=?jc

End?Function