VFP程序题

第一篇：VFP程序题

VFP程序题 第一套题

一、运行结果题

1、以下程序运行结果是

SET TALK OFF

CLEAR

A = 5

B = 12

C = 18 IF MAX(A , B)< C

? MAX(A, B)

ELSE IF MIN(A , B)< C

? C

ELSE

? MIN(A , B)

ENDIF

ENDIF SET TALK ON

RETURN

2、以下程序运行结果是

SET TALK OFF CLEAR USE STCJ

DO WHILE ,NOT, EOF()

REPLACE 总分 WITH 高数 + 计算机 + 英语 SKIP

ENDDO GO BOTTOM

? 学号，总分

USE

RETURN

3、以下程序运行结果是

SET TALK OFF

SET HEADINGS OFF SELECT 2 USE STCJ

INDEX ON 编号

TO GZ21

REPLACE ALL 总分

WITH 高数 + 计算机 + 英语 SELECT 1 USE STDA

SET RELATION TO 编号

INTO B DISPLAY FIELDS 姓名，B.总分

FOR 四级通过

OFF CLOSE ALL RETURN

4、以下程序运行结果是

SET TALK OFF SET SAFETY OFF USE STDA INDEX ON 民族

TO XBSY TOTAL ON 民族

TO GZHZ USE GZHZ COUNT TO N ? N

SET SAFETY ON SET

TALK

ON RETURN

5、以下程序运行结果是

SET TALK OFF SET DELETED ON USE STDA DELETE FOR 性别 = “ 男 ” COUNT TO A SET DELETED OFF COUNT TO B DELETE ALL PACK COUNT TO C ? A , B , C SET TALK ON RETURN

6、以下程序运行结果是

SET TALK OFF USE STDA

INDEX ON 奖学金

TO GZSY SKIP 2

? 姓名，奖学金 USE

SET TALK ON RETURN

7、以下程序运行结果是

SET TALK OFF

SET PROCEDURN TO SP S = 0

DO SP1 WITH 5 , S ? S

SET TPROCEDURE

TO RETURN * SP PRG PROCEDURE

PARAMETERS X , Y N = 1 Y = 1

DO WHILE N < X

Y = Y + N

N = N + 1

ENDDO

RETURN

8、以下程序运行结果是

SET TALK OFF DIMENSION X(2 ,2)X = 5 FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J

X(I , J)ENDIF ?? X(I , J)ENDFOR ENDFOR SET TALK ON RETURN

二、完善程序

1、下列程序计算机 S =1！+ 2！+3！+4！+5！中，填空完成程序。

S = 0 FOR N = 1

TO 5

FOR I = 1 TO N

P = P * I

ENDFOR

ENDFOR

? “SUN =” , S

2、用下列程序找出所有的水仙花数，所谓水仙花数，是指这样一

个三位数，其各位数字的立方和等于该数本身，如 153 = 1^3 +5^3 +3^3，对以下程序填空完成该功能。FOR N = 100 TO 999

A = INT(N / 100)

B =

C = N – INT(N / 10)* 10 IF N = A^3 +B^3 +C^3

? N

ENDIF

ENDFOR

RETURN

3、将新表 DB2.DBF 文件中学号重复的记录删掉（只保留一个）SET TALK OFF SET SAFETY

OFF

USE STDA

COPY TO DB2 USE DB2

INDEX ON 学号

TO XH DO WHILE.NOT.EOF()XH = 学号 SKIP

DELETE ENDIF ENDDO

CLEAR ALL

4、显示STDA.DBF 文件中男同学的记录

SET

TALK

OFF

SET

HEADING

OFF

USE

STDA

DO

WHILE

.NOT.EOF()

IF

ENDIF

DISPLAY

WAIT

ENDDO

USE

SET

TALK ON

RETURN

5、将STDA.DBF 表中未通过英语四级考试学生的将赏金取消，通过者奖学金加50元，并显示姓名和奖学金额。SET TALK OFF

CLEAR USE STDA DO WHILE.NOT.EOF()IF.NOT.四级通过

REPLACE 奖学

WITH 0

ELSE

? 姓名，奖学金

ENDIF

SKIP

ENDDO

USE

SET TALK ON

RETURN

6、按学号查询成绩

SET TALK OFF CLEAR SELECT 1 USE STDA

INDEX ON 学号 TO IXH SELECT 2 USE STCJ

INDEX ON 学号 TO ICJ

ACCEPT “请输入查询学号：” TO XH SEEK

XH IF

FOUND()

DISPLAY

学号，A->姓名，总分

ELSE

? “ 查无此人！”

ENDIF

USE RETURN

7、请阅读下列判断一个自然数是否为质数的程序，并将程序填写完整。

SET

TALK

OFF

INPUT

“ 请输入一个大于1 的自然数：”

TO N

K = 0

J = 2

DO

WHILE

J < N IF MOD(N , J)

J = J +1

LOOP

ELSE

K = 1

EXIT

ENDIF

ENDDO

IF

K = 0

?

+ “ 素数”

ENDIF

? “ 再见！” SET TALK ON

RETURN

8、修改数据表文件 STDA.DBF 中指定同学的四级通过情况。SET TALK OFF USE STDA

INDEX TO ISY

DO

WHILE.T.CLEAR

ACCEPT “ 输入待学生的姓名” TO XM SEEK XM

IF

FOUND()

@ 10 , 10 SAY “ 修改” + XM + “ 的四级通过情况：” GET 四级通过

WAIT

“ 继续修改？（Y / N）”

TO N IF

ENDIF ENDDO USE RETURN

9、将数据表文件STDA.DBF 中的第三条记录与第四条记录的内容互换，并显示第三条记录。

SET

TALK

OFF

CLEAR

USE

STDA

GO

SCATTER

TO

A

GO

SCATTER

TO

B

GO

GATHER

FROM

B

DISPLAY

GO

USE

SET

TALK

ON

RETURN

10、如下程序根据键入的学号使用SQL SELECT 语句显示学生的学号、姓名和平均成绩。请在下划线处填写适当的内容，使程序能正确的运行。

DO

WHILE.T.CLEAR

ACCEPT

“请输入学号：” TO KEYNO

SELECT

STDA.学号，姓名，（高数 +计算机 +英语）/3 AS平均成绩;FROM STDA.STCJ WHERE

WAIT

“如果退出，请按【Y】键！”

TO KEY

IF

UPPER(KEY)= “ Y”

ENDIF ENDDO USE RETURN

三、程序改错题

1、在STDA.DBF 中，查询某人英语四级通过情况，若通过了，则授予学位，否则不授予学位。(1)SET

TALK OFF(2)USE

STDA

(3)ACCEPT “请输入姓名：”

TO XM(4)SEEK

FOR 姓名 = XM(5)IF

EOF()

(6)? “查无此人！”(7)RETURN(8)ENDIF

(9)IF

英语四级通过

(10)?姓名 + “英语四级通过，授予学位”(11)ELSE

(12)?姓名 + “英语四级没通过，不授予学位”(13)ENDIF(14)USE

(15)SET

TALK

ON(16)RETURN 错误的行是 改为：

2、显示 STCJ.DBF 中总分不低于190分的所有学生的姓名和总分字段的值。

(1)

SET

TALK OFF

(2)

SET

HEAD

OFF

(3)

USE

STCJ

(4)

DO

WHILE

RECNO()< = RECCOUNT()

(5)

REPL

总分

WITH

高数 +计算机 +英语

(6)

IF

总分> = 190

(7)

DISP

学号，总分 OFF

(8)

ENDIF

(9)

LOOP

(10)

ENDDO

(11)

RETURN 错误的行是： 改为：

3、在STDA.DBF 中，快速查询性别为“男”，“09/12/92”出生的人

(1)

SET

TALK OFF

(2)

USE

STDA

(3)

INDEX

ON 性别 +入学时间

TO LKL

(4)

SEEK “男” + “09/12/92”

(5)

IF

.NOT.EOF()

(6)

DISPLAY

(7)

ELSE

(8)

? “查无此人！”

(9)

ENDIF

(10)

USE

(11)

SET

TALK ON

(12)

RETURN 错误的行是： 改为：

4、求出 STCJ 表中总成绩的最大值和最小值。(1)

SET

TALK

OFF

(2)

USE

STCJ

(3)

DO

WHILE

.NOT.EOF()

(4)

REPLACE

总分

WITH 高数 +计算机+英语

(5)

SKIP

(6)

ENDDO

(7)

GO

TOP

(8)

STORE

总分

TO MAX , MIN

(9)

DO

WHILE

.NOT.EOF()

(10)

IF MAX >总分

(11)

MAX = 总分

(12)

ENDIF

(13)

IF MIN <总分

(14)

MIN = 总分

(15)

ENDIF

(16)

SKIP

(17)

ENDDO

(18)

? “最高分：” ,MAX ,”最低分：” , MIN

(19)SET

TALK

ON

(20)RETURN 错误的行是： 改为：

第九套题

一、完善程序题

1、将“职工”表中的数据按工资降序排列后生成新表，程序如下：

CLOSE

ALL

SET

TALK

OFF CLEAR USE 职工

TO 职工1 ON

