26、下面命令显示的结果是_____。?AT(‘计算机’,‘数据库’)[A]出错[B]什么都不显示[C].F.[D]027、在VisualFoxPro中,为了将表单从内存中释放(清除),可将表单中退出按钮的Click事件代码设置为D。[A]ThisForm.Refresh[C]ThisForm.Hide[B]ThisForm.Delete[D]ThisForm.Release。
28、对关系S和关系R进行集合运算,结果中既包含S中元组也包含R中元组,这种集合运算称为[A]并运算[B]交运算[C]差运算。[D]积运算29、VisualFoxPro的循环语句包括D
[A]DOWHILE语句[B]FOR……NEXT语句
[C]SCAN语句[D]以上语句都是30、在VisualFoxPro中,过程文件的扩展名是__________。[A].FOM[B].SCX[C].SUB[D].PRG二、填空题(每空1分,共10分)空题(请将正确答案写在答题纸相应位置上,答在试卷上不得分。1、VisualFoxPro支持的两种程序设计方式为____________和____________。2、若A="伟大祖国",则?SUBSTR(A,LEN(A)/4+3,4)的结果为__________。3、如果一个只能有一个校长,该校长又不能同时担任其它的校长,则校长和两个实体之间的关系属于的联系。4、字段值不允许重复,且一个表中可以创建个的索引称为5、顺序执行下列命令后,屏幕上显示的结果是T=.F.F=.T.N=TY=F?.NOT.Y.OR.N6、数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是7、数据表是由和表记录两部分组成。8、表达式INT(6.26*2)%ROUND(3.14,0)的值是__________。9、执行DIMENSIONX(2,6)命令之后,数组X中的元素个数是__________。(每空三、命令填空:每空2分,共20分)命令填空:(请将正确答案写在答题纸相应位置上,答在试卷上不得分。本题所用表结构如下:学生(/c/8,/c/8,性别/c/2,数学/n/3,英语/n/3,总分/n/3,简历/m,照片/g)1、共生成[1]个备注文件2、计算所有人的总分:replaceLISTINDEXONall总分with[3][4][5]TAGZF_SX[2]3、显示所有英语和数学都不及格学生的记录:4、按“总分”为第一关键字,“数学”为第二关键字建立索引(升序):生成的备注文件文件名为:5、求所有学生英语的平均分:[6]6、显示为“11203”学生的英语成绩和平均成绩:LIST[7][8]DELETEFOR9.删除表中所有记录:[10]四、程序填空(每空2分,共12分)程序填空([9]FOR=“11203”TONEW7、将总分大于150分同学的记录复制到一指定的表中:8、给第3、4、5号记录做删除标记:。。索引。
请将正确答案写在答题纸相应位置上,答在试卷上不得分。1.输出水仙花数(水仙花数:是一个三位数,其个位的立方加十位的立方加百位的立方,和等于它本身。)SETTALKOFFCLEARFORi=100TO999a=INT(i/100)b=c=INT(i%10)IF?"i=",iENDIFENDFORSETTALKONRETURN2.如下图:表单名为Form1,表单中有两个命令按钮(Command1和Command2)、两个标签、两个文本框(Text1和Text2)。
(1)如果在运行表单时,要使表单的标题显示“登录窗口”则可以在Form1的L
oad事件中加入语句,
[3]
。
(2)如果想在运行表单时,向Text2中输入字符,回显字符显示的是“*”是,则可以在Form1的Init事件中加入语句[4]。
(3)假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下:USE口令表GOTOPflag=0DOWHILE.NOT.EOF()IFAlltrim(用户名)==Alltrim(Thisform.Text1.Value)IFAlltrim(口令)==ELSEWAIT"口令错误"WINDOWTIMEOUT2ENDIFflag=1EXITENDIFSKIP[5]WAIT"欢迎使用"WINDOWTIMEOUT2
ENDDOIF_____[6]_____WAIT"用户名错误"WINDOWTIMEOUT2ENDIF(每题五、写出程序运行结果:每题4分,共12分)写出程序运行结果:(请将正确答案写在答题纸相应位置上,答在试卷上不得分。1.设有一个数据库表文件及其内容如下:SLB.DBF记录号12345编号B1B0B2B10B12数量4060406010
写出下面程序的运行结果。SETTALKOFFUSESLBS=0M.数量=数量LOCATEFOR数量>M.数量DOWHILE.NOT.EOF()??编号IFSUBSTR(编号,2,1)=“1”S=S+数量ENDIFCONTINUEENDDO??SUSESETTALKON2.SETTALKOFFCLEARFORI=5TO1STEP-1?SPACE(I)FORJ=1TO6-I??CHR(ASC(“A”)