常用的函数与表达式构造示例.doc

常用的函数与表达式构造示例函数类型函数使用格式表达式构造示例与说明字符SUBSTR(expC, expN1 , expN2 )SUBSTR（xh,2,3）+ LEFT（xm，2）将xh的第2至4位和xm的头两位连接起来LEFT( )，RIGHT( )LEN(expC )RIGHT（xh，LEN(ALLTRIM (xm) )）例如： xh=0204112 xm= 李宾 则结果是4112ALLTRIM( expC )STR( expN1 , expN2 , expN3 )(1) STR（cj,5,1）+ xh （可作为索引表达式）当成绩相同时，按学号排序(2) CHR(66)+A+STR(ASC(C),3) 结果是“BA 67” ASC（expC） 由字符返回ASCII码值CHR（expN）由ASCII码值返回字符数学MAX（），MIN（）, AVG( )MAX(cj) as 最高分 （可作为查询输出字段）SUM（expN） 只对数值型字段SUM（IIF（bxk=.T.，xf，0）as 必修课总学分 COUNT（） 可对多种类型字段COUNT（xs.xh）as 学生总数 VAL( expC )VAL(LEFT(xh,2) +6将xh的前2位转换为数值再加6日期CTOD( expC )用“月/日/年”的短日期格式时容易产生误解CTOD(2005/07/20)-10 返回07/10/05CTOD(05/07/20)-10 返回04/27/20此处第1种为精确日期格式，不会出现误解 DTOC( expD )带参数1时，按年月日顺序且无分隔符形式返回字符型日期DTOC（gzrq，1）+xm （可作为索引表达式）工作日期相同时按xm排序YEAR( expD ) ，DATE()YEAR（DATE()）-YEAR（csrq） 得年龄逻辑BETWEEN(变量, 下界, 上界)BETWEEN(cj, 0, 100) cj在0-100分之间（即：0cj=60,合格,不合格）Cj不低于60为合格，否则不合格INLIST(变量,值1,值2，)INLIST（zc，教授，副教授，讲师）职称只可以为教授、副教授或讲师VFP程序设计举例题目： 编制程序计算组合数：解题方法 解法一：按顺序分步计算, 结果输到主窗口中。 解法二：用自定义函数和判断语句进行计算, 结果输到主窗口中。 解法三：用自定义函数和判断语句进行计算,建立一个自由表，并将计算结果输入其中, 退出系统后仍能看到结果。 程序代码 set talk offclear input 请输入 m: to m input 请输入 n (注意：;n m) : to na=1b=1d=1for i=1 to m a=a*iendforfor i=1 to n b=b*iendforfor i=1 to (m-n)d=d*iendforc=a/(b*d)?m!=,a?n!=,b?(m-n)!=,d?C=m!/(n!*(m-n)!)=,C set talk offdo while .t.clearinput 请输入 m : to m input 请输入 n: to nif mnwait n 应小于m,;敲任意键重新输入。 loop else a=jch(m)b=jch(n)d=jch(m-n)C=a/(b*d)?m!=,a?n!=,b?(m-n)!=,d?C=m!/(n!*(m-n)!)=,C exitendifenddo *定义一个函数来计算阶乘 function jchparameters p s=1for I=1 to p s=s*iendforreturn s set talk offdimension aa(1,6)CREAT TABLE C:SJABC FREE(;MM N(10), NN N(10), AA N(10),;BB N(10), DD N(10), CC N(12,1) ) do while .t.clearinput 请输入 m : to m input 请输入 n: to nif mnwait n 应小于m,;敲任意键重新输入。 loop else a=jch(m)b=jch(n)d=jch(m-n)C=a/(b*d)store m to aa(1,1)store n to aa(1,2)store a to aa(1,3) store b to aa(1,4) store d to aa(1,5) store c to aa(1,6) USE C:SJABCappend from array aabrowseexitendifenddo *定义一个函数来计算阶乘 * function jchparameters p s=1for I=1 to p s=s*iendforreturn s 解题方法 设计方法及程序代码 解法四：可视化编程通过运行表单文 件 来调 出界面，进行计 算 先在表单设计器中利用标签、文本框、命令按钮、形状四种控件设计出如图所示的表 单，然后分别双击计算和退出按钮，添加下表第1、2列中的代码，再新建一个程序文件 ，在其中输入下表第3列中的代码（注意：程序的文件名应保持一致）。 按钮 计算 的 Click 代码 按钮 退出 的 Click 代码 子程序 C:SJ166.PRG 的代码 m=val(thisform.text1.value)n=val(thisform.text2.value)do c:sj166.prg thisform.text3.value=str(a)thisform.text4.value=str(b)thisform.text5.value=str(d)thisform.text6.value=str(c)thisform.refresh clear eventsthisform.release public a,b,d,c a=jch(m)b=jch(n)d=jch(m-n)c=a/(b*d)function jchparameters p s=1for i=1 to p s=s*iendforreturn s 解法五：面向对象编程通过运行程序文件 来调出界面，进行计算 set talk offmf=createobject(formset)mf.addobject(jc,jianch)mf.showmf.jc.visible=.t.read events 其余的代码通过下列步骤添加： 在表单设计器中将解法四制作的表单另存为类 给出类名（应以字母开头）和文件名（即自定义可视类库的名称） 关闭表单设计器 从工具菜单中打开类浏览器 在打开对话框中给出可视类库的文件名 在类浏览器选中类名并从工具按钮中单击查看类代码 将浏览窗口中的代码全部选定 单击复制并关闭类浏览器打开解法五的程序编辑窗口 将光标移至程序最后，单击粘贴。程序设计源代码字段的有效性规则设置举例字段类型有效性信息有效性规则字符型性别只能为男或女 xb=男 .OR. xb=女 或： INLIST (xb, 男,女) 或： xb$男女解析：INLIST()函数和$均可表示字符包含关系“姓名的有效宽度必须4个字节以上，且首字符必须为汉字”LEN(ALLTRIM(xm)=4.AND.ASC(LEFT(xm,1)127解析：ALLTRIM(xm)去掉xm首尾的空格LEN(ALLTRIM(xm)xm的有效长度LEFT(xm,1)从左取xm的第一个字节ASC(LEFT(xm,1)返回姓名的首字节ASCII码值，汉字的首字节大于127，这样可以保证输入的首字符是汉字日期型年龄在18至22岁之间 BETWEEN(YEAR(DATE() - YEAR