工资/D USE 职工1 DISPLAY ALL USE

RETURN

2、在“职工”表中查找且显示“孙大鹏”的信息，程序如下：

SET TALK OFF CLEAR USE 职工 LOCATE

IF

FOUND()DISPLAY ENDIF USE

3、显示“职工”表中女职工的工资和，程序如下：

SET

TALK

OFF CLEAR SELECT

FROM 职工 RETURN

1、设计一个查询表单BD.SCX,其界面如图所示，其中文本框控件

名为TEXT1，表格控件名为GRID1。当在其中输入职工姓名并单击“查询”按钮时，将下边的表格内显示该职工的信息。“查询”按钮的Click 事件代码应如下：

THISFORM.GRID1.RECORDSOURCETYPE=4

THISFORM.GRID1.FRCORDSOURCE=”SELECT

* FORM 职工

WHERE

姓名

= = ”

5、将“职工”表中第6条记录的“出生日期”改为“12/12/1972”,程序如下：

SET TALK OFF CLEAR USE 职工 SKIP 5

出生日期

WITH {^1972/12/12} DISPLAY USE

RETURN

第二篇：vfp程序题总结

五．程序题 在Text1中输入一个3位自然数，分解求和的结果存入Text2中

x= thisform.text1.value a=int【1 】

b=int 【 2】

c=【 3】

s=【 4】

thisform.text2.value=【5 】

x/100(x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中输入的值与文本框Text2中输入的值交换

a= thisform.text1.value b= thisform.text2.value d=【1 】

【2 】

【3 】=d thisform.text1.value=【4 】

thisform.text2.value=【 5】

a a=b b a b 3 已知任意一个三角形的三条边为a、b、c，求其面积。

a=thisform.text1.value b=【 1】

c=【 2】

p=(a+b+c)/【3 】

s=【 4】(p*(p-a)*(p-b)*(p-c))thisform.text4.value=【5 】

thisform.text2.value thisform.text3.value 2 sqrt s 4 判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）Command1_click事件代码如下：

x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x<=59 h5=h5+1 case 【1 】 and x<=69 h6=h6+1 case x>=70 and x<=79 【 2】

case 【3 】 and x<=89 h8=h8+1 case x>=90 and 【 4】

h9=h9+1 【 5】

thisform.label1.caption=str(h5)+ str(h6)+str(h7)+str(h8)+str(h9)x>=60 h7=h7+1 x>=80 x<=100 endcase 5 假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”。试完成下面程序。

【 1】 zgqk xm=thisform.text1.value locate for【2 】

if 【 3】eof()thisform.【4 】

else 【5 】(“查无此人”)Endif use xm=姓名 not refresh messagebox 6 求s=1/1^2+1/2^2+„+1/n^2 【 1】

n=thisform.text1.【2 】

FOR i=1 TO 【3 】

s=s+【4 】

next THISFORM.Label3.Caption=【5 】

s=0 value n 1/i^2 str(s)7 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空

【 1】

FOR N=1 TO 【 2】 step 【 3】

s=s+n end【4 】

【5 】

s=0 99 2 for thisform.text1.value=str(s)8 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空

【 1】

FOR N=1 TO 【 2】

if 【 3】(n/2)<> n/2 s=s+n endif end【 4】

【5 】 s=0 99 int for thisform.text1.value=str(s)9 计算2+4+6+„„100，并将结果存入文本框Text1中，请填空

【1 】

FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】

s=s+n 【4 】

endfor 【 5】

s=0 100 n/2 endif thisform.text1.value=str(s)10 求所有的3位正整数除以99的商和余数，并输出。

for i= 【1 】to 【2 】

a= 【 3】

b=【4 】

?【5 】

Endfor 100 999 int(i/99)i%99 a, b 11 求1！+2！+3！+4！+5！。

S=0 For i=1 to【1 】

t=【2 】

for k=1 to 【 3】

t=t*【4 】

endfor s=s+【 5】

endfor 5 1 I k t 12 计算1+2+3+„„100，并将结果存入文本框Text1中，请填空

【 1】

FOR N=1 TO【 2】step 【 3】

s=s+n 【 4】for 【5 】

s=0 100 1 end thisform.text1.value=str(s)13 统计1至100之间能被7整除的数的个数并求其和，结果用信息框（对话框）输出。Command1_click事件代码如下：

k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】

s=s+【3 】

endif endfor a=messagebox(【 4】+【 5】)mod 1 I str(k)str(s)14 在文本框Text1中输入一个字符串，统计其中数字字符的个数，结果存入文本框Text2中。Command1_click事件代码如下： k=0 x=allt(thisform.text1.value)n=【1 】

for i=1 to 【 2】

if subs(x,i,1)>”0” and【3 】

【 4】

endif endfor thisform.text2.value=【 5】

len(x)n subs(x,i,1)>”9” k=k+1 str(k)15.s=求1！+2！+3！+...+20!【1 】

for n=1 to 20 t=1 for m=1 to 【 2】

t=t*【3 】

endfor 【 4】

endfor THISFORM.Text1.Value=【 5】

s=0 n m s=s+t s 16.找出2010至2100之间所有闰年的年份

FOR i=【 1】 TO 【2 】

if i%4=0 AND i%100!=0 OR i%【3 】

? 【4 】

endif 【5 】

2010 2100 400=0 I ENDFOR 17.设计一个求t=n!的自定义函数

【 1】f(x)t=【 2】

FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】

function[###]func 1 x j t 18.求 Fibonacci 数列(1,1,2,3,5„)的前n(n>3)项,并输出

input “n=” to n 【 1】 a(n)a(1)=1 a(2)=1 ? a(1),a(2)for i=3 to 【 2】

a(i)=【 3】+【 4】

?? a(i-1),a(i-2)end【 5】

dime n a(i-1)a(i-2)for 19.输出zgqk.dbf的基本工资大于600的记录

【 1】zgqk do while not 【 2】

if 【 3】

【 4】

endif 【5 】

enddo use eof()基本工资>600 disp[###]display skip 1.在Text1中输入一个3位自然数，分解求和的结果存入Text2中 2.文本框Text1中输入的值与文本框Text2中输入的值交换 3.已知任意一个三角形的三条边为a、b、c，求其面积。

4.判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）287 5.求s=1/1^2+1/2^2+„+1/n^2 6.计算1+3+5+„„99，并将结果存入文本框Text1中，7.计算1+3+5+„„99，并将结果存入文本框Text1中 8.计算2+4+6+„„100，并将结果存入文本框Text1中，9.求所有的3位正整数除以99的商和余数，并输出。

10.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在表单中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写表单的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。11.编写程序计算：S=1X2＋2X3＋„＋NX(N+1)。0

12.编写程序计算多项式：1^1+2^2+3^3+„+10^10 0

13.编写程序在表单上显示出：1～15之间的偶数 0

14.编写程序在表单上显示出：5/6+4/5+3/4+2/3+1/2 15.假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”

第三篇：VFP读程序选择题

读下列程序： CLEAR STORE 1 TO I, J DO WHILE J<5 @ I , J SAY “*” J=J+1 ENDDO CANCEL（1）屏幕显示的起始坐标为___D___。A)1, 5 B)i, j C)0, 0 2）程序执行后，i,j的值分别为__A____A)1, 5 B)i , j C)0, 0 设表文件XS.DBF有10条记录，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1 ENDDO USE RETURN（1）程序的功能是（D）

（A）显示所有记录（B）分别显示前3个记录（C）显示第3个记录（2）退出循环后，N的值是（A）（A）0（B）1（C）3 第9题、阅读下面程序 INPUT“输入年龄” TO NL DO CASE CASA NL<7 ？“童年” CASE NL<18 ？“少年” CASE NL>18 ？“少年” CASE NL>=60 ？“老年” CASE NL>=35 ？“中年” OTHER ？“青年” ENDCASE 由于设计不当，本程序运行结果不对

(1)运行时输入 11，输出的结果是：B A)童年 B)少年 C)青年 D)(2)运行时输入 36，输出的结果是：B A)中年 B)少年 C)青年 D)（D）分别显示后三个（D）4 老年 老年

第10题、DIME A(6)S=0 FOR K=1 TO 6 INPUT“请输入数据：” TO A(K)S=S+A(K)ENDFOR AV=S/6 R=0 FOR K=1 TO 6 IF A(K)>AV ??A(K)R=R+1 ENDIF ENDFOR ?R(1)若输入的数据分别是：1 2 3 4 5 6，则显示的是(D)A)1 2 3 B)2 3 4 C)3 4 5 D)4(2)？R的值是多少(B)A)2 B)3 C)4 D)5 第11题、读下列程序：

*MAIPROGRAM CLEA CLEAR ALL X1=“工资-100” Y1=200 Z1=100 DO SUB1 ? 'A处:',X1,Y1,Z1 X1=1 Y1=2 Z1=3 DO SUB2 WITH X1,Z1+10,10 ? 'C处:',X1,Y1,Z1 CANCEL PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B处:',X1,Y1,Z1 Z1=1 RETURN

PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B处:',X1,Y1,Z1 Z1=1 RETURN

