vfp面向过程例题

1、精选优质文档-倾情为你奉上程序设计典型例题分析第一部分 数学问题一、基本算法：数学数值问题的基本运算主要涉及到的算法有：累加、累乘、整除和求余数。1、累加主要是通过循环变量来控制循环结构，一般有两个变量，一是循环变量I和累加值变量S。主要语句有：S=0 && 累加结果变量初始化 && STORE 0 TO I, S FOR I = 初始值 TO 终止值 STEP 步长&& DO WHILE <条件表达式>循环体内语句系列 S = S+AS=S+F (I)I = I + 1ENDFOR && ENDDO？S &&

2、amp;输出累加结果S && ？S &&输出累加结果S例如：计算前十个整数的和。SET TALK OFFCLEARS=0N=1DO WHILE N<=10 S=S+N N=N+1ENDDO?"1+2+3+.+10=", SSET TALK ONSET TALK OFFCLEARS=0FOR N=1 TO 10S=S+NENDFOR?"1+2+3+.+10= " +STR (S, 6)SET TALK ON思考：统计前100个整数中既能被4整除，又能（或者）被7整除的整数的个数，并计算其和值。（详见典型例题）2、累乘主

3、要是通过循环变量来控制循环结构，一般有两个变量，一是循环变量I和累乘值变量S。S=1 && 累加结果变量初始化 && STORE 1 TO I, S FOR I = 初始值 TO 终止值 STEP 步长&& DO WHILE <条件表达式>循环体内语句系列 S = S*AS=S*F (I)I = I + 1ENDFOR && ENDDO？S &&输出累加结果S && ？S &&输出累加结果S3、整除主要采用取整函数INT（）、求余函数MOD（）和求余运算符%。设X，Y均为

4、整型数值表达式，判断X是否被Y整除的表达式的常用方法有：（1）INT（X/Y）=X/Y（2）MOD（X，Y）=0（3）X%Y=0（4）X-Y*INT（X/Y）=04、求余数主要采用取整函数INT（）、求余函数MOD（）和求余运算符%。设X，Y均为整型数值表达式，求X被Y整除后余数的表达式的常用方法有： （1）X-Y*INT（X/Y） （2）MOD（X,Y） （3）X%Y5、两个变量值的置换对两个数的置换，主要处理的是将两个变量的值进行互换。设有两个变量X，Y，通过中间变量T和赋值语句后，将X和Y变量值互换。T=XX=YY=T6、求一组数的最大值和最小值设在数组A有10个元素，且都已赋值，现要求

5、这10个元素中的最大值，可采用两两相互比较后再使用两变量值置换的语句来完成。其主要算法有：MAX=A(1) && 创建最大值变量MAX，并将A（1）赋值给MAXMIN=A(1) && 创建最大值变量MAX，并将A（1）赋值给MAX* 将数组的每一个变量与MAX或MIN比较后,改变MAX和MIN的值FOR I=2 TO 10 IF A(I)>MAXMAX=A(I) ENDIF IF A(I)<=MINMIN=A(I)ENDIFENDFOR? MAX, MIN &&输出最大值和最小值7、求两个数的最大公约数和最小公倍数用2至这两个数的最小

6、值之内任何一个数作为一个循环变量去除这两个数，若能找到一个数能同时被这两个数整除。则这个数就是他们的最大公约数，而这两个的乘积除以最大公约数后得到的值就是这两个数的最小公倍数。设有两个变量X，Y，中间变量I，主要的算法有：N=MIN（X，Y）FOR I=N TO 1 STEP 1IF X/I=INT（X/I）AND INT（Y/I）=Y/IGYS=IEXITENDIFENDFOR? ”最大公约数为:”GYS? ”最小公倍数为:”, X*Y/GYS && ? ”最小公倍数为:”, Y*X/GYS8、判断X是否是素数（质数、完数）素数：除被1和本身整除外不能被其他数整除。用2至X之

7、内的任一数去除X，若找到一个数能被X整除，则表示X不是素数，否则X是一个素数。常用算法：FOR I=2 TO X-1IF X%I=0 或 INT（X/I）=X/I 或 MOD（X，I）=0 EXITENDIFENDFORIF I=X ？X，“是一个素数”ELSE ？X，“不是一个素数”ENDIF9、从十进制整数中取出数码将该数值除10后取余数，可得到该数值中的个位数码，然后用该数值除以10后的商去替代该数值，再除以10取其余数，得到十位数数码，依次类推，直到得到的商为零为止。设X是一个整数，其常用的得法有：I=1DO WHILE N>0P=MOD(N,10) && 取某位

