vfp程序设计 急！！！

clear

accept "请输入一个字符串（字符串只包含字母和号）：" to zf

input "请输入字符串尾部号个数：" to n

l=len(zf)

s=0

for i=l to 1 step -1

k=substr(zf,i,1)

if k=""

s=s+1

else

exit

endif

endfor

if s>n

zf1=left(zf,l-(s-n))

else

zf1=zf

endif

"字符串应为：",zf1

2

CLEAR

INPUT "M=" TO M

INPUT "N=" TO N

fact(m)/fact(n)

FUNCTION FACT

PARAMETERS N

FACT=1

FOR i=1 to n

fact=facti

ENDFOR

RETURN fact

3

CLEAR

ACCEPT TO CHAR1 &&输入CHAR1的值

STORE 0 TO K1,K2,K3,K4

N=LEN(char1)

FOR i=1 TO N

C1=SUBSTR(char1,i,1)

DO CASE

CASE (ASC(C1)>=65 AND ASC(C1)<=90) OR (ASC(C1)>=97 AND ASC(C1)<=122)

K1=K1+1

CASE C1=SPACE(1)

K2=K2+1

CASE C1<="9" AND C1>="0"

K3=K3+1

CASE (ASC(C1)>=123 AND ASC(C1)<=255) OR (ASC(C1)>=91 AND ASC(C1)<=96) OR (ASC(C1)>=58 AND ASC(C1)<=64)

K4=K4+1

ENDCASE

NEXT

"字母数：",K1

"空格数：",K2

"数字数：",K3

"其他字符数：",K4

1数据库，dbc，？

2locate for,go,goto,seek

4

5

6create report,菜单新建，项目新建

7list for 职称="讲师" and 基本工资<150

9replace 总成绩 with 数学+语文+英语 for t

10 year(出生日期)-year(date())>18

尊重劳动成果最好的办法就是加分

这句语句有问题吧．

中间应该有个变量

比如说

for i= 1 to 1000 step 2

step 2 是指步长为2

步长不是指循环次数为2，顾名思意，是指每步加2，是比如说．1再3，再5

初值是指循环开始时，变值的值，终止值就是说，到那个值就停止循环．

cddbc cbdcd bbadb ccdcd ccbcc acccd cdadb cbdbd

选择题

1． VFP中下列表达式中写法错误的是

A) 〃总分〃+[90]

B) 〃AB〃==〃AB〃

C) 〃总分〃+ 90

D) 〃x〃＜＞〃y〃

2 数据库文件工资DBF共有10条记录，当前记录号为3, 用SUM命令计算工资总和，如果不给出范围短句，那么命令

A) 计算后5条记录工资值之和

B) 计算后6条记录工资值之和

C) 只计算当前记录工资值

D) 计算全部记录工资值之和

3 要为当前表所有职工增加100元工资应该使用命令

A) CHANGE 工资 WITH 工资+100

B) REPLACE 工资 WITH 工资+100

C) CHANGE ALL工资 WITH工资+100

D) REPLACE ALL 工资 WITH 工资+100

4 文件CGEMNX是一个

A) 表单文件

B) 菜单文件

C) 项目文件

D) 报表文件

5 Visual FoxPro关系数据库管理系统能实现的3种基本关系运算是

A) 索引、排序、查找

B) 建库、录入、排序

C) 选择、投影、联接

D) 显示、统计、复制

6 使用数据库技术进行人事档案管理，是属于计算机的

A) 科学计算应用

B) 过程控制应用

C) 数据处理应用

D) 辅助工程应用

7 逻辑型字段的宽度固定为

A) 8

B) 1

C) 4

D) 10

8 当前表中有20条记录，当前记录号是5，Display next 3命令将

A) 显示当前记录

B) 显示第三条记录

C) 显示第6到第8条记录

D) 显示第5到第7条记录

9 备注型字段的宽度固定为

A) 8

B) 1

