else ?a,"年不是闰年"
endif return
提示：判断一个整数M能否被另一个整数N整除，一般采用3 种
方法，即：判断MOD(M,N)是否等于0或INT(M/N)是否 等
例：编写一名为“查找1”的程序，从student表中
查
找c姓le名ar为“王五”的学生信息。 use student locate for 姓名="王五" if found() display else ?"查无此人" endif use Return
输出S
结束
FOR 循环
FOR 变量=初值 TO 终值 [STEP 步长]
语句序列A
给变量i赋初值
ENDFOR | NEXT变量 只要变量的值小于等于终值，重
F 判断i<=终值
复执行循环体中的语句序列。
T
语句序列A i=i+步长
一般知道终值 用for循环
默认为1 可以不写
循环结束
注：
开始
判断一个整数M能否被另一 个整数N整除，初始一化般S采用3种 方法： 判断MOD(M,N)是否等于0 INT(M/N)是否i等<=1于00M/N F M%N是否等于0，若等于，则 表明M能被N整T除。
2、编写一个名为“选择”的程序，功能为:根据 输入的x的值，选择不同的表达式，计算并 输出相应的y。 Y= x+2 （x>=0） x*2 (x<0)
3、输入3个整数，输出其中最大的数。 4、判断输入字符类型。输入一个字符后，判断后
通过信息提示框输出字符的类型。
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\程序\2005-9-笔试.prg
GO 2
SCAN NEXT 4 FOR LEFT(名称, 2) = "电"
IF RIGHT(名称, 2) = "线" EXIT
ENDIF ENDSCAN
1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线
? 名称
跳到endscan 以后的语句
2、编写名为“替换”的程序文件，程序功能为:打开 student表，将所有会计系的学生的入学成绩增加 10分。
3、编写名为“转换”的程序文件，程序的功能为：将 输入的大写英文字母转换称小写字母。
4、编写名为“倒序输出”的程序文件，程序的功能为： 将输入的三位数倒序输出。
习题:
1、编写一个名为“判断”的程序，功能为:判断 输入的数是什么类型，如果是“奇数”，则 输出“是奇数！”，否则输出“是偶数！”
输出结果：13
下列程序段的输出结果是 ACCEPT TO A IF A=[123456] S=0 ENDIF S=1 ?S RETURN
A）0
B）1
C）由A的值决定 D）程序出错
执行下列程序，显示的结果是【KR1O0W】
one="WORK"
two=""
a=LEN(one)
A=4
i=a
DO WHILE i>=1
如果i为奇数， S＝S＋i；
否则，S＝S－i
计算1－2＋3－4＋…－100
S=0
for i =1 to 100
Iiff ii%为2奇<>数0
S＝S＋i else
S＝S－i endif endfor
结束
计算 10! 开始 初始化S
F
i<=10
T
S＝S*i
结束
累乘器s 初始值置为1
S=1
fio=r1i =1 to 10 DoSW＝hSi*lie i<=10
4.为"退出"命令按钮编写程序。程序的功能是：释放 表单。
5.运行表单，在选项组中选择"总工资"，在组合框中 选择"通信"，单击"生成"命令按钮进行计算。最后， 单击"退出"命令按钮结束。
e:\yh-vfo\yh\2010\列表框.scx
习题：
1、编写名为“打开表”的程序文件，程序功能为：打 开student表，并在浏览窗口中显示。
endfor
s=s*i i=i+1 enddo
如果在命令窗口输入并执行命令： “LIST 名称”后在主窗口中显示： 记录号 名称
1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线 假定名称字段为字符型、宽度为6， 那么下面程序段的输出结果是
e:\yh-vfo\yh\2010\程序\2005-9-笔试.prg
two=two+SUBSTR(one,i,1)
i=i-1
ENDDO ?two
①TWO=“K”
营销1
e:\yh-vfo\yh\2010\程序\2007-4-笔试.prg
下面程序计算一个整数的各位数字之和。在下划线处 应填写的语句是 SET TALK OFF INPUT "x=" TO x s=0 DO WHILE x!=0
e:\yh-vfo\yh\2010\程序\2008-4-笔试.prg
下列程序段执行以后，内存变量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
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
……
设为i
计算1+2+3+…+100
开始
开始
初始化S 计算S=1+2+3+…+x
输出S 结束
S=0
F i<=100
T S=S+i
第三章 程序设计基础
本节要点
1. 流程控制（顺序，选择，循环结构） 2. 常用函数（asc,%,int,at） 3. 国考笔试题
A B 顺序结构
T 条件 F
A
B
条件 F T
A
选择（分支）结构
循环结构
if 条件 A
else B
endif
T 条件 F
A
B
选择（分支）结构
计算1+2+3+…+100
累加器：s=0
select * from student where 姓名="李一"
e:\yh-vfo\yh\2010\程序\if-查找.prg
82套 综合应用
1.建立一个文件名和表单名均为oneform的表单，表 单中一个页框Pageframe1和两个命令按钮 Command1(生成)和Command2(退出)，Pageframe1中 有两个页面(Page1和Page2)，标题分别为为"系名" 和"计算方法"，Page1中有一个组合框 (Combo1),Page2中有一个选项组(Optiongroup1), 选项组(Optiongroup1)中有两个选项按钮，标题分 别为"平均工资"和"总工资"如图所示。
国贸6
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）电视机电冰箱
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)
e:\yh-vfo\yh\2010\程序\2007-9-笔试.prg"
2. 将"学院表"添加到表单的数据环境中，然后手工设 置组合框(Combo1)的RowSourceType属性为6、 RowSource属性为"学院表.系名"，使得程序开始运 行时，组合框中有可供选择的来源于"学院表"的所 有"系名"。
3.为"生成"命令按钮编写程序。程序的功能是：表单 运行时，根据选项组和组合框中选定的"系名"和" 计算方法"，将相应"系"的"平均工资"或"总工资" 存入自由表salary.dbf中，表中包括"系名"、"系 号"以及"平均工资"或"总工资"三yh-vfo\yh\2010\程序\2006-9-笔试.prg