PROCEDURE SUB2 PARA X1,Z1,Y1 X1=X1+10 Y1=Y1+10 X1=X1+10 RETURN（1）程序显示A处的X1，Y1，Z1值分别为___B___。

A)300 200 100 B)300 2 100 C)300 200 10 D)300 2 10（2）程序显示B处的的X1，Y1，Z1值分别为___D___。

A)300 200 10 B)300 200 100 C)300 2 100 D)300 2 10（3）程序显示C处的的X1，Y1，Z1值分别为___D___。

A)21 20 30 B)21 20 3 C)21 2 30 D)21 2 3

二、读程序选择_1(本大题共4道小题，每小题分值6分，共24分。)

第7题、有学生信息表XS.DBF文件，其结构和记录如下：

记录号 学号 姓名 年龄 性别 入学日期 出生地 1 Y001 李明 21 男 09/01/99 重庆 2 Y002 林雨 20 女 09/01/99 成都 现有一程序段：

DIMENSION X(3)USE XS SCATTER TO X X(1)=“A003” X(2)=“曾真” X(3)=19 APPEND BLANK GATHER FROM X LIST RETURN（1）运行结果X数组的数据元素的个数是___B___。A)0个 B)3个 C)6个（2）LIST显示记录中，最后一条记录的姓名字段值是__D____。

A)字段值为空 B)林雨 C)李明 D)曾真

第8题、读下列程序： Clear Store 1 To I, A, B Do While I<=3

个 D)1 Do Prog1 ??“P(”+Str(I, 1)+“)=”+Str(A, 2)+“,” I=I+1 Enddo ??“B=”+Str(B, 2)Return Procedure Prog1 A=A*2 B=B+A Return(1)程序的运行结果为（D）。

（A）P（1）=2，P（2）=3，P（3）=4，b=15（B）P（1）=2，P（2）=4，P（3）=6，b=8（C）P（1）=2，P（2）=4，P（3）=6，b=18（D）P（1）=2，P（2）=4，P（3）=8，b=15（2）变量i的最终结果是(C)(A)3(B)5(C)4(D)6

第9题、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李强' LOOP ENDIF ?姓名，实发工资 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．数据库表

Ｃ．数据库 Ｄ．可能是自由表，也可能是（2）若数据库有50条记录，则程序的功能是：（D）A前10条记录中搜索“李强”的记录 B列出前10条记录

C.每10条记录一屏显示记录，但不显示“李强”的记录 D.列出前１０条记录，但是不显示“李强”的 第10题、阅读下面程序： CLEA clear store 1 to i store 2 to j,k do a1 ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)proc a1 i=3*i+2 private i i=2*j+k ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)retu RETURN(1)主程序中“do a1”后的显示语句显示结果为：（C）

（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=2 k=2（D）i=6 j=8 k(2)过程a1中的显示语句将显示：（D）

（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=8 k=2（D）i=6 j=2 k=第7题、CLEAR CLOSE ALL USE 学生 COUNT TO X GO TOP FOR I=1 TO X IF 性别='男' DISP ENDIF SKIP ENDFOR CLOSE ALL(1)该程序的功能是：(C)A)显示一条男同学的记录 B)显示一条女同学的记录 C)显示所有男同学的记录 D)显示所有女同学的记录

(2)程序退出循环的条件是(C)A)记录指针指向文件尾 B)记录指针指向文件头 C)循环次数大于表中记录条数 D)循环次数小于表中记录条数 第8题、阅读下面程序： 有图书数据表TS和订书单表DSD如下： TS：（书号：C3，单价：N6.2 书名C10）

书号 单价 书名

001 12.0 计算机应用 002 10.0 化学

003 15.0 分析化学

DSD：（班级：C6，书号：C3，数量：N3.0, 款项：N7.2）

记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 书号 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 书号 INTO SHU REPL ALL 款项 WITH数量＊shu.单价 LIST DO WHIL.T.ACCE “输入0退出” TO BJ IF BJ ='0' EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH DISP ？“书号”+书号+str(款项)+“元。” ENDD clea all RETURN（1）do while循环中locate操作的表是：（B）（A）数据表TS（B）数据表DSD（C）系统临时表aaa（D）系统临时表cursor aaa（2）运行时输入书号“003”，则输出为：_C（A）分别显示书号为“003”的所有款项（B）显示书号为“003”的所有款项之和（C）显示书号为“003”的第一条记录的款（D）输入错误，没有输出

第9题、读下列程序： &&MAIN.PRG PUBLIC X，Y SET PROC TO KK X=20 Y=50 DO A1 ?X,Y SET PROC TO RETU *过程文件kk.prg Proc a1 Private x X=30 Local y Do a2 ?x,y Return Proc a2 X=“kkk” Y=“mmm” Return 第一次显示的X，Y的值是(B)A)KKK 30 B)KKK.F.C)KKK 50 D)30.F.第二次显示的X，Y的值是(B)A)20 50 B)20 MMM C)30 50 D)30 MMM 第10题、读程序： CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TO XH SELE 1 USE XS SET RELATION TO 学号 INTO B SET SKIP TO B replace b.成绩 with b.成绩*1.1 for a.姓名=“王小平”(1)在以上程序中(A)A)表CJ是子表 B)表XS是子表 C)表XS是主表也可以是子表 D)无法确(2)该程序的功能是B A)修改王小平的成绩为1.1分 B)修改王小平的成绩为原成绩的1.1C)修改字段名成绩为成绩1.1 D)显示王小平的记录

第11题、有以下三段程序

*Main.PRG CLEA K1=10 K2=20 DO SuB ?K1,K2 &&(1)DO Sub1 With K2+10,K1 ?K1,K2 &&(3)RETU PROC SUB PRIV K1 K1=K2+1 K2=K1+1 RETU PROC Sub1 PARA Xl,x2 X1=10 X2=20 X1=STR(X1,2)+STR(X2,2)X2=X1+STR(X2,2)?X1,X2 &&(2)RETU(1)程序运行到(1)处显示的结果是(D)(A)10 20 b)20 30(C)10 30(D)l0 2(2)程序运行到(2)处显示的结果是(B)A)1020 102010(B)1020 102020(C)1010 101010(D)1020 101010(3)程序运行到(3)处显示的结果是(D)(A)101010 22(B)102020 30(C)102020 40(D)102020 22 第7题、I=0 DO WHILE I<10 IF INT(I/2)=I/2 I=I+3 ENDIF I=I+2 ENDDO ?I RETU（1）上述程序执行后，共循环了__C____次。A)10 B)5 C)4 D)死循环（2）上述程序执行后，屏幕显示为___B___。A)10 B)11 C)9 D)13

第7题、读下列程序： k=1 DO WHILE k<=21 k=k+2 ?STR(k,2)IF k=9 EXIT ENDIF ENDD（1）程序循环了多少次__A____。A)4 B)3 C)6 D)5（2）程序执行的结果是___C___。A)1 3 5 7 B)2 4 6 8 C)3 5 7 9 第8题、读下列程序： CLEAR FOR K=1 TO 4 A=“$” FOR J=1 TO k A=A+STR(K,1)ENDFOR @K,5 SAY A ENDFOR WAIT RETURN（1）程序运行的结果是___B___。

A)$1 B)$1 $22 $22 $122333 $333 $4444 C)$122333 D)$（2）程序运行到WAIT处，变量K与J的值分别是___D___A)1, 1 B)4, 4 C)4, 1 第9题、如下程序显示的结果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值为(D)A)10 B)11 C)12 D)13(2)程序循环次数为：(B)A)3 B)4 C)5 D)6

第10题、阅读下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李强' LOOP ENDIF ?姓名，实发工资 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．数据库表

C．数据库 D.可能是自由表，也可能是数据（2）若数据库有50条记录，则程序的功能是：（D）

A． 前10条记录中搜索“李强”的记录 B．列出前10条记录 C.每10条记录一屏显示记李强“的记录 D.列出前１０条记录，但是不显示”李强“的记录

第7题、读下列程序： USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '请输入姓名' TO XM INDEX ON 职称 TO ZX FOR 姓名=ALLT（XM）L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名

@ L,M+20 GET 基本工资 L=L+2 SKIP ENDDO WAIT '下一个（Y/N）？' TO Y ENDDO USE RETU（1）这个程序的功能是___B___。A)输入 B)查询（C）修改（D）统计（2）程序中变量Y的作用是___A___。

A)控制整个程序循环 B)把指针指向下一条记录 C)等待 D)没有作用 第9题、有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3“ ENDCASE(1)若在X=300的情况下执行这个程序段，屏幕上将显示A A）1 B）2 C）12 D）3(2)输入下列什么数据时，屏幕上将显示字符 3 A A）100 B）200 C）300 D）400 第7题、有如下教师授课表： 教师号 主讲课程 t1101 数据结构 t1102 C语言 t1103 网页制作 t1104 计算机网络 t1105 计算机网络 t1105 C语言 t1105 数据库

下列程序段的输出结果是 CLOSE DATA a=0 USE教师 GO TOP DO WHILE.NOT.EOF()IF主讲课程＝”数据结构“.OR.主讲课程＝”C语言“ a=a+1 ELSE DISP ENDIF SKIP ENDDO ?a 1 A A)3 B)4 C)5 D)6(2)命令DISP一共显示的记录条数是：A)3 B)4 C)5 D)6

