二、填空题
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 多分支选择结构改写程序,同样实现以上功能。