计算机数据库(经济会计类)access数据库程序设计(2015上)随堂讲义.ppt

例9 一篮鸡蛋,二个二个数多一个,三个三个数多二个,四个四个数多三个,五个五个数多四个,六个六个数多五个,七个七数正好,编程求鸡蛋个数。 Dim i As Integer For i = 0 To 500 Step 7 If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And _ i Mod 6 = 5 And i Mod 7 = 0 Then MsgBox 鸡蛋数为: i Exit For End If Next i Dim i As Integer i = 0 Do while True If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then MsgBox 鸡蛋数为: +str(i) Exit Do End If i = i + 7 Loop 方法一 方法二 例10 求S值。S=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+….+N),其中N值=50。 Dim n As Integer Dim s As Single Dim s1 As Single For n = 1 To 50 s =s+( s1+ n) s1=s1+n Next n MsgBox s Dim i As Integer Dim num(10) As Integer Dim n As Integer Dim s As Single Dim s1 As Single For i = 1 To 10 num(i) = InputBox(请输入任意10个数) s = s + num(i) Next i s1 = s / 10 For i = 1 To 10 If num(i) = s1 Then n = n + 1 End If Next i MsgBox n 例11 输出任意10个数中超过平均值的个数。 Dim i As Integer Dim j As Integer Dim n(10) As Integer For i = 1 To 10 n(i) = InputBox(请输入任意10个数) Next i For i = 1 To 10 For j = i + 1 To 10 If n(i) n(j) Then t = n(i) n(i) = n(j) n(j) = t End If Next j Next i MsgBox n(1) n(2) n(3) n(4) n(5) n(6) n(7) n(8) n(9) n(10) 例12 按从小到大顺序输出任意10个数。（了解） 上机验证 例4-1 显示每位学生的学号、姓名、学院名称、系名称、班级名称。命名为学生查询1。 操作步骤： (1) 点击“创建”，选“查询设计” ； (2) 在显示表窗口中选择数据源“学院” 、“系” 、“班级” 、“学生”表并关闭显示表窗口； (3) 在查询设计界面的表/查询设计窗格下的字段行分别选择学号、姓名、学院名称、系名称、班级字段； (4) 关闭查询设计界面窗口，保存查询设计，命名为学生查询1。 4. 查询部分 上机验证 例4-2 显示每位1987年出生的女学生的学号、姓名、学院名称、系名称、班级名称。命名为学生查询2。 操作步骤： (1) 点击“创建”，选“查询设计” ； (2) 在显示表窗口中选择数据源“学院” 、“系” 、“班级” 、“学生”表并关闭显示表窗口； (3) 在查询设计界面的表/查询设计窗格下的字段行分别选择学号、姓名、学院名称、系名称、班级字段； (4) 在查询设计界面的表/查询设计窗格下的字段行选择性别字段，去掉该字段下方对应的显示行的“打勾”，然后在该字段下方对应的条件行输入“女”。再选择出生年月字段，去掉该字段下方对应的显示行的“打勾”，然后在该字段下方对应的条件行输入year([出生年月])=1987； (5) 关闭查询设计界面窗口，保存查询设计，命名为学生查询2。 上机验证 例4-3 分别统计男生和女生的人数。 操作步