这些是作业吧,都帮你写了 你其实学不到什么东西的、
可以给你说几个 需要用到的关键字,你套上去用下。
select * from table1 as t1 join table2 as t2 on t1.id=t2.id 多表连接
where a>1 条件
order by 成绩 desc 倒序
order by 成绩 asc 正序
sum() 计算 字段 总和
还有些子查询 多看看书 其实都不难。
这个作业什么时候要呢?
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)