《计算机软件基础》word版.doc

已知三角形的三个边长a,b,c,计算面积S。#includemain() float a,b,c,s; scanf(“%f %f %f”,&a,&b&c); s=area(a,b,c); printf(“s=%f”,s);float area(x,y,z) /*自定义函数*/ float x,y,z; float p,s; p=(x+y+z)/2; s=sqrt(p*(p-x)*(p-y)*(p-z); return(s); +,-*,/,%!,+,(类型),*p,&,sizeof(),-,优先级：从高低一个班30人的考试分数，计算平均分并统计80分以上有多少人。main() int k=0,k1=0,n=30; float x,s=0,aver; do sacnf(“%f”,&x); s=s+x; k=k+1; if(x80)k1=k1+1; while(k=,=,&=,=,|=&|?,:=,!=,=ASCII:0048、9057、A65、Z90、a97、z122；aA：x=a;x=x-32;两个float相遇，都转换为double。逻辑表达式由：算术表达式、关系表达式、逻辑运算符组成。编写简单的收款程序，要求输入一种商品的单价x和数量n，输出收款次数k、收款数y和累计收款数s。main() float x,y,s=0; int n,k=0;start: printf(“Please input x,n=?”); scanf(“%f %d”,&x,&n); k+;y=x*n;s=s+y; printf(“Press any key to continue or Pressc EXIT !”);getch();goto start;超过一个以上的语句称为：复合语句。第三章 C语言的顺序结构通过键盘输入一个英文字母，输出该字母的下一个字母；#includemain() char c; c=getchar(); putchar(c+1);一动点k从坐标原点O向A移动，动点只能在x或y方向移动一个步长，要求尽可能沿OA直线移动。main() int k=0,n; float f,xa,ya,d,x=0,y=0; printf(“please input xa,ya,d=”); n=(xa+ya)/d; while(k=0)x=x+d;else if(f=0) y=y+d; k+; printf(“The end! k=%3d,n=%3d”,k,n); getch(); 从键盘输入一个字母，如果是小写则改成大写。#includemain() char c; c=getche(); if(c=a&c=z) c=c-32; putchar(c);矩形法计算定积分#includemain() int i,n;float a,b,h,s=0,f0,x;printf(“please input a,b,n=?n”);scanf(“%f%f%d”,&a,&b,&n);h=(b-a)/n;x=a;f0=exp(x);for(i=1;i=n;i+) s=s+f0*h; x=x+h; f0=exp(x); printf(“s=%8.6fn”,s);getch();s=02exdxs=1+122+132+1n2, 直到1n2=0.0045); printf(“i=%d,s=%fn”,i,s); getch();第5页，共13页检查和修改原始数据：逐个输入三个整数，然后重新编号显示这三个数据，提示用户是否修改(y/n?)，用户回答字符y或Y，则请用户按编号回答要修改哪一个数据，然后修改。#includemain() int a,b,c,k; char ch; printf(“please input a,b,c=?n”); scanf(“%d %d %d”,&a,&b,&c); printf(”1.a=%d 2.b=%d 3.c=%dn”,a,b,c); printf(“Do you want to modify (y/n)?n”); ch=getche(); if(ch=y&ch=Y); printf(“nplease select 1,2,3 !”);start: scanf(“%d”,&k); switch(k) case 1: printf(“please input a=”);scanf(“%d”,&a);break; case 2: printf(“please input b=”);scanf(“%d”,&a);break; case 3: printf(“please input c=”);scanf(“%d”,&a);break;if(k0&k4) printf(“Press any key to continue”); getch(); goto start;printf(“1.a=%d 2.b=%d 3.c=%dn”,a,b,c); getch();用二分法求解方程2x3-4x2+3x-6=0，在有根区间-10,10内有根。(普通)#includemain() float a=-10,b=10,c,e=0.001,fa,fc; int k=0; do c=(a+b)/2;k+; fa=2*a*a*a-4*a*a+3+a-6; fc=2*c*c*c-4*c*c+3*c-6; if(fa*fce); printf(“root is %8.4fn”,c);用二分法求解方程x3-3x-1=0，在区间1,2内有根。(函数)#includefloat f();float root();main() float a=1,b=2,rt; rt=root(a,b); printf(“rt=%fn”,rt);float f(x) float x; float fx; fx=x*x*x-3*x-1; return(fx);float root(a,b) float a,b; float c; doc=(a+b)/2.0; if(f(a)*f(c)0)a=c; else b=c; while(fabs(b-a)0.0001); return(c);用牛顿迭代计算代数方程f(x)=x3-3x-1=0的根。#includemain() float x0=1.5,x1,e=0.001,f,f1; int k=0,n=50; while(fabs(x1-x0)e&kn)/*e为控制精度*/ x0=x1; f=x0*x0*x0-3*x0-1; f1=3*x0*x0-3; /*导数*/ x1=x0-f/f1; k+; printf(“f=%3d,x1=%8.4f,x0=%8.4fn”,k,x1,x0); if(kn error !n”);用二分法求解方程x3-3x-1=0，在区间1,1.5内有根。(指针)float rt(a,b,fun) float a,b,(*fun)(); float c;while(fabs(b-a)0.0001); c=(a+b)/2.0; if(*fun)(a)* (*fun)(c)0)a=c; else b=c; return b=c;float f1(x) float x; float f; f=x*x*x-x-1;return(f);main() float a=1,b=1.5,root; root=rt(a,b,f1); printf(“root=%fn”,root);计算S=1-2+3-4+-10。main() int I,t=1,s=0,m; for(I=1;I=10;I+) m=I*t ; s=s+m ; t=-t ; printf(“%dn”,s);计算s=1-13+15-17+直到最后一项0.001。#includemain() int a; float n,t,s; t=1;s=0;n=1.0;a=1; while(fabs(t)0.001) s=s+t; n=n+2; a=-a; t=a/n; printf(s=%fn,s); 用数组处理Firbonacci数列main() int i; int f20=1,1; for(i=2;i20;i+) fi=fi-2+fi-1; for(i=0;i20;i+) if(i%5=0) printf(“n”);printf(“%12d”,fi);用100元钱买100支笔，其中钢笔3元/支，圆珠笔2元/支，铅笔0.5元/支，问钢笔、圆珠笔和铅笔可以各买多少支？main() int i,j,k,m,n; for(i=1;i=33;i+) /*i为钢笔*/ for(j=1;j=50-i;j+) /*j为圆珠笔*/for(k=1;k=100-i-j;k+);/*k为铅笔*/ m=i+j+k; n=i*3+j*2+k*0.5; if(m=100&n=100) printf(“i=%d,j=%d,k=%dn”,i,j,k); 求n个数据中的最大值最小值main() int a100,amax,amin,i,n; printf(“please input n=?(n=100)”); scanf(“%d”,&n); for(i=0; in; i+)scanf(“%d”,ai); amax=0; amin=a0; for(i=1; in; i+) if(amaxai) amin=ai; printf(“amax=%f,amin=%fn”,amax,amin);计算自由落体距离地面的高度：h=h0-(v0t+gt2/2),其中h0为初始高度，v0为初速度，t为时间，g为重力加速度，计算t=0,1,2,3,4,5时落体距离地面的高度h=?又计算落体落到地面时的时间t0=?#includemain() float h0,t0,v0,t,a,b,c,h,d,p,q,x1,x2,g=9.8; printf(Please input h0,v0=); scanf(%f,%f,&h0,&v0); for(t=0;t0) t0=x1;else t0=x2; printf(t0=%fn,t0); 在一维数组a中查找aa，顺序查找，如果查到了输出相关信息，没有就打印not found，并提示是否继续。main() char c; int a=1,3,5,7,9,11,13,15,17,19; int i,ok,aa,n=10;doprintf(“nplease input aa=”);scanf(“%d”,&aa); ok=0; for(i=0; in; i+) if(aa!=ai) continue;printf(“ok i=%d,aa=%dn”,i,ai); ok=1; break; if(ok=0) printf(“not found! i=%dn”,i); printf(“Do you want to continue(y/n)?”); c=getch(); while(c=Y|c=y); printf(“good bye!n”); getch();冒泡排序（小大）main() int a=9,1,8,2,7,3,6,4,5,i,j,aa,n=9,k=1; while(k) k=0; for(i=0; iai+1) aa=ai;ai=ai+1;ai+1=aa;k=1 for(i=0; in; i+) printf(“%d”,ai); printf(“n”); getch();输入n个评为的评分，计算并输出参赛选手的最后得分，计算方法为去除一个最高分，去除一个最低分，其余的平均分为参赛选手的最后得分，从（小大）输出参赛选手的最后得分。main()int a11; int i,j,t,n; float sum=0.0,av; printf(nPlease input n=); scanf(%d,&n); printf(Please input n numbers:); for(i=1;in+1;i+) scanf(%d,&ai); for(j=1;j=n-1;j+) for(i=1;iai+1)t=ai;ai=ai+1;ai+1=t; printf(the sorted numbers:); for(i=2;i2，函数值为正整数。12，函数值为负整数。6.strlen(字符数组)测试字符串长度。7.strlwr(字符串)将字符串的大写字母改成小写字母。8.strupr(字符串)将字符串的小写字母改成大写字母。计算23int power(x,n)int x,n int i,p=1;for(i=1;i=n;i+) p=p*x; return(p);main() printf(“%d”,power(2,3);n!非递归调用long fact(n)int n; int f=1,i; for(i=1;i=n;i+) f=f*i; return(f);C语言提供了一系列的通用函数放在函数库中，称为库函数。有关这些库函数的定义和说明时放在相应的h文件中，称为头文件。1. 输入输出类：stdio.h2. 数学类：math.h3. 字符类：ctype.h4. 字符串：string.h5. 动态存储分配类：stdlib.h6. 时间类：time.h7. 字符屏幕：stdio.h8. 图形功能：graphics.h9. 接口库函数：dos.h描述一个函数所执行算法的过程称为：函数定义。使用一个函数的过程称为：函数调用。3!主函数main() int n=3,m; /*3!*/ m=fact(n); printf(“%d!=%d”,n,m); n!递归调用long fact(n)int n; int f; if(n=1) f=1;else f=n*fact(n-1); return(f);1.变量的指针：变量存储单元的地址。2.指针变量：指存放存储单元地址的变量，保存的是另一个变量的地址，而不是值。3.指向变量的指针：如果一个指针变量存放了另一个变量的地址，那么这个指针就称为是指向该变量的指针。编写计算n的阶乘的C函数，并在主函数中调用该函数来计算。1/n!=0.0001); return(s); main() float s; int n; s=fact(n); printf(s=%fn,s); getch();计算三个数x,y,z之和及平均值float av; /*定义全局变量*/float sum(); /*说明函数*/main()float a,b,c,d; scanf(“%f%f%f”,&a,&b,&c); d=sum(a,b,c); printf(“av=%f,sum=%f”,av,d);float sum(x,y,z)float x,y,z; float s; s=x+y+z; av=s/3.0; return(s);r-从文本文件读数据；w向文件写数据，如果不存在，则新建；a向文本文件末尾追加数据；rb从二进制文件读数据；wb向二进制文件写数据；ab向二进制文件末尾追加数据；C的文件，C的文件分为两种类型：1.ASCII码文件，即文本文件；2.二进制文件，存储容量比AS CII少，缺点是不能在屏幕上直接原样显示该字符。C语言规定，通过文件指针FILE打开数据文件，在使用文件时必须有包含文件stdio.h。文件指针变量定义格式如下：FILE *文件指针变量名；如：FILE *fp；打开文件的格式如下：文件指针名=fopen(文件名字符串，使用方式字符串)；交换变量x，y数值int swap(x,y) /*函数的返回值为整型*/ int *x,*y; int z; /*z在函数体内是局部变量*/ z=*x; *x=*y; *y=z; printf(“x=%d,y=%d”,*x,*y);main() int a=1, b=2, *p1, *p2; p1=&a; p2=&b; swap(p1,p2); /*函数调用，以语句形式*/ printf(“a=%d,b=%d”,a,b);动态分配函数malloc()调用格式：(类型*)malloc(字节数)；sizeof()函数的函数值就是该变量类型所需要的字节数，例如sizeof(int)其函数值为2。用malloc()通常提供出错保护。int *p;size=sizeof(int);p=(int*)malloc(size);if(p=NULL) printf(“Out memory !n”)exit(0);文件不存在，出错保护FILE *fp;fp=fopen(a.dat,r); printf(Can not open this file !n); exit(0);计算数组元素中的最大最小值，函数的形参有数组名x，数组长度n，指针变量max和min；zdzx(z,n,max,min) int n,x,*max,*min; int *p; for(p=x ;p*max) *max=*p; if(*p*min) *min=*p; main() int a10,*p,amax,amin,*p1,*p2; for(p=a; pa+10; p+)scanf(“%d”,p); zdzx(a, 10, p1, p2); /*长度为10*/printf(“amax=%d,amin=%d”,amax,amin);从ASCII文件a.dat读数据#includemain() FILE *fp; char ch; fp=fopen(a.dat,r); printf(Can not open this file !n); exit(0); while(!feof(fp) /*读完时feof()函数值为1，停止循环*/ ch=fgetc(fp); /*从文件中读字符*/ printf(“the end !”); /*文件数据读完的信息*/ fclose(fp); /*读完后关闭文件*/第十章 FoxPro数据库的基本操作1. 数据管理技术的发展：人工管理、文件管理、数据库管理。2. 数据库管理的特点：数据库是结构化的、数据相对程序是独立的、数据是可以共享的。3. 数据库：数据库是可以共享、相互有关、以一定的结构组织起来的数据集合。“共享”、“相互有关”、“一定的结构”是关系到数据库本质的三个因素；“实现数据库共享”是数据库最本质的特点。4. 数据结构化模型先后有：层次模型、网状模型和关系模型等几种。5. 关系模型的特点：采用二维表格形式反映数据之间的关系，被认为是最有前途的一种数据模型。6. 二维表格一般由两个部分组成：一部分是表头（表格中的第一行），在关系数据库中称为“数据库结构”；另一部分是表格中填写的内容，在关系数据库中称为数据。二维表格称为二维关系，处理这种关系的数据库称为“关系数据库”。（数据库系统由：操作系统、数据库管理系统、应用程序，在硬件支持下形成的。）7. FoxPro使用的主要文件类型数据库文件：扩展名为 .DBF，是数据库系统最基本的文件。数据库明细文件：扩展名为 .FPT，用来存储数据库文件中的备注型字段和通用字段中的数据。索引文件：扩展名为.CDX或.IDX，是数据库的索引文件，其中IDX是与FoxBASE兼容的索引文件。命令文件：扩展名为.PRG或.FXP，前者是数据库程序文件；后者是编译后程序文件。内存变量文件：扩展名为.MEM，用来存放用户定义的内存变量。文本文件：扩展名为.TXT，用来保存数据库文件中的数据。8. 数据库文件由：数据库结构、数据两个部分组成。数据库结构的一个字段，需要由字段名、字段类型、字段宽度和小数位数四个参数来定义。一个汉字占两个字符。9. 表达式一般由参加运算的数、字段名变量、内存变量、函数、数组元素和运算符组成。一个表达式中的字段、函数、内存变量和数组元素必须是同一类型。10. 字符串是指：由单引号或双引号括起来的单个或多个字符。例如：FoxPro 或FoxPro 。+： abcd + de，其值为abcd de ，保留左边字符串尾部的空格。-：abcd - de ，其值为 abcdde 。：用来判断左边的字符串是否包含在右端的字符串中。例如： AB ABCD，其值为.t.。关系运算符：、=、=、=、(不等于)。真：.t.或.T.；假：.f.或.F.。逻辑运算符：.AND. (与&)、.OR. (或|)、.NOT. (非!)。11. 函数：ABS(X)计算X的绝对值的函数。 LEN(字符串)计算字符串长度的函数。&(字符变量)宏代换函数。 DTOC(日期型)日期型转换为字符型函数。FoxPro有关命令1. APPEND BLANK 增加一条空记录。2. USE 原数据库文件名 Alias 别名 为数据库文件提供一个别名。3. STORE 表达式(0) TO内存变量表(x, y, z) 赋值语句，或者 内存变量(x)=表达式(0)4. DIMENSION 数组名 (数组元素的长度) , 数组名 (数组元素的长度)5. LIST STRUCTURE TO PRINT或DISPLAY STRUCTURE TO PRINT显示数据库结构所有信息打印6. LIST 范围 FIELDS FOR WHILE OFF TO PRINTLIST 范围 ALL 显示全部记录； NEXT n 只显示从当前记录开始的n个记录；Record n 只显示第n个记录； REST 只显示从当前记录开始到最后一个记录；OFF 指定OFF则显示记录时不显示记录号。7. DISPLAY 范围 FIELDS FOR WHILE OFF TO PRINT DISPLAY 显示当前记录； DISPLAY ALL 显示全部记录；DISPLAY显示满屏后暂停8. GOTO TOP 将记录指针定位在数据库文件的第一个记录。GOTO BOTTOM 将记录指针定位在数据库文件的最后一个记录。GOTO n 将记录指针定位在数据库的第n个记录。 GOTO可以简写为GOSKIP +|-n +将指针向下移动n个记录；-将指针向上移动n个记录。RECNO(n) 测定第n工作区中数据库文件的当前记录指针的位置。例如：? RECNO() 测定当前工作区9. 删除记录：DELETE FOR 添加删除标记*；PACK 真正删除加*的记录；RECALL FOR 清除删除标记*；ZAP 无条件删除数据库文件中全部记录。10. 全屏幕修改命令：EDIT FIELDS FOR WHILECHANGE FIELDS FOR 或 BROWSE FIELDS 范围 FOR 11. 替换修改：REPLACE WITH FOR 如缺省范围则只对当前记录进行替换。12. 修改数据库结构：MODIFY STRUCTURE13. 复制：COPY TO 复制后新文件名 FIELDS FOR 如没有范围则完全备份。14. 复制数据结构：COPY STRUCTURE TO 新文件名 FIELDS15. 排序：SORT TO ON /A/C/D , /A：升序 /D：降序范围 FIELDSFOR /C：按照大写字母的ASCII码大小决定顺序最基本命令：SORT TO ON 16. 简单索引：INDEX ON TO COMPACT UNIQUE ADDITIVECOMPACT：以压缩格式建立索引文件，有此选项不再于FoxBASE兼容。UNIQUE：若加上，则当有多条相同时，只显示第一条记录。ADDITIVE：打开新建立的索引文件时，不关闭先前打开的索引，新的为主索引。不加，关闭先前索引。17. 复合结构型索引文件：INDEX ON TAG DESCENDING(降序) UNIQUE18. 非结构 ：INDEX ON TAG OF DESCENDING UNIQUE19. 打开索引文件：1.建立索引文件时，刚建立的索引文件，系统自动打开。2.USE INDEX ；SET ORDER TO ：多个索引文件之间切换。3.先打开数据库文件：USE ，再打开索引文件： SET INDEX TO 20. 顺序查询：LOCATE 范围 FOR CONTINUE21. 快速查找：FIND |；使用之前必须建立相应的索引文件，查询的值不能是表达式。SEEK ；建立相应的索引，可以用表达式查询，如果表达式是字符串，则字符串必须用引号括起来。22. 统计个数：COUNT 范围TO FOR 23. 求和：SUM 范围TOFOR；若缺省则对所有数值型字段求和。24. 平均值：AVERAGE 范围 TO FOR25. 分类求和：TOTAL ON TO 分类文件名 范围 FILED FOR；要求事先对数据库按命令所指定的关键字段名，生成索引，并打开。26. 选择当前工作区：SELECT 不同工作区互访：-27. 关联操作：SET RELATION TO | INTO ；要对关键字段建立索引。28. 数据库连接：JOIN WITH TO FOR FIELDS；为被链接数据库文件所在的工作区的区号，为连接以后新生成的数据库文件。29. 数据库文件之间追加数据：APPEND FROM FIELDS FOR如将A1中的记录全部向L1数据库文件中追加：USE L1APPEND FROM A1LIST 30. 数据库更新：UPDATE ON FROM REPLACE WITH RANDOM为两个数据库文件必须有相同字段名。是源数据库文件所在工作区的别名。为被更新的字段名，被更新的数据库文件所在的工作区作为当前工作区。为更新的内容RANDOM两个数据库文件应该按进行索引，并在不同的工作区打开。如果选择了RANDOM，则源数据库文件可以不必进行索引第13页，共13页第十一章 FoxPro程序设计1. 程序文件编辑器：MODIFY COMMAND 文件名|?或*2. 运行程序文件：DO 文件名3. 内存变量交互输入命令ACCEPT 提示字符串 TO 内存变量；等待用户键入一个字符串(不必加引号)，并赋给内存变量。INPUT 提示字符串 TO 内存变量；输入一个字符串(要加上双引号)或一个数，并赋给内存变量。WAIT 提示信息字符串 TO 内存变量；常用于程序暂停后，提示“按任意键继续”。4. 内存变量的输出：输出或显示变量的值可用?或?来输出，例如：? K=, K5. 文本输出：如果用户希望在屏幕上显示一段文本，TEXT ENDTEXT 6. SET ON|off (on|OFF)；大写表示默认状态SET TALK ON|off ；打开系统对话功能。SET PRINT on|OFF；关闭打印机。SET CONSOLE ON|off ；打开|关闭屏幕。SET SAFETY ON|off ；覆盖文件时有提示。SET COLOR ON|off ；选择彩色|单色显示。SET ALTERNATE on|OFF；不记录输入输出信息7. SET TO SET COLOR TO 标准，增强，边缘；前景/背景，+：高亮；*：闪烁SET ALTERNATE TO 文件名；建立一个保存输入输出操作信息的文本。8. 宏代换：&字符串变量名；1.代替一个字符串：COM= LIST ，如再使用该命令只需写成&COM即可。2.代替一个文件名：如打开L.DBF，ACCEPT 请输入文件名 TO WJUSE &WJ此时只需输入L即可。9. FILE (文件名) ；查找括号中的文件是否在磁盘上，在：值为.t. ；不在：值为.f.10. EOF () ；测试记录指针是否指向了文件的最后，是：值为.t. ；不是：值为.f.11. DTOC (日期型变量,1)；将括号中的日期型变量转变为字符串变量。如果选择1，把mm/dd/yy改为yyyymmdd12. SUBSTR (字符串, m, n)；从字符串第m个开始，共取n个字符，作为子字符串。如不选n，则取到最后一个。13. 字符串长度测试：LEN (字符串)；返回字符串的长度。括号中的字符串要用双引号括起来。14. STR (数值型数, m, n)；将数值型数据转换为字符串，字符串长度为m，保留n位小数。15. 键盘响应函数：INKEY (数值表达式) ；等待用户按键，表达式值为等待时间s，如为0则一直等待。16. UPPER (Yn)= ；把内存变量Yn中的小写字母转换为大写字母。程 序 选 择 结 构格式1：IF END IF格式2：IF ELSE ENDIF格式3IF IF ENDIFENDIFCASE语句：DO CASE CASE CASE OTHERWISE ENDCASEDO WHILE LOOP EXIT ENDDO执行到LOOP时循环执行执行到EXIT时，退出循环，并执行ENDDO后面的语句17. FOR循环for(i=1;in;i+) i=1 in 循环增量(i+)格式：FOR = TO STEP &循环体LOOP和EXIT的意义与在DO WHILE循环中的意义相同。EXITLOOPENDFOR内存变量是循环的控制变量，它的初值为的值，终值为的值，的值为循环一次循环变量增减的步长。当步长为1时，STEP 可以省略。18. SCAN 范围 FOR 条件 命令组 LOOP EXITENDSCAN在指定范围内，满足条件的记录依次重复执行循环体中的命令。19. 建立子程序文件：MODIFY COMMAND 子程序文件名在子程序最后加上：RETURN TO MASTER（返回主控程序） 或 RETRY （再试、复算）前者的功能是：过程运行完成以后，返回调用程序中调用语句的下一句。如果有TO MASTER选择项，则在嵌套调用时，直接返回最前面一个调用程序的下一句。RETRY的功能是：过程调用完成后，它返回调用程序中调用语句本身；这种形式一般用在扑获出错信息的ON ERROR语句联用。20. 子程序调用：DO 子程序名21. 过程文件 procedure：程序、过程、名称建立 格式：PROCEDURE 过程名1RETURNPROCEDURE 过程名2RETURN每次只能打开一个过程文件，需要打开另一个过程文件时，系统会自动关闭已经打开的文件。过程文件打开SET PROCEDURE TO 过程文件名关闭CLOSE PROCEDURE或：CLOSE ALL u口令程序K=0DO WHILE .T. CLEAR ? 请回答口令 SET CINSOLE OFF ACCEPT TO PASSWORD SET CINSOLE ON IF PASSWORD=LEI WAIT 口令正确，按任意键继续 EXIT ELSE IF K3 K=K+1 ? 口令错误，请重新输入 ELSE ? 口令不对，你不能使用本程序 WAIT 按任意键退出 RETURNENDIFENDIFENDDOu新建数据库出错保护DO WHILE .T. ACCEPT 请输入新建的数据库文件名 TO WJ IF LEN (WJ)0 EXIT ENDIFENDDOu打开数据库出错保护DO WHILE .T. ACCEPT 请输入需打开的数据库文件名 TO WJ IF FILE (&WJ=.DBF) EXIT ELSE WAIT文件不存在，请重新输入u用FOR循环计算1+2+NS=0INPUT 请输入N=? TO NFOR I=1 TO N ENDIFENDDOu查询程序：文件名：CX.PRGACCEPT 请输入查询的序号TO XHLOCATE FOR 序号=XHDISPLAYu删除程序：文件名：SC.PRGINPUT 请输入删除的记录号TO HGOTO HDELETEDISPLAYACCEPT 是否真的删除(y/n)? TO SCIF UPPER (SC) = YPACKELSERECALLENDIF S=S+I ? I=,I, S=,S ENDFORRETURNUSE在Q(1:m)的向量空间中，使Q(1)单元