8、的数码? ”该数值从右往左第”+STR(I)+”位的数码为:”, P N=INT（N/10）IF N=0EXITENDIF I=I+1ENDDO思考题：使用FOR语句改写上述问题。提示：先把数转换为字符串，计算串长，然后循环。注意：数据类型的转换。10、判断一个数是否是一个整数、正整数、奇数或偶数（1）正整数IF INT（X）=X AND ABS（X）=X && 整数: INT（X）=X? X，“是一个正整数！”ELSE? X，“不是一个正整数！”ENDIF（2）奇、偶数IF INT（X/2）=X/2？X，“是一个偶数！”ESLE？X，“是一个奇数！”ENDIF二、典型例题1、

9、求1到100所有自然数的奇数之和。SET TALK OFFCLEARS=0FOR I=1 TO 100 step 2 S=S+IENDFOR? "1到100所有自然数的奇数之和为：", S SET TALK ON问题：（1）求从1到100的所有偶数之和。SET TALK OFFCLEARS=0FOR I=2 TO 100 step 2 S=S+IENDFOR?"从1到100的所有偶数之和为：", S SET TALK ON（2）求从1到N的所有被3整除的自然数之和，其中N的值可由用户通过键盘输入。SET TALK OFFCLEARINPUT 'N

10、=' TO nS=0FOR I=3 TO n step 3 S=S+IENDFOR?"求1到N所有被3整除的自然数之和为：", S SET TALK ON（3）求从1到N之间所有整数的平方和并输出结果。SET TALK OFFCLEARINPUT 'N=' TO nS=0FOR I=1 TO n S=S+I2ENDFOR?"从1到N之间所有整数的平方和为：", S SET TALK ON（4）上述程序采用DO WHILE ENDDO应如何编写？（5）统计前100个整数中既能被4整除，又能被7整除的整数的个数，并计算其和值。SET

11、TALK OFFCLEARN=0S=0 && STORE 0 TO N, SFOR I=1 TO 100IF I%4=0 AND I%7=0N=N+1S=S+IENDIFENDFOR? "Number =", N, "Sum=", SSET TALK ONSET TALK OFFCLEARN=0S=0FOR I=4 TO 100 STEP 4IF I%7=0N=N+1S=S+IENDIFENDFOR? "Number =", N, "Sum=", SSET TALK ONSET TALK OFFCL

12、EARN=0S=0FOR I=7 TO 100 STEP 7IF I%4=0N=N+1S=S+IENDIFENDFOR? "Number =", N, "Sum=", SSET TALK ONSET TALK OFFCLEARN=0S=0FOR I=28 TO 100 STEP 28N=N+1S=S+IENDFOR? "Number =", N, "Sum=", SSET TALK ON2、求10！SET TALK OFFCLEART=1FOR I=1 TO 10T=T*IENDFOR?"10！为：&qu

13、ot;, TSET TALK ON3、从正整数K到M值的阶乘之和，其中K和M的值均由用户通过键盘输入。SET TALK OFFCLEARINPUT "K=" TO K && 改成 ACCEPT "K=" TO K 行吗，请说明理由INPUT "M=" TO MS=0FOR I=K TO MT=1 FOR J=1 TO I T=T*J ENDFORS=S+TENDFOR? STR(K,2)+"!+"+STR(M,2)+"!=",SSET TALK ON 思考题：对任意N，计算1!+

14、2!+N!SET TALK OFFCLEARINPUT "N=" TO NS=0FOR I=1 TO NT=1 FOR J=1 TO I T=T*J ENDFORS=S+TENDFOR? 1!+"+STR(N,2)+"!=", SSET TALK ON SET TALK OFFCLEARINPUT "N=" TO NS=0T=1FOR I=1 TO N T=T*I S=S+TENDFOR? 1!+"+STR(N,2)+"!=", SSET TALK ON 4、设计程序：Y=X-X3/3！+X5/

15、5！-X7/7！+Y=(-1)2X + (-1)3X3/3！+ (-1)4X5/5！+ (-1)5X7/7！+其中表达式的项目有10项，X值由用户通过键盘中输入，请求出Y的值SET TALK OFFINPUT "X=" TO XS=0P=1FOR I=1 TO 10 K=2*I-1FZ=XKFM=1FOR J=1 TO K FM=FM*JENDFORS=S+P*FZ/FM && S=S+(-1)(i+1)*FZ/FM P=-PENDFOR? "Y的值为：", SSET TALK ON问题：（1） 利用公式SIN（X）= X-X3/3！+X

