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

第三章 程序设计基础;条件;条件;判断X是否为数字;accept to x if asc(x)=asc(‘0’) and asc(x)= asc(‘9’) for i = asc(‘0’) to asc(‘9’) ?chr(i) endfor endif;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;判断i=终值;i=100;i=10;如果在命令窗口输入并执行命令： “LIST 名称”后在主窗口中显示： 记录号 名称 1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线 假定名称字段为字符型、宽度为6， 那么下面程序段的输出结果是;GO 2 SCAN NEXT 4 FOR LEFT(名称,2）=电 IF RIGHT(名称,2）=线 LOOP ENDIF ?? 名称 ENDSCAN A）电话线 B）电冰箱 C）电冰箱电线 D）电视机电冰箱; GO 2 SCAN NEXT 4 FOR LEFT(名称, 2) = 电 IF RIGHT(名称, 2) = 线 EXIT ENDIF ENDSCAN ? 名称; 如下程序显示的结果是【8】。 s=1 i=0 do while i8 s=s+i i=i+2 enddo ?s;下列程序段的输出结果是 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;下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是 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);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;下列程序段执行以后，内存变量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;练习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;例：编写一名为“查找1”的程序，从student表中查 找姓名为“王五”的学生信息。;82套 综合应用; 1.建立一个文件名和表单名均为oneform的表单，表单中一个页框Pageframe1和两个命令按钮Command1(生成)和Command2(退出)，Pageframe1中有两个页面(Page1和Page2)，标题分别为为系名和计算方法，Page1中有一个组合框(Combo1),Page2中有一个选项组(Optiongroup1),选项