数据库基础——Access 2003应用教程（第二版） 程伟渊 第八章 VBA的设计与应用.pptVIP

2.7 数据库的管理 返回首页 例8-8：输入1~7间的整数，程序自动将其转换成星期数，如3→“星期三”。 2.7 数据库的管理 返回首页 8.5.3 For/Next结构语句 例8-10：计算1+2+3+4+……+99+100的和。 [分析]累加数据初值为1，终值为100，步长（数据间递变）为1，利用For/Next结构很容易实现它。程序代码如下。 Sub Ex8_10() Dim n As Integer, S As Integer S = 0 S存储数据累加之和 For n = 1 To 100 Step 1 S = S + n Next Debug.Print S= S End Sub 2.7 数据库的管理 返回首页 8.5.4 Do/Loop语句 例8-12：分析下面程序的运行结果 Sub Ex8_11 ( ) Dim n As Integer, S As Integer S = 0 n = 1 Do S = S + n n = n + 1 Loop While n 100 Debug.Print S= S End Sub 2.7 数据库的管理 返回首页 8.5.5 结构的嵌套 2.7 数据库的管理 返回首页 8.5.4 Do/Loop