Question

求解VF例题，谢过~

二、填空题
1、使用数据库设计器为两个表建立联系，首先应在父表中建立__________索引，在子表中建立__________索引。
2、常量 .n.表示的是__________型的数据。
3、在Visual FoxPro中参数传递的方式有两种，一种是按值传递，另一种是按引用传递，将参数设置为按引用传递的语句是：SET UDFPARMS__________________ 。
4、运行表单时，Load事件是在Init事件之______________被引发。
5、如下程序的输出结果是________ 。 　
　 i=1
　　 DO WHILE i<10
　 　 i=i+2
　　 ENDDO
　　 ? i
6、数据库系统的核心是__________________。
7、数据库设计包括概念设计、________设计和________设计。
8、在二维表中，元组的____________不能再分成更小的数据项。
9、RIGHT(“12345.6789”,LEN(“货币”))的计算结果是_____________。
10、每个数据库表可以建立多个索引，但是__________索引只能建立一个。
11、在VF中，用LOCATE ALL FOR命令按条件对某个表中的记录进行查询后，若查不到满足条件的记录，用EOF() 函数测试，返回值应是__________。
12、所谓自由表就是那些不属于任何_______________的表。
13、在职工表中有一数值型的“基本工资”字段，要给目前基本工资为800元的职工每人增加200元，使用的命令是_______________________________________。
14、在VF中，可提供________个工作区，前10个区可以用1~10作为区号，还可以用符号____________作为区号别名。一个工作区可以打开______个数据表文件。
三、分析解答题
2、 有一个编号数量表文件 BHSL.DBF。其内容如下：
记录号 编号 数量
1 A1 10
2 A0 65
3 A2 72
4 B10 40
5 B12 50
阅读以下程序，写出运行结果。
Set Talk Off
Use BHSL
Set Order To Tag 编号
Store 0 To S
Locate For 数量>10
Do While .not.eof()
?? 编号
If SUBSTR(编号,2,1)=[1]
S=S+数量
Endif
Continue
Enddo
? S
Use 运行结果是：__________ 。
Set Talk On

3、修改下面程序的错误，使其能够计算出30以内（含30）能被5整除的正整数之和。
注意：不要修改或删除y=y+x及其后面的命令和语句。
Clear
x,y=0
Do While .T.
x=x+1
Do CASE
CASE Mod(x,5)=0
Exit
CASE x<=30
Loop
Endcase
y=y+x
Enddo
? y
四、编程题
1、 计算1+2+3+4+5+……+50 的和。
2、 有如下命令序列，其功能是根据输入的考试成绩显示相应的成绩等级；
Set Talk Off
Clear
Input “输入考试成绩” To chj
dj=IIF(chj<60,”不及格”,IIF(chj>=85,”优秀”,”及格”))
？”成绩等级：”+dj
Set Talk On
请用DO CASE …..ENDCASE 多分支选择结构改写程序，同样实现以上功能。

Answer 1

二、填空题
1、使用数据库设计器为两个表建立联系，首先应在父表中建立__主__或候选_索引，在子表中建立_____普通___索引。
2、常量 .n.表示的是_____逻辑___型的数据。
3、在Visual FoxPro中参数传递的方式有两种，一种是按值传递，另一种是按引用传递，将参数设置为按引用传递的语句是：SET UDFPARMS__to reference_______________ 。
4、运行表单时，Load事件是在Init事件之_______前___被引发。
5、如下程序的输出结果是___11_____ 。 　
　 i=1
　　 DO WHILE i<10
　 　 i=i+2
　　 ENDDO
　　 ? i
6、数据库系统的核心是__数据库管理系统_______________。
7、数据库设计包括概念设计、_物理_______设计和__逻辑______设计。
8、在二维表中，元组的____属性__不能再分成更小的数据项。
9、RIGHT(“12345.6789”,LEN(“货币”))的计算结果是___"6789"______。
10、每个数据库表可以建立多个索引，但是___主____索引只能建立一个。
11、在VF中，用LOCATE ALL FOR命令按条件对某个表中的记录进行查询后，若查不到满足条件的记录，用EOF() 函数测试，返回值应是____.T.______。
12、所谓自由表就是那些不属于任何_____数据库___的表。
13、在职工表中有一数值型的“基本工资”字段，要给目前基本工资为800元的职工每人增加200元，使用的命令是__replace all 基本工资 with 基本工资+200 for 基本工资=800___。
14、在VF中，可提供___32767_____个工作区，前10个区可以用1~10作为区号，还可以用符号__A-J___作为区号别名。一个工作区可以打开___1___个数据表文件。
三、分析解答题
2、 有一个编号数量表文件 BHSL.DBF。其内容如下：
记录号 编号 数量
1 A1 10
2 A0 65
3 A2 72
4 B10 40
5 B12 50
阅读以下程序，写出运行结果。
Set Talk Off
Use BHSL
Set Order To Tag 编号
Store 0 To S
Locate For 数量>10
Do While .not.eof()
?? 编号
If SUBSTR(编号,2,1)=[1]
S=S+数量
Endif
Continue
Enddo
? S
Use 运行结果是：__A0 A2 B10 B12
90________ 。
Set Talk On

3、修改下面程序的错误，使其能够计算出30以内（含30）能被5整除的正整数之和。
注意：不要修改或删除y=y+x及其后面的命令和语句。

Clear
store 0 to x,y
Do While .T.
x=x+1
Do CASE
CASE Mod(x,5)=0
y=y+x
CASE x>30
exit
Endcase
Enddo
? y
四、编程题
1、 计算1+2+3+4+5+……+50 的和。

s=0
for i=1 to 50
s=s+i
endfor
?"s=",s
return

2、 有如下命令序列，其功能是根据输入的考试成绩显示相应的成绩等级；
Set Talk Off
Clear
Input “输入考试成绩” To chj
dj=IIF(chj<60,”不及格”,IIF(chj>=85,”优秀”,”及格”))
？”成绩等级：”+dj
Set Talk On
请用DO CASE …..ENDCASE 多分支选择结构改写程序，同样实现以上功能。

Set Talk Off
Clear
Input “输入考试成绩” To chj
do case
chj >=85
dj=优秀"
chi >=60
dj="及格"
otherwise
dj="不及格"
endcase
？”成绩等级：”+dj
Set Talk On