C) 4

D) 10

10执行 ？STR(10987，7，3)后，屏幕显示的是

A) 10987

B) 〃10987〃

C) 109870

D) 〃109870〃

11 在Visual FoxPro中，打开表命令是

A) OPEN TABLE<表名>

B) USE <表名>

C) USE TABLE<表名>

D) OPEN<表名>

12 假定系统日期是1998年12月20日，有如下命令：MJ=MOD(YEAR(DATE())，100)

执行该命令后，MJ的值是

A) 1998

B) 98

C) 981220

D) 1220

13 在以下四组函数运算中，结果相同的是

A) LEFT(〃Visual FoxPro〃，4)与SUBSTR(〃Visual FoxPro〃，1，4)

B) YEAR(DATE())与SUBSTR(DTOC(DATE())，7，2)

C) lEN(〃that 〃)与 lEN(〃that 〃)

D) 假定A=〃that 〃，B=〃is a menu〃，A-B与A+B

14 在VFP中，执行STORE DTOC(DATE()+10) TO B后，变量B的类型为

A) 日期型

B) 数据型

C) 备注型

D) 字符型

15 如果要创建一个3级数据分组报表，第1个分组表达式是"部门"，第2个分组表达式是"性别"，第3个分组表达式是"基本工资"，则当前索引的索引关键字表达式应该是

A) 部门+性别+基本工资

B) 部门+性别+STR(基本工资)

C) 性别+部门+STR(基本工资)

D) STR(基本工资)+性别+部门

16 数据表文件CJDBF已经打开，共有10条记录，按关键字XM排序，执行命令SORT ON XM TO CJ后，屏幕将显示

A) 10条记录排序完成

B) CJDBF已存在，覆盖它吗(Y/N)

C) 文件在使用

D) 出错信息

17 物理删除记录可用两条命令分两步来完成，这两个命令分别为

A) PACK和ZAP

B) PACK和RECALL

C) DELETE和PACK

D) DELETE和RECALL

18 在VFP的几种循环语句中，当循环次数为常数时，应选用的语句是

A) DO WHILE

B) SCAN

C) LOOP

D) FOR

19 关于数据库表和自由表，下列说法正确的是

A) 数据库表可以转换为自由表，反之不能

B) 自由表可以转换为数据库表，反之不能

C) 两者可以相互转换

D) 两者不能相互转换

20 视图设计器中比查询设计器多出的选项卡是

A) 字段

B) 排序依据

C) 联接

D) 更新条件

选择题

1 在FoxPro数据库中的常量的类型种类是

A) 4

B) 5

C) 6

D) 3

2 执行命令STORE 〃31416〃 TO TEST

TYPE(〃TEST〃)

其结果为

A) D

B) L

C) C

D) N

3 下列叙述正确的是

A) INPUT语句只能接收字符串

B) ACCEPT命令只能接收字符串

C) ACCEPT语句可以接收任意类型的VFP表达式

D) WAIT只能接收一个字符，而且必须按ENTER键

4 在使用项目管理器时，如果要移去一个文件，在提示的框中选择"Remove(移去)"按钮，系统将会把所选择的文件移走。选择"Delete(删除)"按钮，这系统将会把该文件

A) 仅仅从项目中移走

B) 仅仅从项目中移走，磁盘上的文件未被删除

C) 不仅从项目中移走，磁盘上的文件也被删除

D) 只是不保留在原来的目录中

5 要使文件菜单项用"F"作为访问快捷键，定义该菜单标题可用

A) 文件(F)

B) 文件(<\F)

C) 文件(\<F)

D) 文件(/\F)

6 用户设计菜单系统时，系统默认菜单系统位置

A) 替换原有菜单系统

B) 追加在原有的菜单系统后面

C) 插入到原菜单系统的前面

D) 与原菜单系统无关

7 打开一个数据表文件的同时打开以"姓名"为关键字的单一索引文件，要求查找姓名为"张伟"的教师，应使用命令