第8题、读下列程序并进行判断。S=0 I=1 Do While I<4 Accept ”请输入字符串: “ To X If ”A“ $ X S=S+1 Endif I=I+1 Enddo ?S Return(1)运行时输入 ”abcd“, ”ABCD“, ”aBcD “, 输出 S的值是(B)(A)2(B)1(C)3((2)运行时输入”ABCD“, ”ABcd“, ”cdab“, 输出 S的值是(C)(A)1(B)4(C)2(D)第7题、如下程序显示的结果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值为(D)A)10 B)11 C)12 D)13(2)程序循环次数为：(B)A)3 B)4 C)5 D)6

第8题、CLEAR N=10 FOR J=1 TO 3 ?STR(J,2)+')' ??SPACE(6*J)FOR K=1 TO 3-J+1 ?? STR(J*K,6)N=N+2 ENDFOR ? ENDFOR RETURN（1）输出的图形为：（C）

A.1)1 B.1)1 2 3 C.1)1 2 3 D.1)1 2 3 2)2 4 2)2 4 2)2 4 2)4 6 8 3)3 6 9 3)3 3)3 3)9 12 15（2）程序结束时，N的值是：（A）A.22 B.9 C.10 D.15 第9题、设表文件XS.DBF有10条记录，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1

ENDDO USE RETURN（1）程序的功能是（D）

（A）显示所有记录（B）分别显示前3个记录（C）显示第3个记录（D）分别显示后三（2）退出循环后，N的值是（A）（A）0（B）1（C）3（D）4

读下列程序：

USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '请输入姓名' TO XM INDEX ON 职称 TO ZX FOR 姓名=ALLT（XM）

L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名 @ L,M+20 GET 基本工 L=L+2 SKIP ENDDO WAIT '下一个（Y/N）？' TO Y ENDDO USE RETU（1）这个程序的功能是___B___。A)输入 B)查询（C）修改（D）统计（2）程序中变量Y的作用是___A___。

A)控制整个程序循环 B)把指针指向下一条 录C)等待 D)没有作用

第8题、已知proc.prg程序清单如下：（12）n=10 t=15 S=1 M=0 DO proc_1 WITH n M=M+S DO proc_1 WITH T M=M+S ?M CANC proc_1.prg程序清单如下： PARAMETERS a S=1 FOR K=1 TO A S=S*K ENDFOR RETURN(1)程序proc.prg的功能是(C)A）输出N 和T的乘积 B）输出N 和T的阶乘 C）输出N 和T的阶乘之和D）输出N 和T的值(2)在程序中变量S是(D)A)全局变量 B)私有变量 C)本地变量 D)局部变量 读程序 clear use 学生

locate for 入校总分>=580 do while.not.eof()disp continu enddo ?'结束' Cancel(1)该程序的功能是：(B)A)显示表中一条入总分大于580分的学生记录 B)显示表中所有入校总分大于580分的学生记录C)显示表中一条学生记录D)显示表中所有的学生记录

(2)循环结束后，表中记录指针指向(B)A)文件头 B)文件尾 C)末记录 D)首记录

USE XSDA N=1 XH=”200201“ DO WHILE N<=120 APPEND BLANK REPL 学号 WITH STR(VAL(XH)+N,6)N=N+1 ENDDO USE CANCEL（1）上述程序数据库中，”学号“这个字段是__A___A)字符型 B)数值型 C)日期型 D（2）该程序的功能是____D__。

A)修改表文件的字段 B)修改表文件原有记录中学号字段的值 C)增加表文件的字段 D)追加新记录并填充学号字段的值

（3）程序运行到最后，变量N的值是___C___。A)1 B)120 C)121 D)0 现有表文件STUD.DBF，表中有：学号（C/6），姓名（C/8），性别（C/2），出生日期（D/8）等字段干条，根据已有的表文件运行下面程序： SET TALK OFF CLEAR USE STUD INDEX ON TRIM(姓名)TO ISTUD S=.T.DO WHILE S XM=SPACE(8)ACCEPT ‘请输入姓名:’ TO XM IF LEN(TRIM(XM))=0 EXIT ENDIF SEEK XM IF.NOT.EOF()@3,10 SAY “学号” @3,20 SAY 学号

@5,5 SAY “姓名”+姓名 @7,5 SAY “性别”+性别 @9,5 SAY “出生日期:” @ 9,20 SAY 出生日期 ELSE @20,3 SAY “没有找到该姓名的学生” S=.F.ENDIF WAIT ENDDO CANCEL（1）程序中的索引关键字和索引文件名分别为__B____。

A)学号, STUD.DBF B)姓名,ISTUD.DBF C）学号, ISTUD.IDX D)姓名,ISTUD.IDX（2）程序中用SEEK进行___C___查找。A)顺序 B)条件 C)索引 D)范围（3）执行EXIT命令的条件是____C___。

A）输入姓名后直接按键 B)未输入姓名就按键

C)输入姓名，又按空格键，再按键 D)输入姓名为0后按键 读下列程序：

A=“Abcde” N=LEN(A)I=1 DO WHILE I<=N B=SUBSTR(A,I,1)IF ISLOW(B)B=CHR(ASC(B)-32)A=STUFF(A,I,1,B)ENDIF I=I+2 ENDDO ?A RETURN（1）程序运行的结果是___D___。A)abcde B)ABCDE C)abCdE D)AbCdE（2）程序循环的次数是___C___。A)5 B)4 C)3 D)6

读下列程序： USE 学生 I=1 FILEN=”” DO WHILE I<=9 FILEN=”S”+STR(I,1)+”.DBF” COPY TO &FILEN I=I+1 ENDDO USE（1）程序运行的结果是___C___。A)无结果 B)拷贝了1个文件C)拷贝了9个文件

了10个文件

（2）拷贝所产生的新文件名是___D___。A)S.DBF B)FILEN C)&FILEN D)S1.DBF~S9.D

有如下程序段： USE CLASS LOCATE FOR 政治面目=”团员“ DO WHILE FOUND()DISPLAY CONTINUE ENDDO该程序的功能是：C

A)显示团员的一条记录 B)显示非团员的一条记录C)显示团员的所有记录D)显示非团员的所程序退出循环的条件是A

A)FOUND()函数返回值为B)FOUND()函数返回值为假 C)与 FOUND()函数的值无关D)EOF()函数返回值为真

有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3" ENDCASE(1)若在X=300的情况下执行这个程序段，屏幕上将显示A A）1 B）2 C）12 D）3(2)输入下列什么数据时，屏幕上将显示字符 3 A A）100 B）200 C）300 D）400

读程序

1、CLEAR M=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN（1）该程序的功能是：求1到10之间B A.能被3整除数的个数 B.能被3整除数C.不能被3整除数的个数 D.不能被3整除数的和

（2）该程序执行的结果是：C A.3 B.10 C.18 D.37

&&MAIN.PRG &&P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?’X1=’+STR(X1,1)W2=W2*4

??’X2=’+STR(X2,1)RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?’X1=’+STR(X1,1)??’X2=’+STR(X2,1)

RETURN（1）第一次显示X1，X2的值是B A 1 , 8 B 3 , 8 C.1 , 1 D.8 , 8（2）第二次显示X1，X2的值是C A 1 , 2 B 3 , 1 C 3 , 2 D.1 , 3

CLEAR DIME A（20）P=1 FOR N=1 TO 20 INPUT“请输入数据：“ TO A(N)ENDFOR FOR L=1 TO 19 FOR M=L+1 TO 20 IF A(L)<=A(M)T=A(L)A(L)=A(M)A(M)=T ENDIF ENDFOR ??A(I)ENDFOR 程序完成的功能是将20个数组元素值A A 排序后按从大到小的顺序输出 B 排序后按从小到大的顺序输出C． 倒序输出 D.按自然顺序输出

将DIME A（20）改成 DIME A（10）后，B A． 出现“数组重复定义”的错误 B． 出现“数组下标越界”的错误 C． 程序功能不变，只是输出10个数组元素值 D． 程序功能不变，仍然输出20个数组元素值

CLEAR CLOSE ALL USE 学生 SCAN IF性别=’男’ DISP ENDIF N=N+1 ENDSCAN ？N CLOSE ALL CANC(1)D A)该程序显示一条男同学的记录 B)该程序显示一条女同学的记录 C)该程序显示全班同学的记录 D))该程序显示全班男同学的记录(2)命令？N 显示的是C A)男同学的记录个数 B)女同学的记录个数 C)全班同学的记录个数 D)无法确定

USE SB SORT TO RQX ON 启用日期/D FIELDS 编号，名称，启用日期 FOR NOT 主要设备 USE RQX LIST USE SB SORT TO BMX ON 部门/D，价格 FOR 主要设备 USE BMX LIST RETURN（1）程序执行到第一个LIST命令时，输出结果是C

（A）将主要设备按编号，名称，启用日期分别升序排序。（B）将主要设备按编号，名称，启用日期分别降序排序。（C）将非主要设备按启用日期降序排序。（D）将非主要设备按启用日期升序排序。

