Vfp教程 常用函数

1、完成下列分段函数的计算，程序运行时用户从键盘输入一个数值x，在屏幕上输出y的值。y＝x*x (x>0);y=0 (x=0);y=-x*x (x<0).

set talk off

clear

input "请输入x的值：" to x

do case

case x>0

y=x*x

case x==0

y=0

otherwise

y=-x*x

endcase

?"y=",y

return

2.通过键盘输入一串字符，统计并输出其中英文字母的个数。

set talk off

sume=0

input"请输入字符串：" to x

y=len(x)

for i=1 to y

t=substr(x,i,1)

if t>'a'.and.t<'z'.or.t>'A'.and.t<'Z'

sume=sume+1

endif

endfor

?"英文字符个数为：",sume

return

3、已有按从小到大顺序排列的10个数，现输入一个数，要求插入到数列中。插入后数列仍然按从小到大排列。

set talk off

clear

decl a(11)

a(1)=1

for i=2 to 10

a(i)=a(i-1)+3

endfor

input"请输入要插入的数据："to x

for i=10 to 1 step -1

if x

a(i+1)=a(i)

else exit

endif

endfor

a(i+1)=x

?

for i=1 to 11

??a(i)," "

endfor

return

第二种算法：

我的算法是先定义一个11个元素的数组并把先读入的10个数存入1--10下标的数组变量中。当读入k时比较k与每一个数的大小，k>a[i]则a[i]前移一个下标，相反则k存入a[i-1]（a[0]的作用就是保证下标前移时保证数组不会越界）

二、VFP常用函数

1、数值运算函数

函数 操作 例 结果

SQRT(x) 求平方根 SQRT（9） 3

INT(x) 取整数 INT（3.14） 3

ROUND(x) 四舍五入 ROUND(3.14159,4) 3.1416

MOD(x,y) 求X除以Y的余数 MOD(25,4) 1

MAX(x,y) 求X，Y中的最大值 MAX(7,8) 8

MIN(x,y) 求X，Y中的最小值 MIN(1,2,3) 1

1、字符操作函数

函数名 操作 例 结果

UPPER（S） 小写字母 UPPER(abc) ABC

LOWER（S） 大写字母 LOWER(ACD) acd

LEN（S） 求字符串的长度 LEN("中国1号") 7

AT(S1,S2） 在字符串S2，找字符串S1 AT("H","CHINA") 2

SUBSTR（S,I,N） 在S字符串中的第I个字符起取N个字符 SUBSTR('TECHNOLO',3,3) CHN

LEFT（S，N） 从字符串S左边取N个字符 LEFT（“中国人”，4） 中国

RIGHT（S，N） 从字符串S右边取N个字符 S=‘12345’ 345 RIGHT（S，3）

SPACE（N） 生成N个空格 "合计"+SPACE(2)+"123" 合计123

TRIM（S） 消除字符串尾部空格 TRIM("姓名 ") 姓名

ALLTRI（S） 消除字符串中所有空格 ALLTRIM（"李 丽"） 李丽

STUFF（S1,N1,N2,S2) 用字符串S2替换S1中第N1个字符起的N2个字符 STUFF（"NOW",2，1,"E"） NEW

& 宏替换 P=“G2” USE &P

USE G2

3、日期和时间函数

函数名 操作 例 结果

DATE（） 求当前日期 DATE() #######

VFP常用命令示例

replace 规格 with substr(规格,1,at("*",规格)-1) for 类别="钢板"

把厚*宽*长替换成厚度，以便合并同种板厚的重量

1▲

total to

郑迎超 on 规格 fields 数量,材质,总重

所要合并的项

要汇总哪些内容

要汇总的是”规格”

指定同类

新文件名

到***位置 从这一位开始截取，直至完

汇总同类项 2▲

replace 总重 with 数量*0.0011*val(substr(规格,rat("*",规格)+1)) for 类别="钢管"

+1表示从”*”后面一位算起

替换

在规格里查找

把总重替换掉

用with后面的内容来替换 查找对象”*”

从右查找位置第几位

在规格里截取

截取

把字符型转换成数值型

●以上是把钢管总重替换成总长 3▲

set date to ansi 把日期设置成年、月、日 4▲

append from 文件名

从这个文件里取出记录追加到当前文件里

从 某某文件里取回来

追加 5▲

set carry on

Append 复制当前记录到下一栏 (两个命令连用) 6▲

Sort to 郑迎超 on 类别/A,材质/A,规格/A,名称/A,

升序排列

材质按拼音首个字母排序

升序排列

类别按拼音首个字母排序

Vpf常用程序

在下一行显示表达式串

?? 在当前行显示表达式串

@... 将数据按用户设定的格式显示在屏幕上或在打印机上打印

ACCEPT 把一个字符串赋给内存变量

APPEND 给数据库文件追加记录

APPEND FROM 从其它库文件将记录添加到数据库文件中

AVERAGE 计算数值表达式的算术平均值

BROWSE 全屏幕显示和编辑数据库记录

CALL 运行内存中的二进制文件

CANCEL 终止程序执行，返回圆点提示符

CASE 在多重选择语句中，指定一个条件

CHANGE 对数据库中的指定字段和记录进行编辑

CLEAR 清洁屏幕，将光标移动到屏幕左上角

CLEAR ALL 关闭所有打开的文件，释放所有内存变量，选择1号工作区

CLEAR FIELDS 清除用SET FIELDS TO命令建立的字段名表

CLEAR GETS 从全屏幕READ中释放任何当前GET语句的变量

CLEAR MEMORY 清除当前所有内存变量

CLEAR PROGRAM 清除程序缓冲区

CLEAR TYPEAHEAD 清除键盘缓冲区

CLOSE 关闭指定类型文件

CONTINUE 把记录指针指到下一个满足LOCATE命令给定条件的记录，在LOCATE命令后出现。无LOCATE则出错

COPY TO 将使用的数据库文件复制另一个库文件或文本文件

COPY FILE 复制任何类型的文件

COPY STRUCTURE EXTENED TO 当前库文件的结构作为记录，建立一个新的库文件

COPY STRUCTURE TO 将正在使用的库文件的结构复制到目的库文件中

COUNT 计算给定范围内指定记录的个数

CREATE 定义一个新数据库文件结构并将其登记到目录中

CREATE FROM 根据库结构文件建立一个新的库文件