1、VFP（第 1套）一、单选题（每题 1分，共 60题）1.在当前表单中引用对象 Text1的属性时，下面格式正确的是（ ）A. Text.value=“VFP程序设计“B. Text1.value=“ VFP程序设计“C. Thisform.Text.value=“ VFP程序设计“D. Thisform.Text1.value=“ VFP程序设计“2.在 Visual FoxPro中，表单(Form)是指（ ）A.数据库中各个表的清单B.一个表中各个记录的清单C.窗口界面D.数据库查询的列表3.在比较两个字符串是否相等时，和?“ASD“=“ASD“等价的表达式是（ ）A.SET EXACT
2、OFF ? “ASD“=“ASD“B.SET EXACT ON ? “ASD“=“ASD“C.SET CENT ON ? “ASD“=“ASD“D.SET DEFAULT TO ? “ASD“=“ASD“4.当前已打开的表文件的出生日期字段为日期型，另有一个数值型的年龄字段，现要根据出生日期计算年龄，并写入年龄字段，应该使用命令（ ）A.REPLACE ALL年龄 WITH YEAR(DATE()-YEAR(出生日期)B.REPLACE ALL年龄 WITH DATE()-出生日期C.REPLACE ALL年龄 WITH DTOC(DATE()-DTOC(出生日期)D.REPLACE ALL年
3、龄 WITH VAL(DTOC(DATE()-VAL(DTOC(出生日期)5.表文件中有 10条记录，执行下列语句系列后，结果是_USE 学生LIST? RECNO()（ ） A.10B.11C.1D.06.已知表文件的表结构中有奖学金字段，且是数值型，现在命令窗口，学生.DBF 已打开,要将记录指针定位在第一个奖学金大于 50的记录上，用命令（ ）A.SEEK FOR 奖学金50B.LOCATE FOR 奖学金50C.FIND FOR 奖学金50D.LIST FOR 奖学金507.下列循环执行次数是_FOR I=1 TO 6I=I+1ENDFOR（ ） A.6B.7C.3D.语法错误8.要将
4、计时器控件的计时间隔设置为 2秒，则 Interval属性值应设为（ ）A.2 B.120C.200 D.2000 9.将逻辑真赋值给内存变量 STRING1的正确方法是（ ）A.STRING1=TRUEB.STORE “T“ TO STRING1C.STORE .T. TO STRING1D.STRING1=“.T.“10.执行命令：? SUBSTR(“数据库管理系统“,7,LEN(“管理“-“系统“)结果是（ ）A.统B.系统C.管理系统D.管理11.Visual FoxPro 6.0数据库系统是_型数据库系统。（ ）A.网络B.层次C.关系D.链状12.在表的备注字段中可以输入的内容有（
5、 ）A.图像 B.波形声音C.视频剪辑 D.文字13.当 EOF()函数为真时，记录指针位于（ ）A.表文件的头B.第一条记录C.表文件的尾D.最后一条记录14.设 A=“456“，B=“789“，表达式的值为假.F.的是（ ）ANOT.(A= =B) .OR.(B$“ABC“) BNOT.(A$“ABC“).AND.(AB) D.AC.thisform.width or thisform.label1.leftzi=_3_endifthisform.label1.left=_4_请选择填空（ ）A.3B.30C.300D.180E. 0F. 1G. .F.H. .T.I. 1J. -iK.
6、iL. 0M. thisform.label1+iN. thisform.label1.left-iO. thisform.label1.left+iP. thisform.label1.right+i2.从键盘输入一个数，判断这个数是不是既是 3的倍数同时又是 5的倍数SET TALK OFFCLEAR_1_ IF _2_ _3_ _4_? STR(N)+“不能同时满足既是 3的倍数又是 5的倍数!“ ENDIFSET TALK ON请选择填空（ ）A.ACCEPT “N=“ TO NB.WAIT “N=“ TO NC.INPUT “N=“ TO ND.STORE “N=“ TO NE.MO
7、D(N/3)=0 AND MOD(N/5)=0F.MOD(N,3)=0 AND MOD(N,5)=0G.N%3=0 OR N%5=0H.INT(N,3)=0 AND INT(N,5)=0I.? N,“既是 3的倍数又是 5的倍数!“J.? N+“既是 3的倍数又是 5的倍数!“K.STR(N+既是 3的倍数又是 5的倍数!)L.? “N“M.ENDIFN.OTHERWISEO.ELSEP.DO CASE3.以下程序的功能是：求 1！+3！+5！+N!的值。N 由键盘输入，且为奇数。SET TALK OFFCLEAR_1_STORE 0 TO S,TFOR I=1 TO N STEP _2_DO
8、 SUB1_3_ENDFOR? SSET TALK ONPROC SUB1 &过程 SUB1T=1FOR J=1 TO I_4_ENDFOR请选择填空（ ）A.ACCEPT “N=“ TO NB.DO WHILE .T.C.WAIT “N=“ TO ND.INPUT “N=“ TO NE.0F.1G.2H.8I.S=S+TJ.S=S+NK.S=TL.S=S+T*IM.T=T*IN.T=T*JO.T=T*NP.S=S+J*T4.给定一个年份(从键盘输入数值型数据)，判断它是不是闰年。闰年的条件是：能被 4整除但不能被100整除，或能被 100整除且被 400整除。SET TALK OFFCLEA
9、R_1_ _2_ ? STR(Y)+“是闰年!“ELSE_3_ _4_ SET TALK ON请选择填空（ ）A.ACCEPT “Y=“ TO YB.INPUT “Y=“ TO YC.WAIT “Y=“ TO YD.STORE “Y=“ TO YE.IF (Y%4=0 AND Y%100!=0) OR Y%400=0F.IF (Y%4 AND Y!%100) OR Y%400G.IF (INT(Y/4)=Y/4 AND INT(Y/100)!=Y/100) AND INT(Y/400)H.IF (Y%4=0 AND Y%100!=0) AND Y%400=0I.? Y+不是闰年!J.? Y+“
10、不是闰年!“K.? Y,“不是闰年!“L.STR(Y不是闰年)M.ENDDON.ENDCASEO.ENDFORP.ENDIF5.如下程序实现的功能是：从键盘输入一个数,判断它是奇数还是偶数。SET TALK OFFCLEA_1_ 请输入一个数= TO SHA=INT(SH)IF A=SHIF A%2=0_2_ELSE ? A,是奇数!_3_ELSE? 不是整数_4_SET TALK ON对应的选择是（ ）A.ACCEPTB.WAITC.INPUTD.STOREE.? A+是偶数!F.? STR(A)+是偶数!G.? A+是偶数!H.? VAL(A)+是偶数!I.ENDIFJ.ENDDOK.ELSEL.ENDCASEM.ENDDON.ENDFORO.QUITP.ENDIF
