数据库大作业，要求做一个网上书店信息系统，VB+SQL
这个作业什么时候要呢？PrivateSubCommand1_Click()DimnAsIntegerDimsumAsDoublesum=0n=InputBox("请输入n的值")Fori=1Tonsum=sum+jiecheng(i)NextiPrintsumEndSubPublicFunctionjiecheng(ByValnAsInteger)AsDoubleDimjcAsDoublejc=1Fori=1Tonjc=jc*iNextjiecheng=jcEndFunct···
