程序流程图-循环结构

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第三章 程序设计基础,流程控制（顺序，选择，循环结构）,常用函数（,asc,%,int,at,）,国考笔试题,本 节 要 点,条,件,A,B,A,B,条件,A,T,F,T,F,选择（分支）结构,循环结构,顺序结构,条,件,A,B,T,F,选择（分支）结构,if 条件,A,else,B,endif,判断X是否为数字,输出0,9,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(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）电视机电冰箱,跳到endscan,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,? 名称,跳到endscan以后的语句,1 电视机,2 计算机,3 电话线,4 电冰箱,5 电线,输出结果：电话线,e:yh-vfoyh2010程序2006-9-笔试.prg,如下程序显示的结果是【8】。,s=1,i=0,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),SETEXACTON,s=ni+space(2),IFs=ni,IFs=ni,?one,ELSE,?two,ENDIF,ELSE,IFs=ni,?three,ELSE,?four,ENDIF,ENDIF,RETURN,A)one B)two,C)threeD)four,下列程序的运行结果是,e:yh-vfoyh2010程序2008-4-笔试.prg,下列程序段执行以后,，内存变量,y,的值是,CLEAR,x=12345,y=0,DOWHLIEx0,y=y+x%10,x=int(x/10),ENDDO,?y,A)54321B)12345C)51D)15,下列程序段执行后，内存变量s1的值是,s1=”network”,s1=stuff(s1,4,4,”BIOS”),?s1,A)networkB)netBIOSC)netD)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、编写名为“倒序输出”的程序文件，程序的功能为： 将输入的三位数倒序输出。,习题:,1、编写一个名为“判断”的程序，功能为:判断 输入的数是什么类型，如果是“奇数”，则 输出“是奇数！”，否则输出“是偶数！”,2、编写一个名为“选择”的程序，功能为:根据 输入的x的值，选择不同的表达式，计算并 输出相应的y。,Y= x+2 （x=0）,x*2 (x0),3、输入3个整数，输出其中最大的数。,4、判断输入字符类型。输入一个字符后，判断后 通过信息提示框输出字符的类型。,