ja8

2.
aa：“Access 2003”中空格个数，2 bb：大写字母个数，1 cc：小写字母个数，5 dd：非字母、非空格字符个数，4 length=12 i：从1循环到12，结束时i=13 y？ x=“A” s=“ccess 2003” y=“A” 取x(=“A”)的ASCII码 =65 x的值是小写字母 x的值是大写字母
5.选作2：求解“水仙花”数。“水仙花”数是一个三位整数，组 成该数的每一位数字之立方和等于此数自身。如 153 = 13 + 53 + 33(尽量给出多种答案)。 Dim a, b, c, i As Integer For i = 100 To 999 a = Val(Left(i, 1)) 百位存入a 使用MsgBox输出： b = Val(Mid(i, 2, 1)) 十位存入b Dim msg As String Dim i, a, b, c As Integer c = Val(Right(i, 1)) 个位存入c msg = "" For i = 100 To 999 If i = a ^ 3 + b ^ 3 + c ^ 3 Then a = Int(i / 100) b = Int((i - a * 100) / 10) Debug.Print i c = i - a * 100 - b * 10 End If If i = a ^ 3 + b ^ 3 + c ^ 3 Then msg = msg & Str(i) & vbCrLf Next
2.计算s = 1 – 2 + 3 – 4 + 5 – 6 + 7 - „„ n Dim s, n, i As Integer n = Val(InputBox(输入数据)) s=0 For i = 1 To n 本题是特例不一定用循环结构： If i Mod 2 <> 0 Then Dim s, n As Integer s=s+i n = InputBox("") If n Mod 2 = 0 Then Else s = -(n / 2) s=s-i Else End If s = (n + 1) / 2 Next End If Debug.Print s Debug.Print s 问题： - 循环体中可以引用循环变量的值，不要变更其数值
3. 计算n！、n不大于10。 Dim i, n As Integer, s As Long, x As String s=1 n = Val(InputBox("...")) x = Str(n) & "!= " & Str(n) If n >= 1 And n <= 10 Then For i = 2 To n s=s*i x = x & " *" & Str(n - i + 1) Next MsgBox (x & " =" & Str(s)) Else MsgBox "数据无效！" End If 问题： - 输出格式的设计 - s的数据类型如何定义
复习 – 程序部分
循环结构结构 For i＝x to y [Step <循环体> [Exit For] Next i i=i+z 流程： z] i未超过y
i超过y For i＝x to y [Step z] <循环体> [Exit For] Next i
程序设计作业解答：
一、读程序分析结果：252 - 2 Dim a, b, i As Double a = 0: b = 0 i取值：1,2,3,4,5,6,7,8进入循环i=9时结束 For i = 1 To 8 If i Mod 2 <> 0 Then i：1,3,5,7时执行：a=a-i a = a - i 0-1 、-1-3 、-4-5 、-9-7=-16 i：2,4,6,8时执行：b=b+i Else b = b + i 0+2 、2+4 、6+6 、12+8=20 End If Next Debug.Print "i="; i, "a="; a, "b="; b
s=0 n=1 n=1(T) n=2(T) n=3(T) n=4(F) Do While n < 4 s = s + n 1 ,3 ,6 n = n + 1 2 ,3 ,4 Loop Debug.Print s 结果：s=1+2+3
252 - 5
Dim x, y As Integer x = 1 y = 0 Do While x < 10 1<10 4<10 5<10 8<10 9<10 12<10 .T. If x Mod 2 = 0 Then .F. x = x + 1 5 9 Else x = x + 3 4 8 12 End If y = y + x 4 9 17 26 38 Loop Debug.Print x, y 12 38
程序设计作业：
一、读程序分析结果 1. 2.
3.
二、按要求对程序填空 - 2
三、编写程序： 1. 屏幕输出菲波拉契数列。该数列的组成为:已知第1、2个数为0 和1,从第三个数开始，每个数是其前两个数的和，即该数列形式如 下： 0、1、1、2、3、5、8、13、21、„„ 生成100000以内的数。 2. 求解守数。守数的定义：一个数其平方数的尾数是其自身，该 数称为守数。如：5、6、25、„„。求出前10个守数。 (选作)
x的值不是字母、不是空格
x的值是空格
2.
aa：“Access 2003”中空格个数，2 bb：大写字母个数，1 cc：小写字母个数，5 dd：非字母、非空格字符个数，4 i=1 ,2 …,5 ,6 y？ x=“A” , “c”…, “s” , “ ”一个空格 s=“ccess 2003” s=“cess s=“ 2003” 2003” 2003” y=“A” “Ac” …“Access” ∴y=“Access2003”
数据处理部分复习
第七章：SQL查询 174页例7-12
SELECT [*| DISTINCT] [(字段名1[，字段名2，· · · ]) ] [INTO 生成表名] FROM 表名1[，表名2，· · · ] [WHERE 连接条件 [AND 连接条件… ][AND 查询条件[AND|OR 查询条件…]]] [GROUP BY 分组字段名] [HAVING 分组条件表达式] [ORDER BY 排序字段名 [DESC] [, 排序字段名 [DESC]…]];
例8-17 自学 练习： Dim x, y, z As Integer x = 154: y = 44 z=0 Do Until x = y x=154, y=44 x=110, y=44 x=66, y=44 x=22, y=44 If x > y Then T T T F x=22, y=22 x=x-y x=110 x=66 x=22 Else y=y-x y=22 End If z=z+1 1 2 3 4 Loop Debug.Print x, z
二、编写程序： 1.求100～200之间既能被3整除又能被5整除的正整数个数，并显 示这些数。 Dim i, n As Integer n=0 For i = 100 To 200 If i Mod 3 = 0 And i Mod 5 = 0 Then n=n+1 Debug.Print i; End If Next Debug.Print Debug.Print "n="; n 问题： - 既要输出被3、5整除的数，还要统计有多少这样的数
Do While循环语句 – 格式1 Do While <循环条件> <循环体> [Exit Do] Loop Do While循环语句 – 格式2 Do <循环体> [Exit Do] .T. Loop While <循环条件> .F.
循环体
T
循环条件
F
8.5.3 Do Until - Loop循环 – 格式1 Do Until <循环条件> <循环体> [Exit Do] Loop 功能：与Do While循环语句相反。 Do While Do Until
F பைடு நூலகம்o While <循环条件> <循环体> [Exit Do] Loop
下面For程序对应
的 Do While 循 环
结构即例8-15： s=0 For n = 1 To 3 s=s+n Next n Debug.Print s 结果：s=1+2+3 •存在的问题：死循环 •中断死循环：<Ctrl>+<Break> •若事先已知循环次数多使用For结构 例8-16：自学
Until - Loop循环 – 格式1 Do Until <循环条件> <循环体> [Exit Do] Loop Until - Loop循环 – 格式2 Do <循环体> [Exit Do] Loop Until <循环条件>
循环体 F
循环条件
T
8.5.4 While语句 While <循环条件> <循环体> Wend 功能： While 循环的执行流程与Do While相同。两种循环的不同 之处是While循环没有中断循环功能，即该循环没有Exit语句。 例8-18 自学 改进：输出运算式子 Dim i As Integer, s As Double i=2 s=1 Debug.Print "s=1"; While i <= 10 s = s + (-1) ^ (i + 1) / i Debug.Print IIf(i \ 2 = i / 2, " - ", " + "); "1/"; LTrim(Str(i)); i=i+1 Wend Debug.Print "="; s