access真题练习第八章

1、第8章 VBA程序设计8.3 VBA基本语句8.4 程序基本结构第8章(2)重点：掌握VBA程序设计三种基本结构 难点：循环结构8.3 VBA基本语句8.3.1 VBA语句的书写规则（1）每个语句行以回车键结束。（2）通常将一条语句写在一行内。若语句较长，可以用续行符“ _” 。（3）允许在程序的同一行上书写多条语句，各语句之间需用冒号“:”分隔。（4）不区分字母的大小写（字符串内的字母除外）。8.3.2 VBA基本语句1.注释语句该语句不被执行。格式1：Rem 注释内容格式2：注释内容2.声明语句变量类型的指定3.赋值语句格式：Let 变量名 = 表达式例：let z = x z = x8.

2、4 程序基本结构8.4.1 顺序结构照解决问题的顺序编写相应的语句，程序运行时自上而下依次执行语句，这种程序结构称为顺序结构。顺序结构的流程图如图8-7所示。图8-7 顺序结构流程图8.4.2 分支结构 1.单行If语句If 条件 Then 语句序列1 Else 语句序列2例1：输入成绩x如果x60，y为合格写法1：if x60 then y=”合格”写法2: if x60 then Y=”合格” End if8.4.2 分支结构例2：输入成绩x，若x60,y为合格，其它为不合格写法1： if x 60 Then y = 合格 Else y = 不合格 End If写法2: if x 60 T

3、hen y = 合格 Else y = 不合格8.4.2 分支结构2.多分支结构if 条件1 then 语句1Elseif 条件2 then 语句2Else 语句3End if例4：成绩x=40,y为极差，40 x=60为差，60 x=80为好其它为很好 if x=40 then Y=”极差” Elseif x=60 then Y=”差”Elseif x=80 then Y=”好” Else Y=”很好” End if8.4.2 分支结构3.情况语句 select caseSelect case x Case is =40 Y=”极差” Case is =60 then Y=”差” Case

4、is =80 then Y=”好” Case Else Y=”很好”End select 8.4.3 循环结构根据指定条件的当前值来决定一行或多行语句是否要重复执行。1.For语句 For 循环变量=初值 To 终值 Step 步长 循环体语句序列 Next 循环变量8.4.3 循环结构例5：求 1到5 自然数之和 S = 0 For i =1 to 5 step 1 S= S + i Next i 变形 :求1到5自然数的乘积8.4.3 循环结构2.while 语句 格式 While 条件 循环语句 Wend 例：用while 语句实现例5 S=0 i=1 while i58.4.3 循环结

5、构例6：求100 以内偶数的和 S = 0 For i=1 to 100 step 1 ? Next i 8.4.3 循环结构练习:1：输入一个数x，判断它是否是闰年（4的倍数但不是100的倍数；400的倍数）练习2：输入一个三位数x,判断它是否是水仙花数（如153=13+53+33）8.4.3 循环结构练习3：输入一个大于2的数，判断它是否是素数 K = sqr(x) For i=2 to k If x mod i = 0 then Exit for End if Next i If i k then y=”素数” else y=”非素数” end if 方法2：Y=“素数”For i=2 to x-1 if x mod i =0 then y=“非素数” exit for end ifNext i8.4.3 循环结