16、5/5！-X7/7！+，直到最后一项的绝对值小于等于10-5为止。SET TALK OFFINPUT "X=" TO XS=0P=1I=1DO WHILE .t. && DO WHILE FZ/FM >= 10E-5 K=2*I-1FZ=XKFM=1FOR J=1 TO KFM=FM*JENDFORIF FZ/FM < 10E-5EXITENDIFS=S+P*FZ/FM P=-P I=I+1ENDDO? "Y的值为：", SSET TALK ON（2）利用公式ex=1+x+x2/2!+x3/3!+xn/n!，输入x和N，计算e

17、x的近似值SET TALK OFFINPUT "X=" TO XINPUT "N=" TO NS=0FOR I=0 TO NFZ=XIFM=1FOR J=1 TO IFM=FM*JENDFORS=S+FZ/FMENDFOR? "Y的值为：", SSET TALK ON5、输出从3到10以内的自然数中所有素数SET TALK OFFM=3DO WHILE M<10N=2 && FOR N=2 TO M-1DO WHILE N<M && IF INT (M/N)=M/NIF INT (M/N)=

18、M/N && EXITEXIT && ENDIFENDIF && ENDFORN=N+1 && IF N=MENDDO && ? MIF N=M && ENDIF? MENDIFM=M+1ENDDOSET TALK ONSET TALK OFFM=3DO WHILE M<10FOR N=2 TO M-1IF INT (M/N)=M/NEXITENDIFENDFORIF N=M? MENDIFM=M+1ENDDOSET TALK ONSET TALK OFFFOT M=3 TO 9FOR N=2

19、 TO M-1IF INT (M/N)=M/NEXITENDIFENDFORIF N=M? MENDIFENDFORSET TALK ON问题：（1）求出从1到100的所有素数的个数。SET TALK OFFK=0FOR M=1 TO 100 FOR N=2 TO M-1IF INT (M/N)=M/NEXITENDIFENDFORIF N=MK=K+1ENDIFENDFOR? KSET TALK ON （2）求出从1到100的所有素数之和。SET TALK OFFK=0S=0FOR M=1 TO 100 FOR N=2 TO M-1 IF INT (M/N)=M/N EXIT ENDIFEN

20、DFOR IF N=M S=S+N K=K+1 ENDIFENDFOR? K, SSET TALK ON6、对输入的正整数，判别其中包含指定数码的个数（如中包含数码2的个数为3）。SET TALK OFFINPUT "M=" TO M &&输入正整数INPUT "N=" TO N &&输入在正整数中包含的数码S=0 &&采用累加DO WHILE .T. &&永真循环 && DO WHILE M<>0 Y=MOD(M, 10) IF Y=N S=S+1 ENDIF

21、M=INT(M/10) IF M=0 EXIT ENDIFENDDO? SSET TALK ONSET TALK OFFINPUT "M=" TO M INPUT "N=" TO NS=0DO WHILE M>0 Y=MOD(M, 10) IF Y=N S=S+1 ENDIF M=INT(M/10)ENDDO? SSET TALK ON7、从键盘中输入10个数，去掉一个最大数和最小数，然后求平均值。SET TALK OFFCLEARINPUT “N=” TO NSTORE N TO MAX, MIN, SFOR I=1 TO 9 INPUT “N=

22、” TO N IF MAX<NMAX=NENDIFIF MIN>NMIN=NENDIFS=S+NENDFOR?”平均值=”, (S-MAX-MIN)/8SET TALK ON问题：（1）从键盘中输入3个数值A，B，C，将它们从小到大排列后输出。SET TALK OFFINPUT "A=" TO AINPUT "B=" TO BINPUT "C=" TO CIF A>B T=A A=B B=TENDIFIF A>C T=A A=C C=TENDIFIF B>C T=B B=C C=TENDIF?A,B,CS

