数据库的大作业
发布时间: 2025-10-10 10:51:49
‘壹’ 数据库大作业，要求做一个网上书店信息系统，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
热点内容