VFP简单程序设计题

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

一、 单项选择题(12小题共12分)

1、在VFP中不允许出现重复字段值的索引是(C )

A)惟一索引和主索引 B) 惟一索引

C)侯选索引和主索引 D) 普通索引和惟一索引

2、打开一个表文件的命令是(B)

A)OPTEN B)USE C)OPEN DATABASE D)USE DATABASE

3、LOCATE FOR 命令执行后指针一定指向( D )

A) TOP B)BOTTOM C) EOF D)视情况而定

4、SELECT-SQL语句是( B )

A)选择工作区语句 B)数据查询语句

C)选择标号语句 D)数据修改语句

5、SELECT-SQL语句的WHERE子句指明( B )

A) *** 作对象的联接条件 B) *** 作对象的选择条件

C) *** 作对象的投影条件 D) *** 作对象的分组条件

6、在创建数据库表结构时，给该表指定了主索引，这属于( c)完整性

A) 参照完整性 B)域完整性 C)实体完整性 D)自定义完整性

7、在VFP中，若在表之间的联系中设置了参照完整性规则并在删除规则中选择了“限制”，当删除父表中的记录时，系统反应是（D ）

A)不做参照完整性检查

B)不准删除父表中的记录

C)自动删除子表中所有相关的记录

D)若子表中有相关的记录,则禁止删除父表中的记录

8、关于查询描述正确的是( C )

A)只能根据自由表建立查询 B) 只能根据数据库表建立查询

C) 可以根据自由表和数据库表建立查询 D) 以上都正确

9、关于视图描述正确的是(C )

A)可以根据查询建立视图 B)可以根据自由表建立视图

C)可以根据自由表和数据库表建立视图 D)可以根据数据库表建立视图

10、运行表单文件myFormscx的命令是( B )

A) DO myFormscx B)DO form myForm

C) DO myForm D)以上A)B)C)都可以

11、SQL语句中修改结构的命令是( C)

A)MODIFY TABLE B) MODIFY STRUCTURE

C)ALTER TABLE D)ALTER STRUCTURE

12、SQL语句中删除表的命令是( D )

A) DELETE TABLE B) ERLAE TABLE

C) DELETE DBF D) DROP TABLE

二、 填空题 (12小题共24分)

1、 SQL支持集合的并运算，运算符是 。

2、DELETE-SQL语句是 逻辑 删除记录。

3、SELECT-SQL语句为了将查询结果存放到表文件中应该使用 into table 短语。

4、使用视图可以查询数据库表，还可以 更新 数据库表。

5、数据库表之间的关联通过主表的 主 索引和子表的 普通 索引实现。

6、实现表之间临时关联的命令是 set relation to

7、在表设计器中创建的索引都存放在扩展名为 cdx 索引文件中。

8、属性用来表示对象的状态，方法用来描述对象的 。

9、在VFP中的类一般可分为 容器类和控件类 两种类型。

10、当过程执行到RETURN命令时，若RETURN命令不带<表达式>，则返回 t 。

11、查询设计器中的 排序依据 选项卡对应于SQL -SELECT语句中的ORDER BY短语。

12、若在子程序中使用的PRIVATE命令右侧有与上级程序同名的变量，则使上级程序中的这些变量在子程序中 被隐藏 。

提问者： snowys

建立程序：modify command <程序名>

clear

close all

（1）计算每条记录的总分

use 学生表

replace all 总分 with 数学+语文+英语+数据库

（2）将总分大于等于360分的女同学的总分提高10%

replace all 总分 with 总分11 for 总分>=360

(3）将总分大于等于320分的记录，其奖学金评定为800元

replace all 奖学金 with 800 for 总分>=320

求总分字段最大值，最小值

go top

a=总分

min=1000

max=0

do while ! eof()

b=总分

if a>b

max=a

if b<min

min=b

endif

else

max=b

if a<min

min=a

endif

endif

skip

enddo

（4）将总分最高的记录其奖学金增加500元，并显示该记录

replace 奖学金 with 奖学金+500 for 总分=max

display

（5）将总分最低的记录作逻辑删除，并显示该记录

locate for 总分=min(总分)

delete

display

use

1总分统计prg如下：

set talk off

use 成绩表

repl all 总分 with 语文+数学+英语+计算机

repl all 平均分 with 总分/4

2input a

input b

allt(str(a+b)),allt(str(a))+allt(str(b))

3在click里写如下代码：

release thisform

这样的题我有百分百的把握。

*** 作从当前记录开始的3个记录的范围短语是 （A）

anext 3 ball crest ddecord 3

如果给当前的表增加一个字段，应使用的命令式 （B）

aappend bmodify structure cinsert dedit

能真正删除当前库文件中所有记录的命令是 （A）

azap bpack cdelete all ddelete for t

连编后可脱离VFP中的项目文件独立运行的程序是 （B）

aAPP程序 bEXE 程序 cFXP 程序 d PRG程序

若要在同一数据库的两个表中建立永久关系，则在父表中创建（A）

a主索引或候选索引 b主索引 c候选索引 d唯一索引

下列不能移动记录指针的命令式（A）

adelete bgo top sskip dlist

数据表结构包括职称号 C(4)，工资 N （6，2），要求按工资升序，工资相同者按职工号升序，建立索引文件应使用的命令式（C）

AINDEX ON 工资/A ，职工号/D TO ING

BSET INDEX ON 工资+职工号 TO ING

CINDEX ON STR (工资，6 ，2)+职工号 TO ING

DINDEX ON 工资/A ，职工号/A TO ING

可使VFP系统出现“数据库”菜单项的命令是(D)

ACREATE DATABASE

BOPEN DATABASE

CDELETE DATABASE

D MODIFY DATABASE

程序1

clear

"1992-2020年中间的闰年有："

for year=1992 to 2020

if year%4==0 and year%100!=0 or year%400==0

year

endif

endfor

程序2

clear

s=0

for i=100 to 999

if i%11=0

if i%10=8 or i/10%10=8 or i/100=8

i

s=s+1

endif

endif

endfor

"三位数中总共有",s,"个能被11整除同时又含有8的数字"

程序3

clear

a="Long long ago,there was a war between the birds and the beats No one knows what they fought aboutThe bat did not know whose side he should take He thought and thought, "

c="then decided he must try to be on the side of the winnersSo he watched from far away After a while, it seemed that the birds were going to winHe flew over to join them"

b=""

i=1

for j=1 to len(a)

if substr(a,j,1)!=" "

b=b+substr(a,j,1)

endif

endfor

for j=1 to len(c)

if substr(c,j,1)!=" "

b=b+substr(c,j,1)

endif

endfor

b

程序4

input "请输入数字：" to n

P=2N-1

FOR I=1 TO P

IF I<=N

SPACE(N-I+1)

FOR J=1 TO 2I-1

""

ENDFOR

ELSE

SPACE(I-N+1)

FOR K=1 TO 2(2N-I)-1

""

ENDFOR

ENDIF

ENDFOR

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