这个作业什么时候要呢?
Private Sub Command1_Click()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
分类: 电脑/网络 >> *** 作系统/系统故障问题描述:
各位美女帅哥~~
还要和数据库连接的,,
要有图书的浏览和查找,
书店购物结帐功能等ASP页面,
回复一下可下载的网址也行,,,拜托拜托!!!!!
解析:
东区网上书店管理系统V1.0
绿叶 网上书店
新华****
雨丁香****
你这个书店是宣传展览性质的,还是收费下订单性质的啊?如果只是展览性质的,那你只需要把书分个类以后,把图书的属性提取出来,涉及到数据库上就可以了;
如果是可以下订单类型的,那就复杂了,比如用户注册的信息表,订单表,图书分类表,图书属性表,价格表,评价表,库存表等等……
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)