数据库大作业，要求做一个网上书店信息系统，VB+SQL
这个作业什么时候要呢？
PrivateSubCommand1_Click()DimnAsInteger
DimsumAsDouble
sum=0
n=InputBox("请输入n的值")
Fori=1Ton
sum=sum+jiecheng(i)
Nexti
Printsum
EndSub
PublicFunctionjiecheng(ByValnAsInteger)AsDouble
DimjcAsDouble
jc=1
Fori=1Ton
jc=jc*i
Next
jiecheng=jc
EndFunction
多重随机标签