基本控制结构

布尔表达式练习
？－3＜－2＜－1 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 2< >0 x Mod 2=1 and x Mod 2< >0 表示一个数x∈[2,5] x＞＝2 and x＜＝5 表示一个数x不在[2,5]区间内 x＜2 or x＞5
(y Mod 4=0 AND y Mod 100<>0 ) OR 400=0 AND y Mod 100=0 )
(y Mod
(y Mod 4=0 AND y Mod 100<>0 ) OR y Mod 400=0
地球公转一周的时间为：365天5小时48分56秒
判断闰年的科学依据
每经过4年，剩余的时间为：5小时48分56秒×4＝23小时15分44秒 则每4年都要多加24小时－ 23小时15分44秒＝44分16秒
每经过100年，就会多加44分16秒×25＝18小时26分40秒
比较接近一天，所以每到100年，就将这多加的近似一天的时间减去， 即停止追加一天 而实际上又少加了24小时－ 18小时26分40秒＝5小时33分20秒 每经过400年，就会少加4 × 5小时33分20秒≈24小时 所以每过400年，就应该再补加一天 故：每4年闰年出现一次；每400年，闰年再出现一次 其它的整100年，闰年停止出现一次
每400年闰年再出现一次其它的整100年闰年停止出现一次12选择控制结构选择控制结构又称分支结构它体现了程序运行过程中的自我判断能力程序可以根据当前执行的某个条件进行比较判断并依据判断的结果成立与否来决定下一步做什么不做什么在两条或多条程序路径中选择一条来执行即只执行程序中的一部分语句可见在此结构的程序运行过程中有些语句会执行一次有些语句在此次程序运行过程中没有机会执行

(2) 在循环嵌套中，内外循环的循环变量不能同名。
(3) 采用缩进格式书写代码可以有效地防止嵌套混乱。
第 27 页
4.4.3 循环嵌套结构

在窗体上输出一个由“*”组成的三角形。
For j = 1 To 6 For i = 1 To j Print "* "; Next i Print Next j

1+3+5+7+……+(2n-1) 当和大于100时结束

1-3+5-7……+(2n-1)
1 1 1 1 （ 1 n -1 ） 1 3 5 7 2n 1
第 14 页
4.4.1 Do While…Loop循环结构

代码设计

Dim s%, x% s=0 x=1 Do while s <= 100
4.4.1 Do While…Loop循环结构
例：西农今年招生5000人，若果每年以5%的速度递增，多 少年后，每年招生人数达到或超过10000人。

算法设计

P = 5000,n=0
P<10000
定义变量p、n 初始化p=5000，N=0 计算p
真
假


计数
重复 输出结果
P = P *(1+0.05) n=n+1
s = 0,n=1,x=1
s<=100
真
假
n = n+1 s = s + x *(-1)^n
x = x+2
输出s
第 16 页
4.4.1 Do While…Loop循环结构

程序的三种基本控制结构顺序结构选择结构循环结构一、顺序结构：顺序语句由语句序列组成，程序执行时，按照语句的顺序，从上而下，一条一条地顺序执行如：store 'Visual FoxPro' to nameAge = 4'My name is ' + name + ', I am ' ;+ str(Age) + ' years old'二、选择结构：分支语句根据一定的条件决定执行哪一部分的语句序列。

1、单分支结构格式：if<条件><语句序列>endif例程1：clearuse sbwait ‘是否打印？（y/n）’to aif upper(a)=’Y’wait ‘请接好打印机！按任意键后打印’list to printendif2、双分支选择格式：if<条件><语句序列1>else<语句序列2>endif例程2：clearset talk offaccept ‘请输入密码：’ to mmif mm<>’abc’’你无权使用本系统’quitelse’欢迎使用本系统’endifset talk onif语句的嵌套：在一个if语句中包含另一个语句的程序结构例程3：根据输入的x值，计算下面分段函数的值，并显示结果。

2x-5 (x<1)Y=2x (1<=x<10)2x+5 (x>=10)input ‘请输入x的值：’to xif x<1y=2*x-5elseif x<10y=2*xelsey=2*x+5endifendif?’分段函数的值为’+str(y)3、多分支结构格式：DO CASECASE 〈逻辑表达式1〉〈语句组1〉CASE 〈逻辑表达式2〉〈语句组2〉…CASE 〈逻辑表达式n〉〈语句组n〉[OTHERWISE]〈语句组〉ENDCASE3 / 35例程4：输入某学生成绩，并判断其成绩等级：100-90分为优秀，89-80分为良好，79-70分为中等，69-60分为差，60分以下为不及格。

条件函数
– IIf(表达式, 当条件为True时的值, 当条件 IIf(表达式 当条件为True时的值 表达式, 时的值, False时的值 时的值) 为False时的值) – Choose(整数表达式,选项列表) Choose(整数表达式 选项列表) 整数表达式,
循环结构
循环是在指定的条 件下多次重复执行 一组语句， 一组语句，可通过 循环结构来实现。 循环结构来实现。 For循环语句 For循环语句
否
语句块2_2 语句块
选择结构
Select Case语句 Select Case语句 Case 表达式
Case 表达式列表1 表达式列表1 语句块1 语句块1 Case 表达式列表2 表达式列表2 语句块2 语句块2 … Case 表达式列表n 表达式列表n 语句块n 语句块n Case Else 语句块n+1 语句块n+1 End Select 先计算表达式的值， 先计算表达式的值， 然后与n Case右边的表 然后与n个Case右边的表 达式列表逐一比较。 达式列表逐一比较。如 果和其中某个表达式列 表的值相等或者匹配， 表的值相等或者匹配， 则执行该Case Case后面的语 则执行该Case后面的语 句块； 句块；如果与所有的 Case表达式列表均不匹 Case表达式列表均不匹 则执行Case Else后 配，则执行Case Else后 面的语句块。 面的语句块。
用2～M-1之间的整数去除M，若均不能整除则 之间的整数去除M M为素数。否则为非素数。
退出和结束语句
– Exit语句 Exit语句 – End语句 End语句
枚举法求解方程
百元买百鸡问题。假设小鸡每只5角， 百元买百鸡问题。假设小鸡每只5 公鸡每只2 母鸡每只3 公鸡每只2元，母鸡每只3元。现在要 100元钱买 元钱买100只鸡 只鸡， 求100元钱买100只鸡，编程列出所有 的可能购鸡方案。 的可能购鸡方案。 分析： 分析：