（2）程序执行到第二个LIST命令时，输出结果是B

（A）将主要设备按部门升序排序，当部门相同时，按价格降序排序。（B）将主要设备按部门降序排序，当部门相同时，按价格升序排序。（C）将主要设备按部门降序排序，当部门相同时，按价格升序排序。（D）将主要设备按部门升序排序，当部门相同时，按价格降序排序。

共有3个数据库文件TB1.DBF, TB2.DBF, TB3.DBF,下面程序功能是把每个库文件的末尾记录删掉。序，将程序填写完整。N=1 DO WHILE N<=3 TB=“TB“+STR(N，1)USE &TB GO BOTTOM DELETE PACK N=N+1 ENDDO 该程序的功能是B（A）将数据表的末记录作物理删除（B）将数据表的末记录作逻辑删除（C）将数据表的首记录作物理删除（D）将数据表的首记录作逻辑删除

该程序一共删除了()表中的记录C（A）1个（B）2个（C）3个

（D）4个

阅读下面程序： 有图书数据表TS和订书单表DSD如下： TS：（书号：C3，单价：N6.2 书名C10）

书号 单价 书名

001 12.0 计算机应用 002 10.0 化学

003 15.0 分析化学 DSD：（班级：C6，书号：C3，数量：N3.0, 款项：N7.2）

记录号 班级 书号 数量 款项 1 化95.4 001 47 0.00 2 数94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 数94.3 001 74 0.00 8 化95.4 003 47 0.00 9 数94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 书号 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 书号 INTO SHU REPL ALL 款项 WITH数量＊shu.单价 LIST DO WHIL.T.ACCE “输入0退出” TO BJ

IF BJ =’0’ EXIT ENDI ACCE“输入书号” TO SH LOCAT FOR 书号=SH DISP ENDI ？“书号”+书号+str(款项)+”元。” ENDD clea all RETURN（1）do while循环中locate操作的表是：B A数据表TS B数据表DSD C系统临时表aaa D系统临时表cursor aaa（2）运行时输入书号“003”，则输出为：_C（A）分别显示书号为“003”的所有款项（B）显示书号为“003”的所有款项之和（C显示书号为“003”的第一条记录的款项（D）输入错误，没有输出

阅读下面程序： CLEAR T=65 R=20 INPUT “请输入图形的行数N=” TO N I=1 DO WHILE I<=N J=1 DO WHILE J<=2*I-1 @I,J+R SAY CHR(T)J=J+1 IF J<=I T=T+1 ELSE T=T-1 ENDIF ENDDO I=I+1 R=R-1 T=65 ENDDO RETURN(1)运行程序后输出图形C

（A）A（B）A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFG EEEEEEEEEEEE ABCDEFGHIJ

„„„„„„„ „„„„„„

（C）A A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE

„„„„„„„ „„„„„„„（2）语句@I,J+R SAY CHR(T)中函数CHR（）的功能是D（A）从字符T中取出子串（B）返回字符T的ACSⅡ码值（C）返回字符T的ACSⅡ码字符

（D）返回<数值表达式>表示的ACSⅡ码字符

：

CLEA BM=SPACE(10)@5，10 SAY“请输入表名：”GET BM READ BM=ALLTRIM(BM)IF FILE(“&BM..DBF”)USE &BM BROWSE ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN(1)程序的功能是C(A)浏览任意一个打开的表文件(B)修改任意一个打开的表(c)浏览指定表文件BM(D)修改指定表文件BM(2)函数FILE(“&BM..DBF”)的功能是C(A)测试指定的文件的类型正确否(B)指定文件类型为(C)测试指定的文件存在否(D)指定文件为&BM．．DBF

有图书目录数脚sml，dbf和入库流水单表skc．dbf如下 sml.dbf：(5条记录)书号 书名 作者 出版社 1 计算机基础 杨振山 高等教育 2 计算机原理 费利民 西安交大 3 C语言设计 赵国民 上海 4 C语言教程 张 扬 四川 5 C++教程 张 敏 高等教育 skc.dbf：(5条记录)书号 单价 数量 金额 入库日期 1 15.00 30 450.00 20030818 2 11.00 21 231.00 20030818 3 22.00 30 660.00 20030818 4 19.00 30 570.00 20031218 5 22.21 23 510.83 20031218 程序： CLEAR @1，15 SAY ‘新书入库’ Y=’Y’

DO WHILE upper(Y)=”Y” SM=SPACE(14)ZZ=SPACE(8)CBS=SPACE(10)@3，10 SAY ’书名’ GET SM @3，30 SAY ’作者’ GET ZZ @3，45 SAY，出版社 GET CBS READ SELE 1 USE SML LOCA FOR TRIM(书名)=TRIM(SM)AND TRIM(作者)=TRIM(ZZ)AND TRIM(出版;社)=TRIM(CBS)IF FOUND()SH=书号 ELSE SKIP-1 SH=STR(val(书号)+1，4)APPE blan REPL书名WITH SM，书号WITH SH，作者WITH ZZ，出版社with cbs ENDIF SELE 2 USE skc APPE BLAN REPL书号with sh @4，10 SAY ‘单价’ GET单价 @4，30 SAY ‘购人数’ GET数量 READ REPL金额 WITH 单价*数量 REPL入库日期 WITH date()WAIT “是否继续(Y／N)” to Y ENDD CLOSE DATA 设运行时依次输入下列数据：

代数 张三 清华 22.00 31 几何 李四 北大 33.00 32 概率 王五 南开 44.00 33 几何 李四 北大 33.00 41 代数 张三 清华 22.00 56(1)此时sml表中的记录条数和最大记录号分别为C A 10条，10 B 10条，5 C 8条，8 D 8(2)SKC表中记录数为C(A)10(B)5(C)8(D)7

clear dimension k(2,3)i=l ? do while i<=2 j=l do while j<=3 k(i,j)=i*j ??k(i，i)??” ” j=j+1 enddo ? i=i+1 enddo(1)运行程序后，屏幕的显示结果是A

(A)1 2 3(B)1 2 2 4 6 3 2(C)1 2 3(D)1 2 3 1 2 3 2 4 9(2)如果将dimension k(2,3)语句改为：dimension K(2，2)后，A(A)出现“数组重复定义”的错误(B)出现“数组下标超界”的错误

(C)程序功能不变，只输出4个数组元素(D)程序功能不变，仍然输出6个数组元素

阅读下列程序 CLEAR M=0 FOR K=0 TO 2 FOR J=3-k TO 3+K @K,J SAY STR(K，2)+STR(J,1)M=M+1 NEXT K NEXT 1 ?M RETURN(1)输出图形为： A

(A)03(B)03(C)03(D)0 3 14 14 14 1 4 25 25 25 2 5(2)程序结束时，M的值是： B(A)11(B)9(C)10(D)8

读下列程序： J=0 CLEAR FOR K=1 TO 4 FOR R=1 TO 5-K ？？“” &&此处括号内有1个空格 ENDFOR FOR M=1 TO 2*K-1 ？？STR(K，1)J=J+1 ENDFOR ? ENDFOR ? J(1)程序运行的结果是：A

A)1 B)1 C)2 D)1 222 121 121 212 33333 1331 1331 31113 4444444 144441 144441 4111114(2)程序结束时，J的 值为C A)7 B)17 C)16 D)6

SUM=0 N=0 DO WHILE N< 100 N=N+1 SUM=SUM+N ENDDO ?’SUM=’,SUM(1)该程序的功能是B A)计算1+100的值 B)计算1+2+3+„+100的值 C)计算1+99的值 C)计算1+2+3+„+99的值(2)循环结束后，N的值为A

A)100 B)99 C)101 D)102

Clea FOR N=1 TO 4 FOR I=1 TO 2*N-1

IF I<=N

@ N,10-N+I SAY STR(I,1)

ELSE

@ N,COL()SAY STR(2*N-I,1)

ENDI ENDF ENDF Canc(1)该程序的显示的是：B

A)1 B)1 C)1 D)1 222 121 212 121 33333 12321 31213 13331 4444444 1234321 4123214 1444441(2)循环结束后，N的值为C A)3 B)4 C)5 D)6

INPUT”请输入数据1：“ TO X INPUT”请输入数据2：“ TO Y INPUT”请输入数据3：“ TO Z IF X>Y N=Y ELSE N=X ENDI IF NY 改成 IF X

(1)A)输入的最大值 B)输入的最小值 C)输入的中间值 D)输入的任意值

有一学生情况表STU，表中有成绩字段 以下程序的功能是： N=0 S=0 USE STU

输入的任 D)SCAN FOR 成绩>=560 S=S+成绩 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D

A)表中成绩大于560分的人数 B)统计表中成绩小于560分的人数

C)表中成绩大于560分的人的总分数 D)表中成绩大于560分的人的平均分数

有一学生情况表STU，表中有成绩字段 以下程序的功能是： N=0 S=0 USE STU SCAN FOR 团员 S=S+成绩 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中团员人数 B)表中非团员的人数 C)表中团员总分数 D)均分数

第四篇：VFP题库--属性设置题

1、本题素材为考生文件夹下的sz01.scx文件，请完成以下操作：