23、ET TALK ON（2）任意输入20个数，按从小到大进行排列。（简单；冒泡）input "N=" to Ndimension A(N) for i=1 to Ninput "A("+Alltrim(str(i)+")=" TO A(i) && INPUT TO A(i)endforfor i=1 to n for i=n to 1 step -1for j = i to n for j = 1 to i-1if a(i)>a(j) if a(j) < a(j+1)t = a(i) t = a(j)a(i)

24、 = a(j) a(j) = a(j+1)a(j) = t a(j+1) = tendif endforendforfor i=1 to N? a(i)endfor 8、数组问题：设计程序实现矩阵的转置。SET TALK OFFINPUT "N=" TO NDIME A (N, N)FOR I=1 TO NFOR J=1 TO N INPUT "A ("+STR (I, 1)+","+STR (J, 1)+")=" TO A(I,J) && INPUT TO A(I,J)ENDFORENDFORFO

25、R I=1 TO NFOR J=1 TO IT=A (I, J)A (I, J)=A (J, I)A (J, I)=TENDFORENDFORFOR I=1 TO NFOR J=1 TO N? STR( A(I,J), 6)ENDFOR?ENDFORSET TALK ON问题：杨辉三角形。课本P208页的程序阅读题第4题。（详见字符信息处理的5（1）第二部分 字符信息处理一、基本算法：1、常用的字符处理函数（1） SPACE（N）（2） LEN（S）（3） SUBSTR（S，N1，N2）（4） C=C+P && C, P均为字符型变量（5） CHR (ASC(C)+N)（6）

26、ALLTRIM (STR (N1, N2, N3)（7） STR (N1, N2, N3)（8） IIF(条件表达式,C1,C2)（9） LEFT(S, N)（10） RIGHT(S, N)2、字符串的粘合C = ”ABCDE” 字符串 &&由用户输入初始化的字符串S = ” 或 S=SPACE(0)L=LEN(C)FOR I=1 TO L S=S+SUBSTR(C,I,1) &&改成 S=SUBSTR(C,I,1)+S 有何不同ENDFOR? C+”à”+S3、阿拉伯数字转换为中文大写数字set talk offINPUT "N="

27、; TO NM =NL = LEN(ALLTRIM(STR(N)C ="一二三四五六七八九" && C = "零壹贰叁肆伍陆柒捌玖"S = ""FOR I=1 TO L P=MOD (N, 10) S=SUBSTR(C, 2*P+1, 2) + S N=INT (N/10)ENDFOR? ALLTRIM (STR (M)+" ->> " + Sset talk on4、图案的输出采用SPACE(N)来控制每行中的首字符在屏幕中的位置和字符间的间隔。采用STR(N)函数将数值型数据转换为字

28、符型; VAL（）采用SUBSTR(C,N1,N2)函数对字符串进行取子串。采用LEFT(C, N), RIGHT(C, N) 对字符串进行取左右侧子串。特殊图案采用CHR(ASC(C)+N)进行不同字符的输出，尤其是英文字母的输出。例：采用正直角三角形的形式输入九九乘法表FOR I=1 TO 9FOR J=1 TO I? STR(I,1)+"*"+STR(J,1)+"="+STR(I*J,2) +SPACE(2)ENDFOR ? ENDFORFOR I=1 TO 9? SPACE(8*(9-I)FOR J=1 TO I? SPACE(2)+STR(I,

29、1)+"*"+STR(J,1)+"="+STR(I*J,2)ENDFORENDFOR* * * *二、典型例题1、编写一个程序，显示输出给定的字符串表达式倒置字符串（包含数字字符串、英文字母字符串和汉字字符串）。SET TALK OFFCLEARACCEPT "请输入字符串：" TO CS=""L=LEN(C)FOR I=1 TO L S=SUBSTR(C,I,1)+SENDFOR?C+"->"+SSET TALK ON汉字字符串=FOR I=1 TO LV=ASC(SUBSTR(C,I,

30、1)IF V>=48 AND V<=57 OR V>=65 AND V<=90 OR V>=97 AND V<=122S=SUBSTR(C,I,1)+S ELSES=SUBSTR(C,I,2)+SI=I+1 ENDIFENDFOR2、编写一个口令验证程序，要求有三次输入口令的机会，输入正确，显示“欢迎使用本系统”，否则显示“你无权使用本系统”。口令可采用固定字符串，也可以采用在已有的表文件读取相关的字段值。SET TALK OFFCLEARI=1DO WHILE I<=3 ACCEPT "请输入口令" to pass IF ALLT

31、RIM (PASS)="ABCD" ?"欢迎使用本系统！" * DO MyMain ELSE ?"口令错误！请重新输入！" ENDIF I=I+1 IF I>3 ?"你无权使用本系统!" EXIT ENDIFENDDOSET TALK ON =SET TALK OFFCLEARFOR I=1 TO 3 ACCEPT "请输入口令" to pass IF ALLTRIM (PASS)="ABCD" ?"欢迎使用本系统！" * DO MyMain ELS

32、E ?"口令错误！请重新输入！" ENDIFENDFORIF I=4 ? "你无权使用本系统!" EXITENDIFSET TALK ON 3、编写一个程序，将数字日期转换成中文大写形式SET TALK OFFINPUT "请输入日期" to XY=YEAR(X)M=MONTH(X)D=DAY(X)C="一二三四五六七八九十"S=""FOR I=1 TO 4 P=MOD(Y,10) S=SUBSTR(C,2*P+1,2)+S Y=INT(Y/10)ENDFORS=S+"年"I

33、F M<=10 S=S+SUBSTR(C,2*M+1,2)ELSE S=S+"十"+SUBSTR(C,2*MOD(M,10)+1,2)ENDIFS=S+"月"DO CASE CASE D<=10 S=S+SUBSTR(C,2*D+1,2) CASE D<=19 S=S+"十"+IIF(MOD(D,10)=0,"",SUBSTR(C,2*MOD(D,10)+1,2) OTHERWISES=S+SUBSTR(C,2*INT(D/10)+1,2)+"十"+ ; IIF(MOD(D,1

34、0)=0,"", SUBSTR(C,2*MOD(D,10)+1,2)ENDCASES=S+"日"? SSET TALK ON4、编写一个程序，将输入的金额采用中文大写形式输出。 SET TALK OFFCLEARINPUT "请输入金额" TO JINERP=JINER*100M=ROUND(P, 0)C1="零壹贰叁肆伍陆柒捌玖"C2="分角元拾佰仟万拾佰仟亿拾佰仟"I=0C=SPACE(0)DO WHILE .T. N=MOD(M,10) C=SUBSTR(C1,2*N+1,2)+SUBST

35、R(C2,2*I+1,2)+C I=I+1 M=INT(M/10) IF M=0 EXIT ENDIFENDDO? STR(JINER,19,4)+"->"+CSET TALK ON5、阅读程序，写出程序运行的结果：主要是图案的输出，（1）数字图案的输出：采用数组形式。SET TALK OFFCLEARINPUT "N=" TO NDIME A(N,N)FOR I=1 TO N A(I, I)=1 A(I, 1)=1ENDFORFOR I=3 TO N FOR J=2 TO I-1 A(I,J)=A(I-1,J-1)+A(I-1,J) ENDFOR

36、ENDFORFOR I=1 TO N FOR J=1 TO I ?STR(A(I,J),3) ENDFOR ?ENDFORSET TALK ON=FOR I=1 TO N ?SPACE(3*(N-I+1) FOR J=1 TO I ?STR(A(I,J),3) ENDFOR ?ENDFORSET TALK ON111121133114641111121133114641（2）字母图案的输出：采用CHR（ASC（C）+N）函数。 SET TALK OFFCLEARINPUT "N=" TO NFOR I=1 TO N ? SPACE(N-I+1) FOR J=1 TO 2*I

37、-1 ?CHR(ASC('A')+I-1) && ?CHR(65+I-1) ENDFORENDFORFOR P=N-1 TO 1 STEP -1 ? SPACE(N-P+1) FOR K=1 TO 2*P-1 ?CHR(ASC('A')+P-1) ENDFORENDFORSET TALK ON A BBB CCCCC DDDDDDD CCCCC BBB A第三部分 表文件信息处理一、基本函数1、 宏替换：&2、 名称表达式：（变量名）3、 EVALUATE（表达式）：计算表达式的值。4、 FILE(S)：判断文件是否存在，若存在，该函数返

38、回.T.，否则返回.F.。5、 FOUND()：函数一般与记录查找命令结合使用。6、 FCOUNT()：表示当前表的字段数7、 FIELDS（N）：返回当前表第N个字段的名称8、 FSIZE：表示当前表的字段总长度9、 RECNO()：返回当前表的当前记录号10、 RECCOUNT()：返回当前表的总记录数11、 DELETE()：若当前记录已作删除标记，该函数返回.T.，否则返回.F.12、 BOF()或EOF()：用来测试表文件开始状态或结束状态。13、 SET FILTER TO 逻辑表达式二、典型例题1、文件的打开、查询、关闭和删除SET TALK OFFCLEARDO WHILE .

39、T.ACCEPT "请输入要删除的表文件名(扩展名略)：" TO FILENAMEFILENAME=TRIM(LTRIM(FILENAME)+".DBF"IF !FILE(FILENAME) &&判断文件是否存在ACCEPT "该文件不存在！继续吗?(Y/N)" TO YNIF UPPER(YN)="N"EXITENDIFELSEUSE (FILENAME) &&打开表文件LISTWAIT "是这个文件吗?(Y/N)" TO YNIF LOWER(YN)=&quo

40、t;y"USE &&关闭表文件DELETE FILE &FILENAME &&删除表文件EXITELSEWAIT "继续吗?(Y/N)" TO YNIF LOWER(Y/N)="n"USEEXITENDIFENDIFENDIFENDDOSET TALK ONx='1+1'? (x) && 输出： 1+1? &x && 输出： 2问题：阅读和理解课本P206中的三（4）的程序。2、表文件内的字段的添加、删除和查询（1）添加新记录SET TALK OFF

41、CLEARDO WHILE .T.ACCEPT "请输入学生学号:" TO XHACCEPT "请输入学生姓名:" TO NAMEINPUT "请输入性别(逻辑型):" TO XBINPUT "请输入出生年月" TO DATEINPUT "请输入学生奖学金" TO JXJUSE 学生APPEND BLANKREPLACE 学号 WITH XH, 姓名 WITH NAME, 性别 WITH XB, ; 出生年月 WITH DATE, 奖学金 WITH JXJWAIT "是否继续输入学生信

42、息(Y/N)" TO YNIF UPPER(YN)="Y" LOOPELSE EXITENDIFENDDOSET TALK ON（2）删除指定的记录SET TALK OFFCLEARDO WHILE .T. ACCEPT "请输入要删除的学号" TO XH USE 学生 LOCA FOR 学号=XH && 如果使用SEEK，则需要先建立索引 IF !FOUND() ?"指定的学生不存在!" ELSE DELE SET DELETE ON && PACK ENDIF WAIT "是否继

43、续(Y/N)" TO YN IF LOWER(YN)="Y" LOOP ELSE EXIT ENDIFENDDOSET DELETE OFFUSESET TALK ON（3）查询记录SET TALK OFFCLEARACCEPT "请输入学生学号" TO XHUSE 成绩LOCA FOR 学号=XHDO WHILE !EOF() DISP CONTINUEENDDOSET TALK ON3、统计字段数、显示字段名。SET TALK OFFCLEARACCEPT "请输入表文件名（扩展名略）" TO FILENAMEFILEN

44、AME=FILENAME+".DBF"IF !FILE(FILENAME) ?"你所指定的表文件在当前文件夹内并不存在！"ELSE USE (FILENAME) FOR I=1 TO FCOUNT() ?FIELDS(I) ENDFOR ?”该表文件共有”+STR(RECCOUNT()+”条记录” ACCEPT "请输入查询条件" TO EXPR SET FILTER TO &EXPR DISP ALL && LIST FOR & EXPR COUNT TO P FOR !DELETE() ?”共查询到

45、”+STR(P)+”到符合条件的记录” SET FILTER TO USEENDIFSET TALK ON4、记录中某字段值的改变（REPLACEWITH），为指定的学生的奖学金增加50元SET TALK OFFCLEARYN="Y"USE 学生DO WHILE UPPER(YN)="Y" &&采用永真循环结构 ACCEPT "请输入学生学号" TO XH LOCA FOR 学号=XH * 使用REPLACEWITH语句修改指定记录的字段 REPL 奖学金 WITH 奖学金+50 DISP WAIT "是否继

46、续（Y/N）" TO YNENDDOSET TALK ON5、制表结构、表内容的复制和大量数据追加SET TALK OFFCLEARUSE 学生 IN 1IF FILE("STUDENT.DBF") DELE FILE STUDENT.DBFENDIFCOPY STRU TO STUDENTUSE STUDENT IN 2SELE 2APPEN FROM 学生 FOR 性别DISP ALLUSE SELE 1USESET TALK ON6、用SCATTER TO 和GATHER FROM命令对表进行操作。SET TALK OFFDIME A(7) &&定义一个七个元素的一维数组变量IF FILE("STUD.DBF") &&判