《数据库应用(上)》由会员分享，可在线阅读，更多相关《数据库应用(上)（144页珍藏版）》请在金锄头文库上搜索。
1、数据库应用（上）主讲人：陈枫引论v学习程序设计命令计算机做你要它做的事v程序设计工具：程序设计语言我们要学的是：Visual Foxpro-VFP第一个VFP程序v第一个VFP程序v每个VFP程序是扩展名为.prg的一个文件，例如p1.prg它是由不同的语句组成的v所以学习的重点是各种语句计算机的工作原理CPU内存vVFP中内存单元用变量来表示。例如：Rv每一个变量都有一个名字，取名规则：必须以字母开头；见名知意：例如Weight,Heiget,SUMv变量的取值：R=10X=1赋值语句v变量（计算机内存中的一个单元） R 就是一个变量，它可以取不同的数值 计算机中变量取值的方式 R=5 su
2、bstr(dtoc(date(),1,2)+“月“+; substr(dtoc(date(),4,2)+“日“ 结果为：09年03月12日v圆面积的显示 R=5 S=3.14*R*R ? “圆的面积=”,S ? “圆的面积=”+STR(S,10,2) ? “圆的面积=”+ALLTRIM(STR(S,10,2) ? “圆的面积=”-ALLTRIM(STR(S,10,2)v把一个阿拉伯数字转换成中文大写 INPUT “请输入一个阿拉伯数字：” TO N C1=“壹贰叁肆伍陆柒捌玖” ?SUBSTR(C1,2*N+1,2)v把一个正整数的各位分别取出 INPUT “请输入一个正整数：” TO M N
3、=M%10 M=INT(M/10) N=M%10v空字符串 C=“” ?TYPE(“C”) ?LEN(C )v把一个阿拉伯数字表示的价格（123.45） 转换成中文大写（壹百贰拾叁圆肆角伍分） INPUT “请输入一个数字价格：” TO M M=M*100 C1=“壹贰叁肆伍陆柒捌玖”C2=“分角圆拾百” C=“” N=M%10 P1=SUBSTR(C1,2*N+1,2) I=0 P2=SUBSTR(C2,2*I+1,2) C=P1+P2+C M=INT(M/10) N=M%10 P1=SUBSTR(C1,2*N+1,2) I=1 P2=SUBSTR(C2,2*I+1,2) C=P1+P2+C
4、简单程序设计v在一般情况下，计算机按从上到下的顺序执 行程序文件中的语句。因此，我们只需把要 计算机执行的语句按从上到下的顺序写在一 起，就构成一个程序。这样的程序称为顺序 结构程序。顺序结构程序框架*计算圆面积* INPUT “请输入圆半径” TO R S=3.14*R*R ? “圆的面积=”，S开始输入数据数据处理输出数据结束流程图计算三角形面积*计算三角形面积* INPUT “输入第一条边” TO A INPUT “输入第二条边” TO B INPUT “输入第三条边” TO C S=(A+B+C)/2 AREA=SQRT(S*(S-A)*(S- B)*(S-C) ? “三角形面积=”，
5、AREA开始输入三角形 的三条边计算三角形 面积输出三角形 面积结束求一元二次方程的根*求一元二次方程的根 * INPUT “输入第一个系数” TO A INPUT “输入第二个系数” TO B INPUT “输入第三个系数” TO C D=B2-4*A*C P=-B/(2*A) X1=P+SQRT(D)/(2*A) X2=P-SQRT(D)/(2*A) ? “X1=”,X1, “X2=”,X2开始输入三个 系数计算 方程的根输出 方程的根结束IF语句v格式： IF ELSEENDIF条件 是否成立？语句序列2语句序列1YN分支结构v例子：从键盘输入一个非零整数，让计算机判断该 数是正是负。*
6、判断整数的正负* INPUT “输入一个整数” TO X IF X0 ? “该数是正数！” ELSE ? “该数是负数！” ENDIF开始输入一个 非零整数该数是否 大于0？输出 “该数是正数”输出 “该数是负数”结束YN例子：从键盘输入一个正数，让计算机判断该数是奇 数还是偶数。*判断数的奇偶* INPUT “输入一个正数” TO A IF A%2=0 ? “该数是偶数！” ELSE ? “该数是奇数！” ENDIF开始输入一个 正数 TO AA%2=0?输出 “该数是偶数”输出 “该数是奇数”结束YN口令判断：从键盘输入一个口令， 判断是否和系统口令“SQL”相符。开始结束输入口令 TO
7、PSWPSW=“SQL”?输出 “欢迎使用本系统”输出 “你无权欢迎使用本系统”输入两个数，把它们按从小到 大的顺序输出。结束开始从键盘输入 两个数a,bab?输出a,b输出b,aYN从键盘输入三角形的三条边，计算 三角形面积。开始结束输入三角形 的三条边这三条边能否 构成三角形？计算三角形面积输出三角形面积输出 ”这三条边不能构成三角形“YN求一元二次方程的根开始结束输入方程的系数 TO a, b, cD=b2-4*a*cDCASE CASE OTHERWISE ENDCASEDO CASE CASE D0 如果高度不超过140厘米，费用为 ：基本价格+（重量-10）*0.5。v例7：编程计
8、算个人所得税。个人所 得税缴纳标准为：所得税率收入P范围0P=5000v例8：从键盘输入一个数，求对这个数开几 次平方后小于2。v例9：编写一个程序，求出N以内有多少个 整数可以被N整除，并且输出这些数。N由 键盘输入。v例10：编写一个程序，计算下列表达式的 值：8+88+888+，其中最后一项8的个数 由键盘输入。v例11：输入一个字符串，把它倒置后输出 。v例12：求两个数的最大公约数和最小公倍 数。期末考试v分上机考和笔试v笔试题型v程序填空v分支v字符处理v过程/自定义函数v最大公约数和最小公倍数v程序阅读v表记录指针vFOR循环v口令验证v图形输出v程序设计（3题）v累加、累乘v循环+分支v表处理v课本后习题
