資料庫的大作業
發布時間: 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
熱點內容