19
下列程序段执行后，内存变量s1的值是
s1=”network” s1=stuff(s1,4,4,”BIOS”) ?s1
A) network B) netBIOS C)net D) BIOS
e:\yh-vfo\yh\2010\程序\2008-4-笔试-28.prg
可编辑ppt
20
练习2：任意给定一个年份，判断该年是否为闰年。 闰年的条件是：能被4整除但不能被100整除； 或者能被100和400整除的数就是闰年。
第三章 程序设计基础
本节要点
1. 流程控制（顺序，选择，循环结构） 2. 常用函数（asc,%,int,at） 3. 国考笔试题
可编辑ppt
1
A B 顺序结构
T 条件 F
A
B
条件 F T
A
选择（分支）结构
循环可结编构辑ppt
2
if 条件 A
else B
endif
T 条件 F
A
B
选择（分支）结构
可编辑ppt
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,"年是闰年"
s=s+MOD(x,10） ___x_=_i_n_t_(_x_/_1_0_)_ 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)
可编辑ppt
17
e:\yh-vfo\yh\2010\程序\2007-9-笔试.prg"
……
输出结果：13
可编辑ppt
14
下列程序段的输出结果是 ACCEPT TO A IF A=[123456] S=0 ENDIF S=1 ?S RETURN
A）0
B）1
C）由A的值决定 可编辑Dpp）t 程序出错
15
执行下列程序，显示的结果是【KR1O0W】
one="WORK"
two=""
a=LEN(one)
A=4
i=a
DO WHILE i>=1
two=two+SUBSTR(one,i,1)
i=i-1
ENDDO ?two
①TWO=“K”
营销1
可编e:辑\yphp-tvfo\yh\2010\程序\2007-4-笔试.prg 16
下面程序计算一个整数的各位数字之和。在下划线处 应填写的语句是 SET TALK OFF INPUT "x=" TO x s=0 DO WHILE x!=0
默认为1 可以不写
可编辑ppt
循环结束
8
注：
开始
判断一个整数M能否被另一 个整数N整除，初始一化般S采用3种 方法： 判断MOD(M,N)是否等于0 INT(M/N)是否i等<=1于00M/N F M%N是否等于0，若等于，则 表明M能被N整T除。
如果i为奇数， S＝S＋i；
否则，S＝S－i
计算1－2＋3－4＋…－100
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
跳到endscan 以后的语句
输出结果：电话线
可编辑ep:p\tyh-vfo\yh\2010\程序\2006-9-笔试.p1r3g
如下程序显示的结果是【8】。
s=1
i=0
s=1i=0
do while i<8 s=s+i i=i+2
enddo ?s
s=s+i=1+0=1 s=1 i=0+2=2 s=S+i=1+2=3 i=i+2=2+2=4
e:\yh-vfo\yh\2010\程序\2008-4-笔试.prg
可编辑ppt
18
下列程序段执行以后，内存变量y的值是
CLEAR x=12345 y=0 DO WHLIE x>0 y=y+x%10 x=int(x/10) ENDDO ?y
A) 54321 B)12345 C) 51 D)15
可编辑ppt
可编e辑:\yphpt-vfo\yh\2010\程序\2005-9-笔试.prg12
GO 2
SCAN NEXT 4 FOR LEFT(名称, 2) = "电"
IF RIGHT(名称, 2) = "线" EXIT
ENDIF ENDSCAN
1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线
? 名称
s=s*i i=i+1
结束
enddo
可编辑ppt
10
如果在命令窗口输入并执行命令： “LIST 名称”后在主窗口中显示： 记录号 名称
1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线 假定名称字段为字符型、宽度为6， 那么下面程序段的输出结果是
e:\yh-vfo\yh\可20编1辑0p\程pt 序\2005-9-笔试.prg
S=0
for i =1 to 100
Iiff ii%为2奇<>数0
S＝S＋i else
S＝S－i endif endfor
结束
可编辑ppt
9
计算 10! 开始
初始化S
F
i<=10
T
S＝S*i
累乘器s 初始值置为1
S=1
fio=r1i =1 to 10 DoSW＝hSi*lie i<=10
endfor
S=0
F i<=100
T S=S+i
输出S
输出S
结束
可编辑ppt
结束
7
FOR 循环
FOR 变量=初值 TO 终值 [STEP 步长]
语句序列A
给变量i赋初值
ENDFOR | NEXT变量 只要变量的值小于等于终值，重
F 判断i<=终值
复执行循环体中的语句序列。
T
语句序列A i=i+步长
一般知道终值 用for循环
国贸6
11
GO 2
Scan循环 P68
SCAN NEXT 4 FOR LEFT(名称,2）="电"
IF RIGHT(名称,2）="线" 1 电视机
LOOP
2 计算机 3 电话线
ENDIF ?? 名称
4 电冰箱 5 电线
ENDSCAN
跳到endscan
A）电话线
√C）电冰箱电线
B）电冰箱 D）电视机电冰箱
3
计算1+2+3+…+100
累加器：s=0
s=0+1=s+1=1 s=1+2=s+2=3 s=3+3=s+3=6 s=6+4=s+4=10
s=0 For i=1 to 100
s=s+i Endfor ?” s=”,s
……
可设编辑为ppt i
6
计算1+2+3+…+100
开始
开始
初始化S 计算S=1+2+3+…+x