《数据库基础及应用》综合测试(一)
    —— Visual FoxPro操作基础及应用
学号:_________  姓名:_________  成绩:_________
一、单选(每小题3 21)
1.以下命令可以用来创建数据库的是( 
ACreate Database          BCreate Table
CRemove Table              DAdd Table
2.打开一个已建立结构复合索引的数据表,立即用Browse浏览记录的顺序是( 
A.第一个索引标识的顺序   
B.最后一个索引标识的顺序
C.原物理顺序         
D.用Set  Order To设置的索引
3.下列修改数据表的操作中,可能使数据丢失的是( 
  A.增加一个字段             
B.改变一个字段的数据类型
  C.改变一个字段名           
DA BC三种情况均可能
4.命令Select 0的功能是( 
A.选择0号工作区为当前工作区
B.关闭主工作区中所有打开的文件
C.选择当前工作区号+1的工作区为当前工作区
D.选择工作区号最小的未使用的工作区为当前工作区
5.在Zgda表中,查询所有职中毕业的学生信息,以下语句正确的是( 
ASelect * From Zgda Where 毕业学校=职中
BSelect * From Zgda Where 毕业学校=职中
CSelect * From Zgda Where 毕业学校  Like %职中%
DSelect * From Zgda Where 毕业学校  Like  %职中%
6.设计报表可使用的控件的是( 
A.标签、文本框、列表框   
B.标签、域控件、列表框
C.标签、域控件、线条    
D.布局、图片或数据源
7.在VFP的表单中,为“确定”按钮定义访问键O,正确的定义是 
A&O          B<O        C\<O      D.按Alt+O
二、填空(每空3 21)
1.从数据的组织结构来分类,VFP______________型数据库管理系统。
2.表达式 重庆”$“中国” And 8>7 Or Not 3>5 的值为________
3.表Da.dbf中有2个备注型字段,其内容存贮在文件名为__________的备注文件中。
4VFP中对表记录的删除分为________________和物理删除。
5.在进行表记录指针测试时,函数EOF()BOF()值都为.T.,该表记录数为______
6.重新排列表记录,VFP中小学生考试成绩查询提供了排序和索引两种方式,其中索引可用____________命令实现。
7.执行主名为“Main”的表单文件,命令为____________________
三、程序填空(每空3 18)
1.在商品销售表(Spxs.dbf)中有商品名、单价、数量和销售额等字段,现需要将销售额字段修改为数值型,宽度为10,小数位数为2,并更新销售额字段值,然后显示出销售表中各种商品的平均销售单价。
Alter Table Spxs  Alter Column ______________
_____________________  Set  销售额=单价*数量
Select 商品名,Avg(单价) From  Spxs _________________
2.设计如图学生情况界面,实现记录定位的“首记录”、“上一条”、“下一条”、“尾记录”为同一个按钮组(commandgroup1),现要求对该按钮组编程。
命令按钮组(commandgroup1)Click事件代码。
Do  Case
  Case  This.Value=1  &&首记录
  ______________
Case  This.Value=2
    Skip -1
    If  Bof()
Go Top
EndIf
  Case This.Value=3    &&下一条
Skip
If eof()
Go Bottom
EndIf
Case This.Value=4  &&尾记录.
_____________
EndCase
______________              &&刷新表单
三、阅读程序(每小题7 21)
1*main1.prg*
  Clear
  As=Asc(A)-1
  For I=1 To 3
    For J=1 To 2*I-1
      @I,20-I+J Say Chr(As+2*I-1)
    Endfor
  Endfor
  Return         
程序执行结果为________________
2.学生成绩数据表Xscj.dbf的记录内容如下:
*程序Main2.PRG
Use  Xscj
Store  0  To  A,B,C
Scan
If  语文>=60
A=A+1
Endif
If  数学>=60
B=B+1
Endif
If  语文>=60  And  数学>=60
    C=C+1
Endif
EndScan
Clear
?"A="+Alltrim(Str(A))
?"B="+Alltrim(Str(B))
?"C="+Alltrim(Str(C))
Use
程序执行结果为________________
3*程序Main3.prg
Alter  Table  Xscj  Add  Column  等级 C(2)
Use  Xscj
Scan
  Do  Case
      Case  (语文+数学)/2<60
          Replace  等级  With 
      Case  (语文+数学)/2<80
          Replace  等级  With 
      Case  (语文+数学)/2<90
          Replace  等级  With 
      Otherwise
          Replace  等级  With 
  EndCase
  ??等级
EndScan
Use
Set  Talk  On       
程序执行结果为________________
五、编程(19)
1.如图所示界面。表单运行时,单击“下一题”,将在text1text2中随机产生两个1位整数,同时text3获取焦点,等待输入结果。单击“确定”按钮,结果正确或错误分别显示如图所示消息框,同时“下一题”按钮获取焦点。当过5秒还未作答,“确定”按钮自动获得焦点。单击“退出”按钮关闭表单。
(1)每隔5秒触发一次计时器的Timer事件,应将其___________属性设置为___________
等待5秒后,“确定”按钮自动获取焦点,时钟控件的________事件代码为:
Thisform.Command1.________________________ 
(2)单击“确定”按钮,实现判断结果正确与否。应对其______________事件编写代码:
If Val(___________________)=Val(_________________)+Val(___________________)
  Messagebox("小朋友,你真棒!","正确")
Else
  Messagebox("真抱歉,继续下一题!","错误")
Thisform.Setall(__________________________)  (2) &&清空所有文本框
__________________________      2分)        &&下一题按钮获取焦点
Endif
(3)对“下一题”按钮的_______________ 事件编写代码如下:
Thisform.Text1.Value=__________________
Thisform.Text2.Value=___________________
________________________________              &&清空Text3文本框
Thisform.Text3.Setfocus
(4)“退出按钮的___________事件代码
____________________________________  2分)
《数据库基础及应用》综合测试(二)
    —— Visual FoxPro操作基础及应用
学号:_________  姓名:_________  成绩:_________
一、单选(每小题3分,共21分)
1Viusal FoxPro DBMS 
A.操作系统的一部分          B.操作系统支持下的系统软件
C.一种编译程序              D.一种操作系统
2.表达式DtoS({06/08/06}-1)的值是 
A[06/08/06]                B[06/06/07]
C[20060608]                D[20060607]
3    下列关于数据库表与自由表的叙述中,错误的是 
A.数据库表可以转变为自由表
B.自由表可以转变为数据库表
C.数据库表和自由表的默认扩展名都是.dbf
D.数据库表和自由表都能为字段设置默认值
4.下列关于索引的叙述中,正确的是 
A.惟一索引的关键字不能有重复值
B.一个表只能创建一个主索引
C.候选索引的关键字可以有重复值
D.复合索引不能按关键字降序排序
5.参照完整性不包括的规则是 
A.更新规则                  B.复制规则
C.插入规则                 D.删除规则
6.在下拉组合框Combo1中获得选择或输入的值,访问的属性是 
AThisForm.Combo1.Value    BThisForm.Combo1.Text