文档介绍：第三章程序设计基础
流程控制（顺序，选择，循环结构）
常用函数（asc,%,int,at）
国考笔试题
本节要点
.
条件
A
B
A
B
条件
A
T
F
T
F
选择（分支）结构
循 two=two+SUBSTR(one,i,1)
i=i-1
ENDDO
?two
KROW
A=4
①TWO=“K”
e:\yh-vfo\yh\2010\程序\2007-4-
营销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-vfo\yh\2010\程序\2007-9-"
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-vfo\yh\2010\程序\2008-4-
√
.
下列程序段执行以后，内存变量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
.
下列程序段执行后，内存变量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-笔试-
.
练****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-vfo\yh\2010\程序\if-
select * from student where 姓名="李一"
.
82套综合应用
.
，表单中一个页框Pageframe1和两个命令按钮Command1(生成)和Command2(退出)，Pageframe1中有两个页面(Page1和Page2)，标题分别为为"系名"和"计算方法"，Page1中有一个组合框(Combo1),Page2中有一个选项组(Optiongroup1),选项组(Optiongroup1)中有两个选项按钮，标题分别为"平均工资"和"总工资"如图所示。
2. 将"学院表"添加到表单的数据环境中，然后手工设置组合框(Combo1)的RowSourceType属性为6、RowSource属性为"