（1）将表单form1的标题栏设为“我的表单”，表单设为最大化模式；windowstate

2（2）将label1的字体大小设为24，字的颜色为rgb(255,0,0)；

（3）将label2的字体大小设为18，背景颜色为(212,68,128)；

（4）在该表单上添加一个命令按钮组，其中有两个按钮，标题分别为“确定”和“取消”。

2、本题素材为考生文件夹下的sz02.scx文件，请完成以下操作：

（1）将表单form1的标题栏设为“学生管理”；

（2）将label1的字体大小设为22，背景颜色为（215,100,100）；

（3）将label2的标题设为“2006年6月”，字体大小设为16，标签大小可自动调整； Autosize.T.自动调整大小label2的标题； caption属性设为2006年6月

（4）在该表单上添加一个列表框，列表框中添加的项目为“北京”、“上海”、“南京”。在生成器中-手工输入数据-列

thisform.list1.additem(“北京”)

thisform.list1.additem(“上海”)

thisform.list1.additem(“南京”)

3、本题素材文件是考生文件夹中的sz03.scx，完成以下操作：

（1）设置文本框Text1显示的值为“江西科技师范学院”，只读；readonly.T.（2）将Command1的标题设置为“查询”，字号为14；

（3）设置属性使得Command2运行时不可见；visible.F.不可见

4、打开考生文件夹下的表单文件sz04.scx，按以下要求进行设置并保存。

(1)设置表单的标题为“移动字幕”，表单的背景色为“蓝色(0,255,0)”；backcolor

(2)设置标签label1的字号为“24”、斜体，标签的大小能够自动调整；fontsizeFontitalic.F.Autosize.T.自动调整大小

(3)设置按钮command2为不可用；enabled.F.(4)在表单上添加一个计时器控件Timer1，设置Timer1的时间间隔属性为0.2秒。200毫秒

5、本题素材文件是考生文件夹中的sz05.scx，该表单实现的功能是逐条显示表sz05_xs.dbf中的记录，请完成以下设置：

（1）将Label1的字号设为16，斜体，红色；Fontitalic.F.Forecolor(225,0,0)

（2）在表单上建立三个文本框分别显示表sz05_xs.dbf中的学号、姓名和奖学金。

该表单运行效果如下图所示：

7、本题素材为考生文件夹下的sz07.scx文件，请完成以下操作：

（1）将label1的字体大小设为18，背景颜色为（255,128,0）；

（2）添加一个标签控件，设置其标题为“2006年6月”，可自动调整标签控件的大小；thisform.label2.caption.autosize =.T.（3）在该表单上添加一个命令按钮，设置其名称为“cmdok”，不响应事件（即运行时按钮显示为灰色的）。Namecmdok(thisform.command1.enabled=.f.)该表单运行效果如下图所示：命令1：

8、本题素材文件是考生文件夹中的sz08.scx，完成以下操作：

（1）将Command1的标题设置为：计算，字号为14；

（2）设置属性使得Command2不可见（即运行时不显示）； visible.F.不可见

（3）在表单上添加一个文本框，设置文本框的宽度为200，高度为40，数据类型为数值型。生成器将数据类型转换为数值型文本框的Value值设为0该表单运行效果如下图所示：

9、打开考生文件夹下的表单文件sz09.scx，按以下要求进行设置并保存。

(1)设置表单的标题为“移动”，设置属性使得该表单运行时自动处于最大化状态； windowstate

2(2)设置标签label1的字体为“黑体”，字的颜色为红色(255,0,0)；

(3)在表单上添加一个计时器控件Timer1，设置Timer1的时间间隔属性为0.2秒，不响应事件。200毫秒enabled.F.设置完成后效果如下图，运行时表单会最大化。

10、本题素材文件是考生文件夹中的sz10.scx，另有一个表文件xs4_10.dbf，包括学号、姓名、奖学金三个字段。

完成以下设置：

（1）将Label1（学生情况）的字体设为“隶书”，背景色为“浅蓝(128,128,255)”；

（2）将表xs4_10添加到该表单的数据环境中；

（3）在表单上添加两个文本框，分别用于显示表中的“姓名”和“奖学金”字段。该表单运行效果如下图所示：

11、本题素材文件是考生文件夹中的sz11.scx，完成以下操作：

（1）设置label1的文字颜色为红色（255,0,0），背景透明；backstyle

（2）将Command1的标题设置为“计算”，字号为14；

（3）设置属性使得Command2不可见（即运行时不显示）；

thisform.command2.visible=.F.（4）在表单上添加一个编辑框，设置编辑框的宽度为200，高度为100。该表单运行效果如下图所示：

12、本题素材文件是考生文件夹中的sz12.scx，请完成以下设置：

（1）将表单设为初次显示时自动居中；autocenter.T.（2）将Label1的字体设为“隶书”，加粗，加下划线；thisform.label1.fontname =“隶书”fontboldfontunderline

（3）将表sz12_1.dbf添加到该表单的数据环境中；

（4）在表单上建立三个文本框分别显示表sz12_1.dbf中的编号、姓名和工资现状。

该表单运行效果如下图所示：

13、本题素材文件是考生文件夹中的sz13.scx，完成以下操作：

（1）设置标签label1显示的文本为“请选择要浏览的表”，字号18，该标签能够自动调整大小；autosize

（2）将Command1的名称设为“cmdok”，标题设为“确定”，字号为16；

Namecmdokcaption确定

（3）在该表单上添加一个选项按钮组，其中有三个选项，分别是“读者”、“作者”、“图书”。

14、设计一表单，可以通过一文本框对列表框进行项目的添加、删除操作，其界面如图7-40所示。

（1）选择控件

在表单上添加一个列表框控件Listl，一个文本框控件Text1和两个按钮控件command1、command2。

（2）属性设置

Forml的Caption属性设为“课程管理”。

Command1的Caption属性设为“添加”。

Command1的Caption属性设为“删除”。

（3）编写代码

窗体Forml的Init代码如下：

thisform.list1.AddItem(“计算机文化基础”)

thisform.list1.AddItem(“大学英语”)

thisform.list1.AddItem(“高等数学”)

按钮Command1的Click代码如下：

kecheng=thisform.text1.Value

thisform.list1.additem(kecheng)

thisform.text1.Value=""

按钮Command2的Click代码如下：

thisform.list1.RemoveItem(thisform.list1.ListIndex)

第五篇：VFP命令、函数及程序语句解读

