程序流程图-循环结构.pptVIP

第三章 程序设计基础,流程控制（顺序，选择，循环结构） 常用函数（asc,%,int,at） 国考笔试题,本 节 要 点,条件,A,B,A,B,条件,A,T,F,T,F,选择（分支）结构,循环结构,顺序结构,条件,A,B,T,F,选择（分支）结构,if 条件 A else B endif,判断X是否为数字,输出09,T,F,读取字符x,开始,结束,判断读入字符为数字 则输出所有数字,accept to x if x是数字字符 输出所有数字字符 endif,if asc(x)在asc(0)和asc(9)之间 输出所有数字字符 endif,if asc(x)=asc(0) and asc(x)= asc(9) 输出所有数字字符 endif,accept to x if asc(x)=asc(0) and asc(x)= asc(9) for i = asc(0) to asc(9) ?chr(i) endfor endif,“e:yh-vfoyh2010程序程序1.prg“,s=0+1=s+1=1 s=1+2=s+2=3 s=3+3=s+3=6 s=6+4=s+4=10,计算1+2+3+100,s=0 For i=1 to 100 s=s+i Endfor ?” s=”,s,设为i,累加器：s=0,计算1+2+3+100,初始化S,计算S=1+2+3+x,开始,输出S,结束,S=0,开始,输出S,结束,i=100,S=S+i,T,F,判断i=终值,语句序列A i=i+步长,T,F,FOR 变量=初值 TO 终值 STEP 步长 语句序列A ENDFOR | NEXT变量,只要变量的值小于等于终值，重复执行循环体中的语句序列。,给变量i赋初值,循环结束,FOR 循环,一般知道终值 用for循环,默认为1 可以不写,i=100,如果i为奇数， SSi； 否则，SSi,T,F,初始化S,开始,结束,计算1234100,S=0 for i =1 to 100 if i为奇数 SSi else SSi endif endfor,If i%20,注： 判断一个整数M能否被另一个整数N整除，一般采用3种方法： 判断MOD(M,N)是否等于0 INT(M/N)是否等于M/N M%N是否等于0，若等于，则表明M能被N整除。,i=10,SS*i,T,F,初始化S,开始,结束,计算 10!,S=1 for i =1 to 10 SS*i endfor,i=1 Do While i=10 s=s*i i=i+1 enddo,累乘器s 初始值置为1,如果在命令窗口输入并执行命令： “LIST 名称”后在主窗口中显示： 记录号 名称 1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线 假定名称字段为字符型、宽度为6， 那么下面程序段的输出结果是,e:yh-vfoyh2010程序2005-9-笔试.prg,国贸6,GO 2 SCAN NEXT 4 FOR LEFT(名称,2）=“电“ IF RIGHT(名称,2）=“线“ LOOP ENDIF ? 名称 ENDSCAN A）电话线 B）电冰箱 C）电冰箱电线 D）电视机电冰箱,1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线,e:yh-vfoyh2010程序2005-9-笔试.prg,Scan循环 P68,GO 2 SCAN NEXT 4 FOR LEFT(名称, 2) = “电“ IF RIGHT(名称, 2) = “线“ EXIT ENDIF ENDSCAN ? 名称,1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线,输出结果：电话线,e:yh-vfoyh2010程序2006-9-笔试.prg,如下程序显示的结果是【8】。 s=1 i=0 do while i8 s=s+i i=i+2 enddo ?s,s=1i=0 s=s+i=1+0=1 s=1 i=0+2=2 s=S+i=1+2=3 i=i+2=2+2=4 ,输出结果：13,下列程序段的输出结果是 ACCEPT TO A IF A=123456 S=0 ENDIF S=1 ? S RETURN A）0 B）1 C）由A的值决定 D）程序出错,执行下列程序，显示的结果是【10】 one=“WORK“ two=“ a=LEN(one) i=a DO WHILE i=1 two=two+SUBSTR(one,i,1) i=i-1 ENDDO ?two,KROW,A=4,TWO=“K”,e:yh-vfoyh2010程序2007-4-笔试.prg,营销1,下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是 SET TALK OFF INPUT “x=“ TO x s=0 DO WHILE x!=0 s=s+MOD(x,10） _ ENDDO ? s SET TALK ON A)x=int(x/10) B)x=int(x%10) C)x=x-int(x/10) D)x=x-int(x%10),e:yh-vfoyh2010程序2007-9-笔试.prg“,x=int(x/10),SET EXACT ON s=“ni“+space(2) IF s=“ni“ IF s=“ni“ ?“one“ ELSE ?“two“ ENDIF ELSE IF s=“ni“ ?“three“ ELSE ?“four“ ENDIF ENDIF RETURN,A) one B) two C)three D)four,下列程序的运行结果是,e:yh-vfoyh2010程序2008-4-笔试.prg,下列程序段执行以后，内存变量y的值是 CLEAR x=12345 y=0 DO WHLIE x0 y=y+x%10 x=int(x/10) ENDDO ?y A) 54321 B)12345 C) 51 D)15,下列程序段执行后，内存变量s1的值是 s1=”network” s1=stuff(s1,4,4,”BIOS”) ?s1 A) network B) netBIOS C)net D) BIOS,e:yh-vfoyh2010程序2008-4-笔试-28.prg,练习2：任意给定一个年份，判断该年是否为闰年。 闰年的条件是：能被4整除但不能被100整除； 或者能被100和400整除的数就是闰年。 clear input “请输入日期：“ to a if (int(a/4)=a/4 and int(a/100)a/100) or ； (int(a/100)=a/100 and int(a/400)=a/400) ?a,“年是闰年“ else ?a,“年不是闰年“ endif return,提示：判断一个整数M能否被另一个整数N整除，一般采用3种 方法，即：判断MOD(M,N)是否等于0或INT(M/N)是否等 于M/N或M%N是否等于0，若等于，则表明M能被N整除。,例：编写一名为“查找1”的程序，从student表中查 找姓名为“王五”的学生信息。,clear use student locate for 姓名=“王五“ if found() display else ?“查无此人“ endif use Return,e:yh-vfoyh2010程序if-查找.prg,select * from student where 姓名=“李一“,82套 综合应用,1.建立一个文件名和表单名均为oneform的表单，表单中一个页框Pageframe1和两个命令按钮Command1(生成)和Command2(退出)，Pageframe1中有两个页面(Page1和Page2)，标题分别为为“系名“和“计算方法“，Page1中有一个组合框(Combo1),Page2中有一个选项组(Optiongroup1),选项组(Optiongroup1)中有两个选项按钮，标题分别为“平均工资“和“总工资“如图所示。 2. 将“学院表“添加到表单的数据环境中，然后手工设置组合框(Combo1)的RowSourceType属性为6、RowSource属性为“学院表.系名“，使得程序开始运行时，组合框中有可供选择的来源于“学院表“的所有“系名“。,3.为“生成“命令按钮编写程序。程序的功能是：表单运行时，根据选项组和组合框中选定的“系名“和“计算方法“，将相应“系“的“平均工资“或“总工资“存入自由表salary.dbf中，表中包括“系名“、“系号“以及“平均工资“或“总工资“三个字段。 4.为“退出“命令按钮编写程序。程序的功能是：释放表单。 5.运行表单，在选项组中选择“总工资“，在组合框中选择“通信“，单击“生成“命令按钮进行计算。最后，单击“退出“命令按钮结束。,e:yh-vfoyh2010列表框.scx,习题： 1、编写名为“打开表”的程序文件，程序功能为：打 开student表，并在浏览窗口中显示。 2、编写名为“替换”的程序文件，程序功能为:打开 student表，将所有会计系的学生的入学成绩增加 10分。 3、编写名为“转换”的程序文件，程序的功能为：将 输入的大写英文字母转换称小写字母。 4、编写名为“倒序输出”的程序文件，程序的功能为： 将输入的三位数倒序输