A) GO张伟

B) LOCATE张伟

C) FIND张伟

D) SEEK张伟

8 在报表设计中打印每条记录的带区是

A) 标题

B) 页标头

C) 细节

D) 总结

9 BOF()是测试函数，当正使用的数据表文件的记录指针已达头部，其函数值为

A) 0

B) 1

C) T

D) F

10 数据库文件有30条记录，当前记录是20，执行命令LIST NEXT 5后，所显示记录号是

A)21～25

B)21～26

C)20～25

D)20～24

11 EOF()是测试函数，当正使用的数据表文件的记录指针已达尾部，其函数值为

A) 0

B) 1

C) T

D) F

12 统计在校生党员数的正确 *** 作是

A) SUM FOR 党员否

B) COUNT TO 党员否＝T

C) SUM 党员否

D) COUNT FOR 党员否

13 函数LEN(SPACE(20)-SPACE(15))的返回值是

A) 35

B) 19

C) 5

D) 错误信息

14 关于索引的叙述，下列选项不正确的是

A) VFP支持两种索引文件：复合索引文件和单索引文件

B) 实现索引查询必须满足以下条件：打开数据库；打开索引文件；确定控制索引文件；对于复合索引文件还需确定控制索引

C) 打开和关闭索引文件均使可用SET INDEX TO命令

D) 索引文件不会随着库文件的关闭而关闭

15 当前目录下有AADBF、BBDBF,其中数据表文件AADBF已经打开，共有10条记录，按关键字"学号"排序，执行命令SORT ON 学号 TO BB 后，屏幕将显示

A)10条记录排序完成

B)BBDBF已存在，覆盖它吗（Y/N）

C)文件在使用

D)出错信息

16 把当前数据库文件中"性别"字段为"女"的值全部清除，但仍保留该字段与其他各字段内容，应当使用命令

A) MODIFY STRUCTURE

B) DELETE

C) RELACE

D) ZAP

17 SUBSTR(〃ABCDEF〃，3，2)的结果是

A) AB

B) CD

C) FE

D) CB

18 下列命令中，不能输入字符型数据的命令是

A) ACCEPT

B) WAIT

C) INPUT

D) SAY

19 VF60数据库系统是

A)网络型

B)关系型

C)层次型

D)链状型

20 设VFP的程序中有P1PRG, P2PRG ,P3PRG三层程序嵌套，下面叙述正确的是

A)在P1中用!RUN P2PRG语句可以调用P2子程序

B)在P2中用RUN P3PRG语句可以调用P3子程序

C)在P3中用RETURN语句可以返回P1子程序

D)在P3中用RETURN TO MASTER语句可以返回P1子程序

我个人觉得没有什么用，我们学校也是学VFP，但是我就自学了C语言（考二级的），说它像数据库，它又能做出界面，但是根本无法和专业的编程语言相比，而且做为数据库，它也比不上MySQL，MSSql Server和Oracle等，只能用来考下二级了。

clear

1

set talk off

n=0

s=0

for i=1 to 1000

if i%3=0 and i%7=0

n=n+1

s=s+i

endif

endfor

"1-1000能同时被3和7整除的数有"+allt(str(n))+"个"

"它们的和是:"+allt(str(s))

set talk on

2

set talk off

for a=1 to 9

for b=0 to 9

for c=0 to 9

if 100a+10b+c=aaa+bbb+ccc

100a+10b+c

endif

next c

next b

next a

return

set talk on

3

clear

set talk off

input "请输入年份:"to n

msg="年不是闰年"

if mod(n,4)=0 and mod(n,100)<>0 or mod(n,400)=0

msg="年是闰年"

endif

n,msg

set talk on

以上就是关于vfp程序设计 急！！！全部的内容，包括:vfp程序设计 急！！！、有关VFP程序设计题目、有关VFP程序设计中步长循环的问题！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！