VFP命令、函数及程序语句大全(1 学过VFP(Microsoft Visual FoxPro的朋友都知道它是微软公司开发的数据库管理系统。它

经历了从dBASE、FoxBASE、FoxPro直到VFP的发展过程。本文便以VFP 6.0为例介绍它的命令、函数

及程序语句,为学习VFP的朋友提供必要的学习参考,也为已经精通VFP的朋友提供复习的好机会。

一、主要命令:

1、CREATE 作用:建立一个新的表。

格式:CREATE [<文件>|?](注意,命令字符可取前面四个字符,后面可省略不写,即CREA,下

同;中括号表示其中的参数是可选的;|管道符号表示两个参数只能选择一个,不能同时选择,下

同。

说明:文件指建立以.dbf为扩展名的VFP数据库文件,在命令后面加上一个问号表示系统会弹出

对话框,要求用户输入想要建立的表名。在命令中不加文件名或问号系统也会弹出对话框,要求用

户输入想要建立的表名。

2、MODIFY STRUCTURE

作用:显示表文件结构,并允许修改此表的结构。格式:MODIFY STRUCTURE 说明:只有在用USE命令打开表文件以后,才能显示或修改表文件的结构。

3、APPEND 作用:在当前表的尾部(无论表中有无记录追加记录(在当前表指当前正使用的表。

格式:APPEND [BLANK] 说明:在APPEND命令后面加上BLANK参数表示在当前表的尾部添加一条空白记录。无BLANK 参数

时,表示在当前表的尾部添加一条记录并要求用户输入相应的字段内容。

4、INSERT 作用:在表文件中间插入一个新记录。格式:INSERT [BEFORE] [BLANK] 说明:INSERT 在当前记录后插入一记录;INSERT BEFORE 在当前记录前插入一记录;INSERT BEFORE BLANK 在当前记录前插入一空记录。INSERT-SQL命令追加记录

INSERT INTO 表名[(字段1[,字段2…]];VALUES(表达式1[,表达式2…]

例:INSERT INTO XS(XH,XM,XB,XIMING VALUES(“950106”,“高山”,“男”,“”

5、UPDATE 作用:修改数据

update <表名> set <字段1=表达式1>,<字段2=表达式2...> where <条件> 例: update <表名> set <字段1,字段2...>=<表达式1,表达式2...> where <条件>

6、BROWSE 作用:主要用于打开浏览窗口,查阅表文件并同时进行修改。格式:BROWSE 作用:打开一个“浏览”窗口,供用户浏览或修改记录。格式:BROWSE [FIELDS <字段名表>]

7、USE 作用:打开和关闭表文件。格式:USE [<文件名>] USE 说明:前一个命令用来打开<文件名>指定的表文件,该表如有备注型字段,则同时打开相应的

备注文件(.fpt文件;后一个命令关闭当前打开的表文件。

8、LIST和DISPLAY

作用:显示表(.dbf的内容、结构或状态。

格式:LIST|DISPLAY [OFF] [<范围>] [FIELDS] <表达式表> [WHILE <条件>] [FOR <条件>] [TO PRINT|TO FILE <文件>] LIST|DISPLAY STRUCTURE TO PRINT|TO FILE <文件> LIST|DISPLAY STATUS [TO PRINT|TO FILE <文件>] 说明:命令带OFF参数表示不显示记录号,范围指定对哪些记录进行操作,范围包括:RECORD n 第几号记录、NEXT n 当前记录开始的几个记录、REST 自当前记录开始至文件末尾的所有记录、ALL 所有的记录。不选范围则隐含范围为ALL;FIELDS后跟字段名,字段名与字段名之间用逗号分

隔。WHILE后跟条件,FOR后面也跟条件,区别是,WHILE后的条件如果不满足,便停止查找;FOR后的条件查找所有满足条件的记录。TO PRINT和TO FILE <文件>分别表示将显示结果在打印机上打印出

来和将显示结果输出到文件。

格式中,下面两个命令分别为显示表结构(STRUCTURE和工作状态(STATUS。注:LIST命令一次连续显示完所有记录内容。DISPLAY命令在显示记录满屏后,要求用户按

任意键继续显示。如果LIST与DISPLAY都无任何选择项时,LIST显示文件的全部记录, DISPLAY仅显示当前记录。

9、记录的定位

作用:用记录指针(POINTER定位记录。格式: 1GO[TO] RECORD n|TOP|BOTTOM 命令定位 GO [RECORD] N GO BOTTOM GO TOP 2n 3SKIP [+|-] n 说明:第一个命令又叫绝对定位,其中,RECORD n定位到n号记录,TOP定位到第1个记录, BOTTOM定位到最后一个记录。第二个命令定位到第n个记录,n是一个数值。第三个命令又叫相对定

位,它以当前记录为基准前移(-或后移(+n个记录,不选任选项,则默认记录指针后移一个记

录。

LOCATE [<范围>] FOR <表达式> 范围: ALL NEXT N RECORD N

REST

10、CHANGE和EDIT 作用:显示要编辑或修改的字段。

格式:CHANGE|EDIT [<范围>] [FIELDS <字段名表>] [WHILE <条件>] [FOR <条件>]

11、REPLACE 作用:用表达式的值代替命令中与之相对应的字段的内容。

格式:REPLACE [<范围>] <字段1> WITH <表达式1>[,<字段2> WITH <表达式2>] [FOR <条件> ] [WHILE<条件>] 例:USE B2-1 REPLACE ALL 工资 WITH 工资+200 FOR 工资<1000 BROW

12、DELETE、PACK、ZAP和RECALL 作用:分别是给要删除的记录作删除标记、彻底删除、删除所有记录和取消被选中的表记录的

删除标志。

格式:DELETE [<范围>] [WHILE<条件>] [FOR <条件>](特例:DELETE FILE FILENAME.DBF,该命令删除指定的表文件

PACK

ZAP RECALL [<范围>] [FOR <条件>] [WHILE<条件>]

13、SORT和INDEX 1SORT 作用:是建立一个其记录以新的物理顺序排列的新表文件,原文件不变.格式:SORT TO <文件名> ON <字段名1> [/A] [/C] [/D][,<字段名2> [/A] [/C] [/D>...[ASCENDING|DESCENDING] [<范围>] [FOR <条件>] [WHILE<条件>] [FIELDS<字段表>] 2INDEX 作用: 对当前表根据关键字表达式的值从小到大排列,并存入TO后指定的索引文件名的文件或复合索引文件的一个标识中。

格式: INDEX ON <关键字表达式> TO <文件名> INDEX ON <关键字表达式> TAG <标识名> [OF <文件名>] [FOR <条件>] 说明:第1个命令中,/A按字段名升序排序,/D按字段名降序排序,/C忽略大小写,针对字符型

关键字而言,ASCENDING和DESCENDING分别表示升序和降序。第1个命令建立.dbf表文件,第2个命令建立.idx单一索引文件,第3个命令建立.cdx复合索引文件(Compound Index。

删除索引

DELETE TAG ALL [OF 复合索引文件名]

DELETE TAG 索引标识1 [OF 复合索引文件名1][,索引标识2 [OF 复合索引文件名2>…

14、USE <表文件名> INDEX <索引文件名表>、SET INDEX TO和SET ORDER TO 作用:分别是打开表文件的同时打开索引文件、打开索引文件和改变主索引。并确定第一个索引文件为主控索引文件.(当前起作用的索引文件称为主控索引文件, 当前起作用的索引标识称为主控索引

格式:USE <表文件名> INDEX <索引文件名表> SET INDEX TO [<索引文件名表>] 作用:打开当前表的一个或多个索引文件并确定第一个索引文件为主控索引文件,该命令用于单索引文件.格式:SET INDEX TO [<索引文件表>] [ADDITIVE] 说明:(1[<索引文件表>]中第一个索引文件为主控索引文件.(2若缺省ADDITIVE选项,则在用本命令打开索引文件时,除结构复合索引文件以外的索引文件均被关闭

SET ORDER TO [<数值表达式>]|[<单索引文件名>]|[TAG] <索引标识> [ASCENDING|DESCENDING>(特例:重新索引命令:REINDEX 作用:对于打开表时自动打开的复合索引文件确定主索引,也能确定主索引文件.(1 数值表达式表示已打开的索引的序号.系统先为单索引文件编号,故结构复合索引文件的序号比单索引文件大.(2 SET ORDER TO 或 SET ORDER TO 0命令取消主索引和主索引文件,表中记录将按物理记录输出.15、CLOSE INDEX 或 SET INDEX TO 单独关闭索引文件,并不关闭与之相关的表文件

16、FIND、SEEK和LOCATE及CONTINUE 作用:前两个命令FIND和SEEK是在一个已经建立了索引文件的表中,定位到关键字中的内容与命

令行中字符串相同的第一个记录。后一个命令在用USE打开表文件以后,直接查询表中字段内容。

格式:FIND <“字符串”>|<字符串> SEEK <表达式>(表达式的数据类型可为字符型、数字型、日期型和逻辑型。LOCATE [<范围>] [FOR <条件>] [WHILE<条件>] CONTINUE 说明:FIND命令与SEEK命令的区别是前者后跟字符串,而后者后跟表达式。在用LOCATE命令找到

一个匹配记录后,可用CONTINUE命令搜索表的剩余部分来寻找其他匹配的记录。

例:SET ORDER TO NL „确定索引关键字为NL(年龄 FIND 28 „找年龄字段为“28“的记录 DISPLAY „显示当前记录

SET ORDER TO NL „确定索引关键字为NL(年龄 SEEK “28”„找年龄字段为“28“的记录

DISPLAY 17.从磁盘上删除任意文件:(1ERASE filename|?(2DELETE FILE [filename|?]

18、COUNT 作用:统计当前表文件中符合条件的记录数。

格式:COUNT [<范围>] [FOR <条件>] [WHILE<条件>] [TO <内存变量名>] 说明:内存变量名可用除参数外的任意字符。

19、SUM 作用:对当前表中选中记录的全部或指定的数值字段或由指定字段组成的数值表达式累加求和。

格式:SUM [<范围>] [数值<表达式>] [TO <内存变量名表>] [FOR <条件>] [WHILE<条件>] 20、AVERAGE 作用:对当前表中选中记录的全部或部分数值型字段及其组成的表达式求平均值并显示。

格式:AVERAGE [<范围>] [数值<表达式>] [TO <内存变量名表>] [FOR <条件>] [WHILE<条件>]

21、TOTAL 作用:分类汇总命令,按<表达式>做过索引或排序的表文件的数字型字段进行分类汇总。它把与<表达式>值相同的所有记录中的数字字段的值分别进行求和,并各

自作为一条记录存放在由文件指定的文件中去。在新生成的记录中,还将包括与<表达式>值相同的所有记录中的首项记录的其他字段内容。

格式:TOTAL TO <文件名> ON <表达式>[FIELDS <数值型字段名表>][<范围>][FOR <逻辑表达式1>][WHILE <逻辑表达式2>] 例:USE B2-1 INDEX ON 职称 TO ZC TATOL ON 职称 TO B2-1T FILEDS 工资 22.APPEND FROM 作用:从其他文件向表文件添加数据。数据来源文件既可以是表文件,也可是文本文件或其他符合规定的文件。

格式:APPEND FROM <文件名>|?[FIELDS <字段名表>][FOR <逻辑表达式>] FIELDS <字段名表>和FOR <逻辑表达式>,用于源文件为表文件时,指定追加记录的字段和条件。在字段名表和逻辑表达式中的字段名,必须是在来源和目的两个文件中公有的,共注意宽度和类型匹配。实际应用中,数据来源文件常为表文件(.DBF和ASCII码文本文件(.TXT 对于文本文件又有标准格式(SDF和通用格式(DELIMITED之分.例: USE B2-1 APPE FROM S3-1.TXT SDF BROWSE 23.COPY(选择表的部分内容生成一个新表

作用:把打开的表文件结构及数据复制成由<文件名>所指定的并符合规定要求的文件。如果默认全部选择项和文件名的扩展名,则结构及全部数据都被复制,且其文件扩展名由系统规定为“.DBF”。

格式:COPY TO<文件名> [FIELDS <字段名表>][<范围>][FOR <逻辑表达式1>][WHILE <逻辑表达式2>] 格式中的或用来为新表建立一个与原表相同的结构索引.例1: COPY TO B3-2 COPY TO S3-2.TXT SDF 例2: USE RS COPY TO RS3 FIELDS 姓名,基本工资,奖金 USE RS3 LIST 24.COPY FILE复制数据整表:(可用于复制任何类型文件 COPY FILE 原文件名 TO 目标文件名

注:复制表时,还应当复制和它相配的备注文件(.FPT,如有备注字段和结构复合索引文件。

当前表应关闭。(如果已打开表:COPY TO 新文件名 例:将RS.DBF复制为RS1.DBF COPY FILE RS.DBF TO RS1.DBF 或USE RS

COPY TO RS1 USE RS1 LIST 25.COPY STRUCTURE(只复制结构不复制数据

作用:表文件结构复制,生成一个指定文件名和包括指定字段的表文件结构;如有CDX或PRODUCTION选择项还将为新表建立一个与源表相同的结构索引.格式: COPY STRUCTURE TO<文件名> [FIELDS <字段名表>] 例: COPY STRUCTURE TO B3-3 FIELDS 编号,姓名,何时工作,职称 26.copy to建立结构扩展文件

作用:把已打开的表文件的结构作为数据记录复制到由<文件名>指定的库文件中去.格式: COPY TO<文件名> STRUCTURE EXTENDED 例: USE B3-3 COPY TO B3-4 STRUCTURE EXTENDED USE B3-4 BROW 该命令可以用于测试表文件结构,也可以用于顺序方式建立库文件结构.新库文件的结构是一个由系统规定的标准结构,它由4个字段构成: FIELD_NAME 字段名

FIELD_TYPE 字段类型 FIELD_LEN 字段宽度 FIELD_DEC 小数位数 27.常用命令: 库表

建立数据库: CREATE DATABASE 库文件名.DBC 建立表: CREATE 表文件名.DBF CREATE TABLE/DBF 表名(各个字段属性 打开数据: OPEN DATABASE 库文件名 打开表: USE 表文件名

使用非前库的表:USE 库名!表名 打开索引表:USE 表名 INDEX 索引名 显示库信息:DISP DATABASE [TO PRINTER] 显示记录:LIST(快速查看 BROWSE(分屏浏览可修改 DISP(显示当前记录

关闭数据库:CLOSE ALL(关闭所有库、表、索引 关闭表: USE

CLOSE DATABASES(关闭当前库、表 CLOSE TABLES(关闭当前表,不关库 CLOSE INDEXES(关闭当前索引

修改库:MODI DATA 库名 [NOWAIT] [NOEDIT] 修改表结构:MODI STRU ALTER TABLE 表名 ADD 字段名 ALTER TABLE 表名 ALTER 字段名 ALTER TABLE 表名 DROP 字段名 添加表:ADD TABLE 表名追加记录: INSERT INTO 表名(字段名列表 VALUES(对应数值 APPEND APPEND FROM 源文件 移去表:REMOVE TABLE 表名

删除记录:DELETE ALL FOR [条件](逻辑删除 PACK(物理删除 ZAP(全部彻底删除

删除库:DELETE DATABASE 库名(先关闭库 删除表:DELETE FILE 表名(先关闭表 VFP命令、函数及程序语句大全(2

二、常用函数

1、数学函数 函数用途

ABS(<数值表达式>绝对值,|x| CEILING(<数值表达式> >=自变量的最小整数 EXP(<数值表达式>对基E的幂,e=2.71828 FLOOR(<数值表达式> <=自变量的最大整数 INT(<数值表达式>取整(舍尾自变量

LOG(<数值表达式>自变量的自然对数,ln x LOG10(<数值表达式>自变量的普通对数,lg x MAX(<表达式1>,<表达式2>两个值的最大值 MIN(<表达式1>,<表达式2>两个值的最小值 MOD(<数值表达式1>,<数值表达式2>求余数 RAND([<数值表达式1>]返回伪随机数

ROUND(<数值表达式1>,<数值表达式2>四舍五入第一个自变量 SIGN(<数值表达式>自变量的符号 SQRT(<数值表达式>平方根(正根

2、字符串操作函数 函数用途

&<内存变量> 用于代替内存变量内容

LEN(<字符串表达式>返回字符串表达式的字符个数 SPACE(<数值表达式>生成空格

SUBSTR(<字符串表达式>,<数值表达式n>[,<数值表达式L>]求子字符串,从指定的字符串表达式第n个开始,总长为L的字符串

LOWER(<字符串表达式>将字符串字母转换成小写字母 UPPER(<字符串表达式>将字符串字母转换成大写字母 TRIM(<字符串表达式>删除字符串尾空格

ASC(<字符串表达式>返回字符串表达式最左边的第一个字符的ASCII码 CHR(<数值表达式>将数值表达式转换成字符

AT(<字符串表达式1>,<字符串表达式2>[,<数值表达式n>] 确定字符串表达式1在字符串表达式2中的位置,n为字符串表达式第几次出现 STR(<数值表达式>[,<数值表达式L>][,<数值表达式n>将数值转换为字符串,L为数值表达式总长,n为小数位数

VAL(<字符串表达式>将数字字符串转换为数字 TYPE(<表达式>检测表达式值的数据类型 LTRIM(<字符串表达式>删除字符串左部空格 RTRIM(<字符串表达式>删除字符串右部空格

LEFT(<字符串表达式>,<数值表达式n>取字符串左边部分字符,n为返回的字符个数

RIGHT(<字符串表达式>,<数值表达式n>取字符串右边部分字符,n从右边截取字符个数

3、表(.dbf操作函数

函数用途

BOF([<工作区号或别名>]查表文件开始函数 EOF([<工作区号或别名>]表文件结尾测试函数

RECNO([<工作区号或别名>]测试当前或指定工作区表的当前记录号 DELETED([<工作区号或别名>]记录删除测试函数 FILE(<“字符串”>测试文件是否存在函数 DBF([<工作区号或别名>]检测表的文件名函数

4、日期、时间函数 函数用途

DATE(查系统当前日期函数

TIME([<数值表达式>]查系统当前时间函数

YEAR(<日期型表达式>|<日期时间型表达式>由日期查年函数 MONTH(<日期型表达式>|<日期时间型表达式>从日期查月份函数 CMONTH(<日期型表达式>|<日期时间型表达式>由日期查月份名函数 DAY(<日期型表达式>|<日期时间型表达式>从日期查当月的日函数

DOW(<日期型表达式>|<日期时间型表达式>[,<数值表达式>]由日期查星期函数

CDOW(<日期型表达式>|<日期时间型表达式>从日期查星期名函数 DTOC(<日期型表达式>|<日期时间型表达式>日期转换为字符函数

CTOD(<字符串表达式>字符串转换为日期函数 CTOT(<字符串表达式>返回日期时间值函数 TTOC(<日期时间型表达式>返回字符值

5、显示、打印位置函数 函数用途

ROW(判断光标行位置函数 COL(判断光标列位置函数

INKEY([<数值表达式>]检测用户所击键对应的ASCII码函数,数值表达式以秒为单位等待击键的时间

6、其他函数 函数用途

DISKSPACE(返回默认磁盘驱动器中可用字节数函数 OS(检测操作系统名称的函数 VERSION(返回VFP版本号的函数 VFP命令、函数及程序语句大全(3

三、主要程序语句

1、条件判断语句 格式:(1IF <条件> <命令语句组>

ENDIF 说明:如果条件为真,则执行命令语句组中的各语句,否则跳过这些命令语句不执行, 而执行ENDIF后的语句。(2IF <条件> <命令语句组1> ELSE <命令语句组2> ENDIF 说明:如果条件为真,执行命令语句组1,否则执行命令语句组2。(3IF <条件1> IF <条件2> <命令语句组1> ELSE <命令语句组2> ENDIF...ELSE <命令语句组N>

ENDIF 说明:进行多重条件的嵌套选择。(4DO CASE CASE <条件1> <命令语句组1> CASE <条件2> <命令语句组2> CASE <条件3> <命令语句组3>......CASE <条件N> <命令语句组N> [OTHERWISE] [<命令语句组N+1>] ENDCASE 说明:依次判断条件,转入条件为真的命令语句组中执行。当所有条件都不成立时,若有

OTHERWISE项,则执行命令语句组N+1,否则执行ENDCASE后面的语句。

2、循环语句

格式:(1DO WHILE <条件> <命令语句组> [LOOP] <命令语句组> [EXIT] <命令语句组> ENDDO 说明：判断条件是否为真，如为真就重复执行循环体中的命令语句组，直到条 件为假，结束循环。（2）SCAN <命令语句组> ENDSCAN 说明：在一个表中建立一个执行命令语句组的循环，并执行对每一条记录的操 作，直到表文件 记录完为止。