vfp第5章.docx

1、vfp第5章试卷编号：564所属语言：Visual Foxpro试卷方案：VF_第五章试卷总分：86分共有题型：2种一、填空 共64题 （共计64分）第1题 （1.0分） 题号:308已知STUDENT表有20条记录,执行以下代码后,屏幕显示的是【1】clearclose alluse studenti=0scan i=i+1 skipendscan?i第2题 （1.0分） 题号:1272实现如下表达式的和：1+3+5+7+9+11，请完善如下程序：s=0 For I=1 to 11 if mod(I,2)=0 【1】 EndIf s=s+i EndFor ?s第3题 （1.0分） 题号:29

2、5下列程序用来求0100偶数之和,请将它写完整STORE 0 TO N, SDO WHILE .T. IF N100 【1】 ELSE S=S+N ENDIF N=N+2ENDDO第4题 （1.0分） 题号:1271完善下列程序,其功能是统计一个仅由数字组成的字符串中各种数字字符的个数: Clear cStr=110102342245676893319 Store 0 To n0,n1,n2,n3,n4,n5,n6,n7,n8,n9 Do while Len(cStr)0 C=Left(cStr,1) n&C=【1】 cStr=【2】 Enddo ? n0,n1,n2,n3,n4,n5,n6,

3、n7,n8,n9第5题 （1.0分） 题号:277函数LEN(STR(12345678901)的返回值为【1】,函数LEN(DTOC(DATE()的返回值为【2】第6题 （1.0分） 题号:1314完善下列程序,以显示71000以内能被7整除且含有数字5的所有证书(例如35、 56、 105等). FOR n=7 TO 1000 【1】 ch=ALLT(STR(n) IF 5$ch ?n ENDIF ENDFOR第7题 （1.0分） 题号:292VFP系统中,程序控制分为顺序、分支和【1】.第8题 （1.0分） 题号:1327运行以下程序后, VFP 主窗口显示的结果是 【1】 .【程序清单】

4、CLEARi=0n=0DO WHILE i0 x=ASC(【1】) IF x127 &ASCII码值大于127的字符为汉字(x为半个汉字的机内码) i=2 ELSE i=1 ENDIF P=LEFT(C,i)+P C=SUBSTR(c,i+1) ENDDO 【2】 ENDFUNC第15题 （1.0分） 题号:1290使程序的运行结果如下所示: 1*9+2=11 12*9+3=111 123*9+4=1111 1234*9+5=11111 12345*9+6=111111 123456*9+7=1111111 1234567*9+8=11111111 12345678*9+9=111111111

5、 123456789*9+10=1111111111完善下列程序: SET TALK OFF CLEAR x=space(0) For i=1 to 【1】 x=x+allt(str(i) ?STR(VAL(x)+*9+ 【2】 +=+ ALLT(STR(VAL(x)*9+ i+1) ENDFOR 第16题 （1.0分） 题号:285设定日期显示格式中,年的表示是否显示4位数的命令是【1】第17题 （1.0分） 题号:296运行下列程序段以后,显示内容的前两行为:【1】和【2】SET TALK OFFS=ABCDEFN=LEN(S)K=1DO WHILE K=N ? SUBS(S,K,N-K)

6、 K=K+1ENDDO第18题 （1.0分） 题号:300完善下列程序,以实现通过字符串变量操作竖向显示天长地久、横向显示地久天长的功能.程序清单如下: SET TALK OFF STORE 天长地久 TO ch CLEAR n=1 DO WHILE n10 EXIT ENDIF ENDD0第29题 （1.0分） 题号:282完善程序题.下列自定义函数DeleteSpace()的功能是将一个字符串中的所有空格删除:FUNCTION DeleteSpacePARAMETERS cStrcResult=SPACE(0)FOR n=1 TO 【1】 IF SUBSTR(cStr,n,1)=SPACE

7、(1) 【2】 ENDIF cResult=cResult+SUBSTR(cStr,n,1)ENDFORRETURN 【3】ENDFUNC第30题 （1.0分） 题号:275在定义数组时,使用DECLEAR和【1】声明的数组属于私有数组,而使用PUBLIC命令声明的数组属于全局数组,使用LOCAL命令声明的数组属于局部数组.第31题 （1.0分） 题号:278命令关键字和函数名一般可以缩写为前四个字母,但MEESSAGEBOX()函数的缩写为【1】第32题 （1.0分） 题号:274使用LOCAL、PRIVATE和PUBLIC关键字可以指定变量的作用域.在命令窗口中创建的任何变量或数组均为【1

8、】性变量.第33题 （1.0分） 题号:288在自定义函数中,定义形式参数的关键字为【1】第34题 （1.0分） 题号:1286在 VFP 中,每个对象都具有属性,以及与之相关的 【1】.其中,属性是定义对象的特征或某一方面的行为.第35题 （1.0分） 题号:1316运行下列程序后,显示的运行结果的第二行为 【1】 SET TALK OFF CLEAR Y=11111111 FOR I=1 TO LEN(y) X=LEFT(y, i) ?SPACE(20-i*2)+x+*+x+=+ALLT(STR(VAL(x)*VAL(x) ENDFOR第36题 （1.0分） 题号:286如果2002年3月

9、18号是星期一,则以下命令在屏幕上显示【1】x=2002/03/18?dow(x)第37题 （1.0分） 题号:312当人机交互改变对象的值时发生的事件是【1】,该事件在组合框、列表框等对象中被常常使用(请写出完整的关键字)第38题 （1.0分） 题号:1312在VFP中,利用可是化开发工具(表单设计器)创建表单和对象.通过对对象属性的修改、方法程序的调用来处理对象.相对引用对象时,所设计的关键字THIS、THISFORM、THISFORMSET只能在方法程序或【1】处理代码中使用.第39题 （1.0分） 题号:1291运行下列程序后,显示的运行结果为 【1】. ?TT(123E%n w$O4

10、q*5n6) FUNCTION TT PARA cstr cResult=space(0) FOR n=1 to LEN(ALLT(cStr) c=SUBSTR(cStr,n,1) IF !BETWEEN(c,A,Z) and !BETWEEN(c,a , z) LOOP ENDIF cResult=cResult+CHR(ASC(c)+1) ENDFOR RETURN cResult ENDFUNC第40题 （1.0分） 题号:293表达式STR(YEAR(DATE()+10)的值的数据类型为【1】第41题 （1.0分） 题号:281完善程序题.下列程序的功能是统计一个字符串中各个字符的个数

11、(假设字符串仅由大写英文字母A,B,C,D组成):cStr=AABBDDCABCDAADBCAACCDDDDBB &字符串赋初值STORE 0 TO nA,nB,nC,nD, &计数变量for i=1 to 【1】 C=LEFT(【2】) do case case C=A nA=nA+1 case C=B nB=nB+1 case C=C nC=nC+1 case C=D nD=nD+1 【3】EndF第42题 （1.0分） 题号:290下面的程序是给具有20个元数的一元数组赋整数值,并使其值的范围在099之间,完成程序(已知rand()是随机变量,其随机产生的值在0.01.0之间.提示:函数

12、 int()返回其参数的整数部分)dime mm(20)for i=1 to 20 【1】endf第43题 （1.0分） 题号:1251完善下列程序，是程序的结果如下图所示 1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27 4*4=16 4*5=20 4*6=24 4*7=28 4*8=32 4*9=36 5*5=25 5*6=30 5*

13、7=35 5*8=40 5*9=45 6*6=36 6*7=42 6*8=48 6*9=54 7*7=49 788=56 7*9=63 8*8=64 8*9=72 9*9=81 *程序* CLEAR FOR i=1 TO 9 FOR j=1 TO 9 If i=j ? STR(I,1)+”*”+STR(j,1)+”=“+【1】 +SPACE(2) ENDIF ENDFOR 【2】 ENDFOR第44题 （1.0分） 题号:1200完善下列程序,使两个程序的功能相同(求一个数列的前20项之和). 【程序清单1】 【程序清单2】 CLEAR CLEAR s=0 s=0 FOR i=1 To 20

14、FOR i=l TO 19 STEP 2 s=s+(-1)*(i+1)/(【1】) s=s+1/(i*(i+1)-1/(i+1)*(i+2) ENDFOR ENDFOR ?s ?S第45题 （1.0分） 题号:1335下面有两段程序代码,它们的功能【1】(注:答相同或不相同).【程序一清单】nSum=0p=1FOR i=1 TO 10p=p*inSum=nSum+pENDFOR?nSum 【程序二清单】nSum=0FOR i=1 to 10nSum=nSum+fJC(i)ENDFOR?nSumFUNCTION fJCPARAMETERS xp=1FOR n=1 TO x p=P*nENDFOR

15、RETURN pENDFUNC 第46题 （1.0分） 题号:1204一只球从100米的高度自由落下,每次落地后反弹回原高度的一半.下列程序的功能是:计算并显示当它在第10次落地时,总共经过的距离和第10次反弹的高度. 【程序清单】 CLEAR S=100 h=50 FoR i=1 TO 9 s=s+h*2 h=【1】 ENDFOR ?球在第10次落地时,共经过了:+ALLT(STR(s,10,6)+米 ?球第1O次反弹的高度是:+ALLT(STR(h,10,6)+米第47题 （1.0分） 题号:1203执行下列程序后,输出到屏幕的结果为【1】 . 【程序清单】 CLEAR STORE 5 T

16、O ml,m2 STORE 1 TO m3,m4 DO PA WITH ml,m2,m3,m4 ?m4 PROCEDURE PA PARAMETER a,b,c,d d=b2-4*a*c DO CASE CASE d0 d=300 ENDCASE RETURN第48题 （1.0分） 题号:291如果当前日期是2000年4月1日,并且命令 ?date()在屏幕上返回 04/01/00, 则命令行 ?date()+10在屏幕上返回的值为【1】第49题 （1.0分） 题号:1250完善下列程序，使两个程序的功能相同。 程序清单1 CLEAR S=0 P=1 For i=1 to 20 P=【1】 S

17、=S+P ENDFOR ? s 程序清单2 CLEAR S=0 N=1 For i=1 to 20 M=1 For n=1 to i M=M*n Endfor S=S+M Endfor ? S第50题 （1.0分） 题号:306执行以下程序,屏幕显示为:【1】和【2】x=8DO WHILE .T.x = x + 1IF x = INT ( x / 4 ) * 5 ? xELSELOOPENDIFIF x 10 EXITENDIFENDDO第51题 （1.0分） 题号:298依次执行以下命令之后,最后一条命令的输出结果是【1】SET EXACT OFFx=6.0?IIF(x=6.0 ,Visua

18、l FoxPro-x , Visual FoxPro +5.0)第52题 （1.0分） 题号:1343下列自定义函数 NTOC ()的功能是:当传送一个 17 之间的数值型参数时,返回一个中文形式的星期日 星期六.例如,执行命令? NTO ( 4 ),显示星期三. FUNCTION NTOCPARAMETERS nLOCAL chch=日一二三四五六mch=星期=SUBSTR(ch,【1】,2)RETURN mchENDFUNC第53题 （1.0分） 题号:305完善下列程序,使其具有如下功能:将任意输入的十进制正整数转换为十六进制数形式并显示.(提示:字母A的ASCII 码为65;INPUT

19、语句用于从键盘上输入一个数据)SET TALK OFFCLEARINPUT 请输入任一正整数 TO num &输入一个数,并赋予变量numnum 1 = numxnum = SPACE ( 0 )y =IIF(MOD(num,16)9,CHR(【1】),str(MOD(num,16),1)DO WHILE num 15 xnum =&y + xnum num = INT (【2】)ENDDOxnum =&y+xnumWAIT WINDOW STR(【3】) +转换为十六进制后为+xnum第54题 （1.0分） 题号:1201下列程序用来计算数列2/1,3/2,5/3,155/18,173/19

20、,192/20,的前20项之和.阅读程序并完善,使它能实现要求的功能. 【程序清单】 CLEAR m=2 s=0 FOR i=1 TO 20 s=s+m/i m=【1】 ENDFOR ?s第55题 （1.0分） 题号:289下面程序执行以后,屏幕上显示【1】x=.t.y=.f.z=not(x and (y or x)?z第56题 （1.0分） 题号:302已知在命令行输入 ?at(e, Hello everyone!,3)其返回值为9,则?at(e, Hello everyone!,2)返回值为【1】第57题 （1.0分） 题号:1246执行下列主程序后,输出结果为【1】 *主程序* CLEA

21、R Public x, y ,z X=3 Y=4 Z=5 Do pp ? x+y+z *过程* Procedure PP LOCAL x X=5 Y=7 Z=x+y EndPROC第58题 （1.0分） 题号:1234在面向对象的程序设计中,通过类可以简化应用程序的设计,因为类具有【1】、多态性、封装性、抽象性等特点.第59题 （1.0分） 题号:1206执行下列程序后，输出到屏幕的结果为【1】。 【程序清单】 CLEAR cstring=VisualFoxPro nresult=0 m=LEN(cstring) FOR n=1 to m c=SUBSTR(cstring,n,1) IF !BETWEEN(ASC(c)，ASC(A),ASC(Z) LOOP ENDIF nresult=nresult+l ENDFOR ?nresult 第60题 （1.0分） 题号:1229本题程序求以下正项级数的近似值： 【程序清单】 CLEAR i=0 sn1=O DO WHILE .T. i=i+1 sn1=sn1+l/(i*(i+1)*(i+2) sn2=【1】 IF ABS(sn2-snl)0.0001 【2】 ENDIF ENDDO ?sn2第61题 （1.0分） 题号:1230以下程序产生1000