下载文档原格式
Visual FoxPro实验题汇总★顺序结构程序设计1.用过程化编成方式编写本题。
求解一元二次方程〔JFC.PRG〕a=1b=4c=4x1=<-b+SQRT<b^2-4*a*c>>/<2*a>x2=<-b-SQRT<b^2-4*a*c>>/<2*a>?"方程的一个根是:",x1,space<10>,"另一个根是:",x22.理解大小写转换函数。
在文本框中输入文本串,按"转大写"按钮,文本中的英文字母变为大写,按"转小写"按钮,文本中的英文字母变为小写〔如图所示〕。
<FORM><load>:Public a<text1><interactiveChange>:Thisform.text1.value=a<大写><click>:Thisform.text1.value=upper<a><小写><click>:Thisform.text1.value=lower<a><复原><click>:Thisform.text1.value=a3.班上集体购买课外读物,在文本框中输入3种书的单价、购买数量,计算并输出所用的总金额。
<总计><click>:a=val<thisform.text1.value>b=val<thisform.text2.value>c=val<thisform.text3.value>d=val<thisform.text4.value>e=val<thisform.text5.value>f=val<thisform.text6.value>thisform.text7.value=a*b+c*d+e*f4. 在文本框中输入小时、分、秒,化成共有多少秒,然后输出之。
顺序结构程序设计1.从键盘输入长方体的长、宽、高，求长方体的表面积。
input “输入长方体的长：” to xinput “输入长方体的宽：” to yinput “输入长方体的高：” to zs=2*x*y+2*x*z+2*y*z?”长方体的表面积为：”,s2.从键盘输入圆的半径，计算圆的面积。
input “输入圆的半径：” to rs=3.14*r^2?”圆的面积为：”,s3.建立数据库XS，将表XSQK.DBF添加到该数据库，并浏览该表所有数据，最后关闭数据库。
Create database xsAdd xsqkBrowseClose all4.在表XSQK.DBF中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。
Use xsqkLocate for 出生日期 ={^1983-10-8}DisplayContinueDisplayUse分支结构程序设计1. 从键盘输入一个数，若为正数则输出，非正数则结束。
input “输入一个数：” to xif x>0?xendifreturn2. 求一元二次方程AX2+BX+C=0的实根。
input “输入系数A：”to ainput “输入系数B：”to binput “输入系数C：”to cm=b^2-4*a*cif m>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?”x1=”,x1, ”x2=”,x2else?”方程无实根！”endif3. 从键盘输入一个待查学生的学号，在表XSQK.DBF中查找。
若能找到，则显示该记录，否则，显示信息“该学号不存在”。
use xsqkaccept “输入待查学生学号：” to xlocate for 学号=xif not eof()displayelse?“该学号不存在”EndifUse4. 从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。
V F P 作业一、单项选择:1.数据库中组织存放数据的数据模型有（）三种模型。
A）层次型、关系型和网状型 B）网状型、星状型和环状型C）数值型、字符型和日期型 D）大型、中型和小型2.在数据库表达式中，各种运算符按优先顺序排列正确的是（）A）算术运算、关系运算、逻辑运算、函数运算B）算术运算、逻辑运算、关系运算、函数运算C）函数运算、算术运算、关系运算、逻辑运算D）函数运算、逻辑运算、关系运算、算术运算3.下列不正确的是（）。
A）长度为零的字符串（俗称“空串”）也是字符型常量B）.T.是逻辑型常量C）[you=!789] 是字符型常量D）{^1921/07/01}不是日期型常量4.建设计算机当前的系统日期是2002年11月23日，执行命令？YEAR（DATE（））的结果是（）。
A）数值型的02 B）字符型的02 C）数值型的2002D）字符型的20025.命令？INT（15/7）=15/7的值是（）。
A）1 B）.F. C）.T. D）出错6.能够接收执行用户命令实行对数据库的数据录入、删除、插入、修改、查询、统计、分类、索引、排序等操作的软件系统称为（）。
A）数据库系统B）数据库管理系统C）数据库程序D）数据库软件系统7.在下列汉字字符中提取出“江南”两个字的正确命令是（）。
A）STR（“春风又绿江南岸”，5，2）B）STR（“春风又绿江南岸”，9，2）C）SUBSTR（“春风又绿江南岸”，9，4） D）SUBSTR（“春风又绿江南岸”，5，4）8.从关系数据库中取出符合某些字段属性的操作是（）。
A）连接 B）投影C）索引 D）选择9.字符串长度函数LEN（SPACE（3）－“2”）的值是（）。
A）5 B）4 C）1 D）提示错误10.某数据库文件有5个字段，其中三个字符型字段的宽度分别是6、12和10，另外还有一个逻辑型字段和一个日期型字段，该数据库文件中每条记录的总字节数是（）。
A）40 B）39 C）38 D）3711.某数值型字段的宽度定义为6，小数位数为2，该字段所能存放的最小数值是（）。
VFP期末笔试题型1.单项选择题（共30小题，每题1分，共计30分）（图答题卡）2.写出表达式及函数结果题（共10小题，每题1分，共计10分）3.阅读程序写出结果题（共5小题，每题4分，共计20分）4.填空题（共30空，每空1分，共计30分）5.编程题（共2小题，每题5分，共计10分）一题面向过程，一题面向对象各章复习第一章数据库系统及Visual FoxPro 概述1． B 是用于建立、使用和维护数据库的系统软件。
它对数据库进行统一的管理和控制，以保证数据库的安全性和完整性。
用户通过它来访问数据库中的数据，数据库管理员也通过它进行数据库的维护工作。
A、数据库B、数据库管理系统C、操作系统D、数据处理应用程序2.关于关系规范化、关系模型和关系运算，以下说法中错误的是：___B__。
A、关系模型中，主要是通过外部关键字表示实体之间的联系B、关系规范化的主要目的之一就是完全消除数据冗余C、在进行关系运算的并、差、交运算时，两个关系的结构必须相同D、一个规范化的二维表中，其行、列的顺序可任意交换3．当前常用的DBMS产品中，数据模型主要采用__B___和面向对象模型，VFP就是采用这种。
A、表格模型B、关系模型C、E-R模型D、C/SE、模型网状模型F、层次模型。
4．E-R图是E-R模型的图形表示法，它是直接表示概念模型的有力工具。
在E-R图中，用 D 表示属性。
A、三角形B、矩形C、菱形D、椭圆形5.关键字是关系模型中的重要概念。
其值能够惟一地确定一条记录，但是它所包含的字段可能是有多余的，这样的关键字称为 A 。
A、超关键字B、候选关键字C、主关键字D、外部关键字6.在关系模型中，关系规范化的过程是通过关系中属性的分解和关系模式的分解来实现的。
在实际应用中，设计关系模式时一般要求满足 C 。
A、1NFB、2NFC、3NFD、4NF7.二维表中能唯一确定记录的一列或多列的组合称为超关键字。
若一个超关键字去掉其中任何一个列后不再能唯一确定记录，则称其为候选（1）关键字。
VFP编程题及参考答案1.输入圆的半径，求圆的周长和面积并输出。
解：编写程序如下：clearinput “请输入圆的半径：” to rl=2*3.14159*rs=3.14159*r*r? “圆的周长为：”,l? “圆的面积为：”,s2.输入梯形上底、下底和高的值，求梯形面积并输出。
解：编写程序如下：clearinput "请输入梯形的上底：" to shdinput "请输入梯形的下底：" to xdinput "请输入梯形的高：" to gs=(shd+xd)*g/2? "梯形的面积为：",s3.输入三角形的三边长（设输入的三边a、b、c能构成三角形），求三角形的周长和面积并输出。
（提示：面积=半周长*(半周长-a)*(半周长-b)*(半周长-c)的平方根）解：编写程序如下：clearinput "请输入三角形的第一条边长：" to ainput "请输入三角形的第二条边长：" to binput "请输入三角形的第三条边长：" to cL=(a+b+c)/2s=sqrt(L*(L-a)*(L-b)*(L-c))? "三角形的周长为：",2*L? "三角形的面积为：",s4.输入2个实数，要求按由小到大的次序输出这两个数。
解：编写程序如下：clearinput "请输入第一个实数：" to num1input "请输入第二个实数：" to num2if (num1>num2)? num2,num1else? num1,num2endif5.请编写一个“A类邮件”计费程序，求出邮件的邮资费并输出：“A类邮件”计费规定：当邮件重量小于等于200克时，邮资费为每克0.06元；当邮件重量超过200克时，其中200克，按每克0.06元计费，超过200克的重量，按每克0.03元计费。
VFP练习题目二常用函数1、表达式stuff("GOODBOY",5,3,"GIRL")的运算结果是____GOODGIRL_____2、设A=10,B=5,C=4,表达式A%B+B^2/C+B的值为___11.2500____3、执行命令?substr("可视化VisualFoxpro",3,4)的显示结果__视化___4、执行命令?upper("VisualBasic")的显示结果____VISUALBASIC____5、表达式?"student"=="Student"的结果是__.F.___6、表达式?1+18>10 and 10+8>12 or "abc"$"ab"的结果是____.T.__7、设A="30",B="A",表达式?&B+"10"的结果是__3010_8、执行?day({^2005-12-15})命令后显示的结果是___15____9、执行?lower("VISUAL FoxPro 数据库管理系统")命令后显示的结果是___visual foxpro 数据库管理系统___10、表达式?"Visual FoxPro"$"Visual"的结果为_.F.__(前面是子串)11、表达式?at("Visual FoxPro","数据库管理系统",2)的结果为___0__12、?left("123ABCD",len("数据库"))的计算结果是___123ABC___13、表达式?{^2007/09/30}-{^2007/09/10}的值为___20__14、表达式?125*5<=625的值为__.T.___15、表达式?10*20<=200 and 10*20>=200的值为___.T.___16、表达式?25<>20 and 25#20 and 25 !=20的值为___ .T.___(<> # != 表示不等于)17、表达式?not 10**2>100 or 50*10>25 and 16>16__.T.____18、表达式?int(-11.9+3)+abs(-10)的值为__2____19、表达式?max(10**2,10*2) 的值为_100.00___20、表达式?int(sqrt(3^2+round(2.098,2)*10)) 的值为_5__21、表达式?round(int(sqrt(1680.67))+2.356,1) 的值为__42.4_22、表达式?mod(-int(sqrt(105)),-3) 的值为__-1_(求余数)23、表达式?len("Visual"+"FoxPro"+"教程")的值为__16_24、执行后显示结果为__14.80____x=str(12.4,4,1) &&数值转换成字符串12.40y=right(x,3) &&2.40z="&x+&y"?&z25、执行后显示结果为__GOOD LUCKY__w1="GOOD AFTERNOON"w2=substr(stuff(w1,6,0,"LUCKY"),1,10) &&stuff 子串替换函数substr 从指定表达式值的指定起始位置取指定长度的子串作为函数值?w226、表达式?val(substr("586cpu",2,1))*len("Foxpro6.0")的结果是____72.00__&&val 字符串转换成数值Val(8)*97227、表达式?8<>5and"ABC">"ABD"OR NOT 10>12+3的结果是___.T.___28、依次输入下列命令:A="软件"B="系统软件"+space(6)-"应用软件" &&系统软件应用软件?AT(A,B,2) &&at 求子串位置函数输出结果是__5_______29、表达式?len(substr("Internet",6)+space(3))的值为___6____30、输入命令:?len(alltrim("计算机"+space(10)+"应用")),系统输出结果是___20__ &&alltrim 返回指定字符表达式去掉前导和尾部空格后形成的字符串,非中间的空格31、输入命令:?upper(lower("Yes.NO.")) 系统输出结果是__YES.NO___32、依次输入下列命令:x="ABC"y="ABD"?iif(len(x)>len(y),"YES","NO")输出结果是__NO_______1、依次输入下列命令,输出结果依次为5 5 -1 0___store 10 to x?abs(5-x),abs(x-5),sign(5-x),sign(x-10)2、依次输入下列命令,输出结果依次为__-10.00__store -100 to x?sign(x)*sqrt(abs(x)) &&-1*SQRT(100)3、依次输入下列命令,输出结果依次为___5 -5 6 -5 5 -6_?int(5.8) &&返回整数部分?int(-5.8)?ceiling(5.8) &&返回大于或等于的最小整数?ceiling(-5.8)?floor(5.8) &&返回小于或等于的最小整数?floor(-5.8)4、依次输入下列命令,输出结果依次为___无返回值245.35 345.3 345 350_ ?round(345.345)?round(345.345,2)?round(345.345,1)?round(345.345,0)?round(345.345,-1)5、依次输入下列命令,输出结果依次为____1 -2 2 -1?mod(10,3)?mod(10,-3)?mod(-10,3)?mod(-10,-3)6、依次输入下列命令,输出结果依次为__12 飞机__?max('2','12','05')?min('汽车','飞机','轮船')7、依次输入下列命令,输出结果依次为__21__?len("中国Visual FoxPro6.0")8、依次输入下列命令,输出结果依次为_xly2a abcabc N=1 ABCABC___ ?lower('X1y2A*')?lower('ABCabc')?upper('n=1')?upper('ABCabc')9、依次输入下列命令,输出结果依次为__Go BY BYE! YE!__?left("GooD BYE!",2)?substr("GOOD BYE!",6,2)?substr("GOOD BYE!",6)?right("GOOD BYE!",3)10、依次输入下列命令,输出结果依次为__5 2 1 0__?occurs('a','abracadabra')?occurs('b','abracadabra')?occurs('c','abracadabra')?occurs('e','abracadabra')程序设计基础习题集执行下面程序，结果是11 6store 0 to Bfor A=0 to 10if mod(A,2)=0B=B+1endifendfor?A,B执行下面程序，结果是执行下面程序，结果是13s=1i=0do while i<8s=s+ii=i+2enddo?s执行下面程序，结果是 24i=1t=0do while i<=7i=i+2t=t+ienddo?treturn执行下面程序，结果是____5 .F.____dimension A(10)i=1do while i<=5k=str(i,1)A&k=iA(i)=ii=i+1enddo?A&k,A(i)return有如下程序clearx1=100x2=58do sub?x1,x2returnprocedure subprivate x1x1=110x2=60?x1,x2endproc程序执行后，屏幕显示结果是______110 60___100 60__执行下面程序，结果是_10____ 答案为clearstore 20 to xif x<0y=-xelseif x<=-10y=10-xelsey=x-10endifendif?yreturn执行下面程序，结果是_____30____ 答案：clearn=6s=0do while n>0for m=int(n/2) to n step 2s=s+m+nendforn=n-3enddo?str(s)return下列程序的运行结果是___科技大学______答案：clearABC="北京科技大学信息学院"x=len(ABC)/5if x>=4ABC=substr(ABC,5,8)elseABC=substr(ABC,13,8)endif?ABCreturn下列程序的运行结果是13cleari=1do while i<=11i=i+2enddo?ireturn有下列程序：clearset talk off &&SET TALK OFF的意思是关闭程序运算的显示过程，&&SET TALK ON是开启显示程序的运算过程i=1s=0do while i<=10s=s+ii=i+1enddo?"s=",s该程序的运行结果是55有下列程序set talk offs tore 3 to x,y,zdo fy with(x),y?x,y,z*******定义过程*******procedure fy &&procedure是定义过程，无返回值parameter a,b &¶meter：参数a=a+2b=b-2returnset talk on程序执行后，正确的结果是 3 1 3有下列程序： 1 2 3 4 5 6clearfor i=1 to 6??iendfor有如下程序：clearset talk onx=10y=5z=6do fy with x,ydo fy with x,yset talk onprocedure fyparameter y,zx=y+10y=y+z?x,y,zendproc&& return程序执行后，正确的结果是_20 15 525 20 5___答案：如下程序段的输出结果是11cleari=1do while i<10i=i+2enddo?i写出下列程序的运行结果 2 2 2set talk offdimension A(6)for k=1 to 6A(k)=20-2*kendfork=1do while k<6A(k)=A(k)-A(k+1)k=k+1enddo?A(1),A(3),A(5)set talk on执行下面程序，则i的值是7,2clearfor i=10 to 4 step-2if i%3#0i=i-1endifi=i-2??iendfor执行下列程序的结果为cleardo while.t.?right(var,1)+varexitvar=var+2enddo执行下列程序的结果为105clears=1for n=1 to 8 step 2s=s*nendfor?s下面所列程序的运行结果为空格3 空格空格4 空格空格空格5 clearfor m=3 to 5?space(m-2)+str(m,1)endfor执行下列程序的结果为clears=1for n=1 to 8 step 2s=s*nendfor?s有如下程序，显示结果为9*******主程序A.prg*******store 2 to x1,x2,x3x1=x1+1do a2?x1+x2+x3returnset talk on*******过程A2.prg*******proc a2x3=x3+2return to masterendproc写出下列程序的运行结果 6 4 2set talk offdimension a(6)for k=1 to 6a(k)=20-2*kendfork=5do while k>=1a(k)=a(k)-a(k+1)k=k-1enddo?a(1),a(3),a(5)set talk on写出下列程序的运行结果122.00 23 set talk offclearstore 1 to xstore 20 to ydo while x<=yif int(x/2)<>x/2x=1+x^2y=y+1loopelsex=x+1endifenddo?x?yset talk onreturn写出下列程序的运行结果 123246set talk offcleardimension k(2,3)do while i<=2j=1do while j<=3k(i,j)=i*j??k(i,j)??""j=j+1enddo?i=i+1enddoreturn写出下列程序的运行结果y= 100（前面有7个空格）clearstore 0 to x,ydo while.t.x=x+1y=y+1if x>=100exitendifenddo?"y="+str(y,10)写出下列程序的运行结果 6 5clearstore 0 to x,yx=5y=6x=x+yy=x-yx=x-y?x?y下列程序的运行结果是 3 9 27 81clears=1do while s<50s=s*3??senddoreturn有如下程序：执行该程序时，要执行__6____次循环（60 59 58 57 56 55 54)cleara=55b=60do while b>=ab=b-1enddo?breturn下面程序段的输出结果是10i=1do while i<10i=i+3enddo?ireturn有下面的程序段，执行程序后，最后显示N的值是 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21for n=1 to 20?nendfor?n下面程序段的输出结果是abcde12345clearset talk offa='12345'do b?aset talk onreturnprocedure bprivate aa='abcde'?areturn下面程序段的输出结果是12 12 set talk offclearm=10n=1do test with m,n?m,nset talk onreturnprocedure testparameters x,yx='12'y=12?x,yreturn下面程序段的输出结果是16set talk offcleari=1j=2do a with i,j?i+jset talk onprocedure aparameters x,yx=x+1y=y+1do b with x,yreturnprocedure bparameters a,bprivate a,ba=11b=5return下面程序段的输出结果是 5 clearstore 0 to x,ydo while x<=10x=x+1if int(x/2)<>x/2loopelsey=y+1endifenddo?"y=",yset talk on下面程序段的输出结果是y= 2500set talk offclearx=0y=0do while x<100x=x+1if int(x/2)=x/2loopelsey=y+xendifenddo?"y=",yreturn下面程序段的输出结果是西部开发在重庆clearw="西部大开发"c="重庆"a=subs(w,1,4)+subs(w,at("开",w),4)?"&a.在&c"return下面程序段的输出结果是i= 8 j= 6 cleari=0j=10do while i<jj=j-1i=i+2enddo?"i=",i,"j=",jreturn下面程序段的输出结果是7 21 35 49set talk offcleari=1do while i<=50if i/7=int(i/7)??str(i,4)endifi=i+2enddoreturn有如下程序文件：input"请输入x的值:"to xinput"请输入y的值:"to yinput"请输入z的值:"to zif max(x,y)<z?max(x,y)elseif min(x,y)<z?zelse?min(x,y)endifendif当运行程序后，输入的x,y,z的值分别为3，4，10。
VFP考试题目及答案一、填空题5•退出VFP系统所使用的命令是 ______ 。
6•程序设计屮常用的三种基木结构是 ______、_____ 和 ________ 。
7. 将数学表达式{[(5+8)x6+32]・20}亦0转换成VFP表示的表达式为。
8. 设X=145, Y= 56, Z=<(X-Y n,表达式&Z+1 的值是 ____________ 。
9. Visual FoxPro中命令执行方式分为___ _____ 和。
10. 父文件与子文件建立关联吋，必须先对子文件按关键字建立，然后用命令建立关联。
11丄EFT(“123456789”丄EN(“商学院”))的函数值是_____ 。
12. 函数丫EAR ({A1978/09/09})返回值的数据类型是___________ 。
13. ___________________________________ 表达式(1998/09/08)的数据类型是 ________________________________________ 。
14. “(1998/09/08)” 的数据类型是——。
15. {A1998/09/08}的数据类型是——16. ________________________________ 写出表达式INT(5.984)的值 ____ , 17•写出下列语句的运行结果。
2 ? INT(-5.6) __________⑵？MOD(15, 4) _________⑶？ SQRT(36)_________⑷？ MAX(12, 6) _________SQRT(16)+25 的值 ______________________,MOD(16,-5)的值____________ LENHFOXPRO数据库管理系统]”)的值⑸？ Q$ 'AaBbCcQq' __________(6) ?AT(t A,, •RSDA.DBF3) _________⑺？ LEFTfCOMP； 3) ________(8) ? SUBS(,ASDFGHJK,, 2, 2) __________18.VFP屮扩展名为VUE的文件是_________ 文件；19•逻辑表达式MOD(20,5)=MOD(20,4)的结杲是_________ , “张三”$來”的结果是 ______ , “01 /02/93,,>u02/02/92n的结果是________ 。
VFP试卷及答案4试卷编号：9471 所属语言：Visual Foxpro 试卷方案：cx2012 试卷总分：100 分共有题型：4 种一、填空共 14 题（共计 30 分）第 1 题（2.0 分）题号: 596 ?ROUND(123. 456, 2) 结果为【1】 . ?ROUND(123. 456, -2) 结果为【2】 . 答案：1) . 123. 46 2) . 100 第 2 题（2. 0 分）题号: 404 38 AND 6=9 的结果为【1】答案：1) . . f. 或 F 第 3 题（2. 0 分）题号: 1885 函数LEN(STR(12345678901) ) 的返回值为【1】, 函数LEN(DTOC(DATE() ) ) 的返回值为【2】 . 答案：1) . 10 2) . 8 第 4 题（2. 0 分）题号: 2305 表达式 3+3=6. OR. 3+35. AND. 2+3=5 结果为【1】 . 答案：1) . . T. 第 5 题（2. 0 分）题号: 201 9 执行下列命令后: SET EXCLUSIVE OFF USE JS USE XS EXCLUSIVE IN 0 JS 表的打开方式是【1】 , XS 表的打开方式是【2】 . 答案：1) . 共享或共享方式 2) . 独占或独占方式第 6 题（2. 0 分）题号: 579 数据库表的字段名称最长可达【1】1/ 9个字符. 答案：1) . 128 第 7 题（2. 0 分）题号: 1902 【1】是保存在数据库中的过程代码, 它由一系列用户自定义函数或在创建表与表之间参照完整性规则时系统创建的函数组成. 答案：1) . 存储过程第 8 题（2. 0 分）题号: 470 交叉表查询建立好后, 可以在【1】中打开并修改它. 答案：1) . 查询设计器第 9 题（2. 0 分）题号: 1938 用SELECT-SQL 命令对数据进行查询时, SELECT 命令中 FROM 子句用来指定数据源表, 【1】子句用来筛选源表记录, 【2】子句用来筛选结果记录. 答案：1) . WHERE 2) . HAVING 第 1 0 题（4. 0 分）题号: 21 32 某学生管理数据库(SJK) 中有两张表: STUDENT 和SKCJ, STUDENT 表用来记录学生的基本信息, SKCJ 表用来记下每个学生选的每一门课的成绩. 表结构如表 6-15 所示. 表 6-15 STUDENT 表和 SKCJ 表的结构 STUDENT 表的结构 | SKCJ 表的结构字段名字段类型宽度小数位 | 字段名字段类型宽度小数位 XH(学号) C 8 |XH(学号) C 8 XM(姓名) C 8 | KCH(课程号) C 3 XB(性别) C 2 | KCM(课程名) C 20 BH(班号) C 2 |CJ(成绩) N 3 下列命令的作用是求出每个班的每个学生选课的选课门数、总成绩, 最后值显示出选课门数超过 3 的学生的班号、学号等信息, 并先按班号后按总成绩降序排列. SETECT STUDENT. BH, 【1】 , STUDENT. XM, COUNT(*) AS 选课门数, SUM(SKCJ. CJ. ) AS 总成绩; FROM【2】 ; WHERE STUDENT. XH=SKCJ. XH; GROUP BY 1, 2; 【3】选课门数=3; ORDER BY 1, 5 DESC 答案：1) . STUDENT. XH 2) . SJK! STUDENT, SJK! SKCJ 或STUDENT, SKCJ 3) . HAVING 第 1 1 题（2. 0 分）题号:2286 复选框控件可以有三种状态, 其 value 属性值分别为. f. 、 .t. 或【1】 . 答案：1) . null 或 2 第 1 2 题（2. 0 分）题号: 2288文本框【1】属性设置为*时, 用户键入的字符在文本框内显示为*,但属性 value 中仍保存为键入的字符串. 答案：1) . passwordchar 第 1 3 题（2. 0 分）题号: 774要使标签(Label) 中的文本能够换行, 应将【1】属性设置为. T. .答案：1) . WordWrap 第 1 4 题（2. 0 分）题号: 798 允许或禁止在应用程序执行时访问系统菜单的命令是【1】 . 答案：1) . SET SYSMENU 二、单项选择共 16 题（共计40 分）第 1 题（2. 0 分）题号: 1262 执行?AT( 教授 , 副教授 ) 命令的显示结果是() . A: . T. B: 2 C: 3 D: 0 答案：C 第 2 题（2. 0 分）题号: 4709 执行下列命令 HZ=中华3/ 9人民共和国 ?SUBSTR(HZ, LEN(HZ) /2-2, 4) 输出的结果是( ) A: 中华 B: 人民 C: 共和 D: 和国答案：B 第 3 题（2. 0 分）题号: 4041 以下的四组函数, 返回值的数据类型一致的是____. A: DTOC(DATE() ) 、 DATE() 、YEAR(DATE() ) B: ALLTRIM(VFP6. 0) 、 ASC(A) 、 SPACE(8) C:EOF() 、RECCOUNT() 、DBC() D: STR(3. 14, 3, 1) 、DTOC(DATE() ) 、 SUBSTR(ABCD, 3, 1) 答案：D 第 4 题（2. 0 分）题号: 571 下列字段名中不合法的是() . A: 计算机 B: 5 倍数 C: abc_2 D: student 答案：B 第 5 题（2. 0 分）题号: 972 两个日期型数据相加后,得到的结果为() . A: 新的日期 B: 没有意义 C: 相差的天数 D:字符型答案：B 第 6 题（2. 0 分）题号: 1046 要控制两个表中数据的完整性和一致性可以设置参照完整性, 要求这两个表() . A: 是同一个数据库中的两个表 B: 不同数据库中的两个表 C: 两个自由表 D: 一个是数据库表另一个是自由表答案：A 第 7 题（1 0. 0 分）题号: 1 067 关于数据库和数据库表, 下列叙述中正确的是____. A: 当数据库打开时, 该数据库所包含的数据库表也将自动地打开 B: 当打开数据库中的某张数据库表时, 该数据库也将自动地打开 C: 如果数据库以独占的方式打开, 则该数据库中的数据库表也只能一独占方式打开 D: 如果数据库中的某张数据库表以独占方式打开, 则该数据库中的其他数据库表也只能以独占方式打开答案：B 第 8 题（2. 0 分）题号: 1276 下面关于查询描述正确的是( ) A: 可以使用 CREATE VIEW 打开查询设计器 B: 使用查询设计器可以生成所有的 SQL 查询语句 C: 使用查询设计器生成的SQL 语句存盘后将存放在扩展名为 QPR 的文件中 D: 使用 DO 语句执行查询时, 可以不带扩展名答案：C 第 9 题（2. 0 分）题号: 41 84 默认查询的输出形式是( ) A: 数据表 B: 图形 C: 报表 D: 浏览答案：D 第 1 0 题（2. 0 分）题号: 1 097 在非嵌套程序结构中, 可以使用 LOOP 和 EXIT 语句的基本程序结构是() . A: TEXT-ENDTEXT B: DO WHILE-ENDDO C: IF-ENDIF D: DO CASE-ENDCASE 答案：B 第 1 1 题（2. 0 分）题号: 470 关于 Visual FoxPro 事件 Init 的说明正确的是() . A: 当对象产生时引发 B: 当对象从内存中释放时引发 C: 当方法或事件代码出现运行错误时引发 D: 当用户用鼠标单击程序界面上的一个命令按钮时引发答案：A 第 1 2 题（2. 0 分）题号: 459 对数据绑定型控件主要设置其() 属性. A: Control B: RecordSource C: RowSourceType D: ControlSource 答案：D 第 1 3 题（2. 0 分）题号: 464 对于表单及控件的绝大多数属性, 其数据类型通常是固定的, 如 Caption 属性接收()5/ 9型数据. A: 数值型数据 B: 字符型数据 C: 逻辑型数据 D: 任意数据类型答案：B 第 1 4 题（2. 0 分）题号: 891 在 Visual Foxpro 中, Width 属性只能接收() 数据. A: 字符型 B: 数值型 C: 逻辑型 D:日期型答案：B 第 1 5 题（2. 0 分）题号: 1 023 下列() 属性可以设置表单和表单中的对象的外观. A: AlwaysOnTop B: AutoCenter C: BorderStyle D: Closable 答案：C 第 1 6 题（2. 0 分）题号: 603 假设已经生成了名为mymenu 的菜单文件, 执行该菜单文件的命令是( ) A: DO mymenu B:DO mymenu. mpr C: DO mymenu. pjx D: DO mymenu. mnx 答案：B 三、程序填空共 2 题（共计 10 分）第 1 题（5. 0分）题号: 67*------------------------------------------------------- *【程序填空】*------------------------------------------------------- *功能: 求 1 到 50 的累加和（S=1+2+3+. . . +50）并显示。
Visual Foxpro函数与表达式2一、选择题1、在Visual Foxpro数据库管理系统中，下列数据属于常量的是（）A．02/07/97 B．T C．.Y. D．TOP2、将逻辑真值赋给内存变量LZ的正确方法是：（）A．LZ=“.T.”B．STORE“T”TO LZ C．LZ=TURE D．LZ3、在Visual Foxpro的命令窗口中，执行下列命令后的显示结果是（）X=CTOD('07/27/98')Y=CTOD('07/17/98')Y-XA．10 B．11 C．-10 D．错误4、在下列Visual Foxpro表达式中，结果为日期类型的正确表达式是（）A．DATE（）+TIME（）B．DATE（）+30 C．DATE（）-CTOD（“01/01/98”）D．356-DATE（）5、在下列Visual Foxpro表达式中，结果为真（.T.）的是（）A．‘112’>‘85’B．[李明]=[ 李明]C．CTOD（“03/21/98”）>CTOD（“03/12/98”）D．‘男’$性别6、假定X=2，执行命令X=X+1后，其结果的是（）A．3 B．2 C．.T. D．.F.7、在下列Visual Foxpro表达式中，运算结果为字符串的是（）A．‘1234’-‘43’B．‘ABCD’+‘XYZ’=‘ABCDXYZ’C．CTOD（DATE（））>‘04/05/97’D．CTOD（‘04/05/97’）8、在下列关于内存变量的叙述中，错误的一条是（）A．一个数组中的各元素的数据类型必相同B．内存变量的类型取决于其值的类型C．内存变量的类型可以改变D．数组在使用之前要用DIMENSION或DECLARE语句进行定义9、有如下命令序列：STORE“456 ”TO XSTORE“123”+X TO YSTORE Y-“789”TO Z执行上述命令之后，Z的值是（）A．“123456789”B．“123456 789”C．“123 456789”D．“123456789 ”10、下列选项中，不能用作VISUAL FOXPRO变量名的是（）A．8ABC8 B．A_001_BC C．S0000 D．xyz11、下列表达式中，不是字符型表达式的是（）。
VFP函数表达式练习题ViualFo某pro函数与表达式一、选择题1、在ViualFo某pro数据库管理系统中，下列数据属于常量的是（）A．02/07/97B．TC．.Y.D．TOP2、将逻辑真值赋给内存变量LZ的正确方法是：（）A．LZ=“.T.”B．STORE“T”TOLZC．LZ=TURED．STORE.T.TOLZ3、在ViualFo某pro的命令窗口中，执行下列命令后的显示结果是（）某=CTOD('07/27/98')Y=CTOD('07/17/98')Y-某A．10B．11C．-10D．错误4、在下列ViualFo某pro表达式中，结果为日期类型的正确表达式是（）A．DATE（）+TIME（）B．DATE（）+30C．DATE（）-CTOD（“01/01/98”）D．356-DATE（）5、在下列ViualFo某pro表达式中，结果为真（.T.）的是（）A．‘112’>‘85’B．[李明]=[李明]C．CTOD（“03/21/98”）>CTOD （“03/12/98”）D．‘男’$性别6、假定某=2，执行命令？某=某+1后，其结果的是（）A．3B．2C．.T.D．.F.7、在下列ViualFo某pro表达式中，运算结果为字符串的是（）A．‘1234’-‘43’B．‘ABCD’+‘某YZ’=‘ABCD某YZ’C．CTOD （DATE（））>‘04/05/97’D．CTOD（‘04/05/97’）8、在下列关于内存变量的叙述中，错误的一条是（）A．一个数组中的各元素的数据类型必相同B．内存变量的类型取决于其值的类型C．内存变量的类型可以改变D．数组在使用之前要用DIMENSION或DECLARE语句进行定义9、有如下命令序列：STORE“456”TO某STO RE“123”+某TOYSTOREY-“789”TOZ执行上述命令之后，Z的值是（）A．“123456789”B．“123456789”C．“123456789”D．“123456789”10、下列选项中，不能用作VISUALFO某PRO变量名的是（）A．8ABC8B．A_001_BCC．S0000D．某yz11、下列表达式中，不是字符型表达式的是（）。
将设备表复制到D盘xxx目录下（xxx即个人文件夹），执行命令：set default to d:\xxx一、常量及变量1.常量及其运算(1)数值型常量?2*3.14*3 && 18.84?0.281828E1*2 && 5.63656(2)字符型常量字符型常量定界符：'abc'、"abc"、[abc]?"信息 "+"技术" && "信息技术"?"信息 "-"技术" && "信息技术 "(3)日期型常量、日期时间型常量及其运算通常日期格式与严格日期格式的切换命令为：set strictdate to 0|1?{03/05/90}+30 && {04/04/90}，即30天以后?{03/05/90}-30 && {02/03/90}，即30天以前?{03/05/90}-{03/05/89} && 365，即两个日期相差的天数?{03/05/90}+{03/05/89} && 错误！两个日期不可相减?{03/05/90 11:59:00am}+60 && {03/05/90 12:00:00 PM}，即60秒以后?{03/05/90 11:59:00am}-60 && {03/05/90 11:58:00 AM}，即60秒以前?{03/05/90 11:59:00am}-{03/05/90 10:59:00am} && 3600，即相差的秒数?{03/05/90 11:59:00am}+{03/05/90 10:59:00am} && 错误，两个日期时间型常量不可相减(4)逻辑型常量及其运算逻辑型常量只能进行逻辑运算。
vfp常见20道编程题VFP常见20道编程题1、求解AX^2 BX C=0的根、其中A、B、C三个参数由键盘输入。
一元二次方程的求根公式是：X=-b±√b2-4ac/2acleartext一元二次方程求解ax^2 +bx+ c=0endtextinput '请输入a的值：' to ainput '请输入b的值：' to binput '请输入c的值：' to cm=b*b-4*a*cif m>=0x1=(-b sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)'x1的值是：',x1'x2的值是：',x2else'此方程无实根!'endif2、编写程序将1-100之间所有能被7和3整除的整数输出clearfor i=1 to 100if i%3=0 and i%7=0iendifendfor3、编写程序计算e，e的近似值计算公式为：e=1 1/1! 1/2! 1/3! ... 1/n!，直到1/n!<0.000001为止e=1n=1do while .t.k=1for i=1 to nk=k*iendform=1/ke=e mif m<0.000001exitendifn=n 1enddo'e=1 1/1! 1/2! 1/3! … 1/n!=',e4、编写程序，计算1！2！3！ .......N!=？clearinput '请输入n的值：' to ns=0t=1for i=1 to nt=t*is=s tendfor'1！2！3！ .......N!=',s5、从键盘输入十个数，将它们进行降序排列。
clear dime a(10)for i=1 to 10input '请输入一个数：' to a(i)'降序排列为：'for i=1 to 9for j=i 1 to 10if a(i)<a(j)< p="">k=a(i)a(i)=a(j)a(j)=kendifendforalltrim(str(a(i))) ' 'endforalltrim(str(a(i)))6、（1）输出有*号组成的图形：*************************clearfor i=-3 to 3space(abs(i))for j=1 to 7-abs(i)*2 ??'*' endforendfor（2）********************clearfor i=1 to 5space(5-i)for j=1 to 2*i-1 ??'*'endforendfor7、编写一个程序产生一个有20项的Fibonacci数列并输出。
VF 函数与表达式练习一1VF6.0 函 数 练 习 题1.?STR(36295.2740,8,2)_________2.?STR(328.57,9,1) _________3.?STR(1980.6431) _________4.STORE “48.915”TO B ?STR(&B,3)__________5.? STR(36295.2,4)_________6. STR(3.1416,6,3) _________7.?V AL(“470.535BEC”)________8.?V AL(“A1B2C3”)___________9. ?V AL(“2e4”)________ 10.姓名=”lakERs”?UPPER(SUBSTR(姓名,2,2))______ ?LOWER(SUBSTR(姓名,4,2))______ 11.?upper(“Hello”) _________ ?LOWER (“Hello”) _________ 12.X=100 Y=200 Z=X+Y Z=”400”?5+&Z__________ 13. X=100 Y=200 C=”X+Y” ?5+&C__________ 14.X=”2010+11”?”&X+5”_________ ?&X+5_________ 15. X=”1997” , ? ”&X+5” _________ 16.X=”56.87” Y=&XZ=STR(Y ,2)+”21&X” ? Z _________ 17.D=”*”?”5&D.8=”+STR(5&D.8,2) _________ 18. A="-489.31"?ABS(ROUND(&A+4,0))__________ 19. ?ABS(78.5) ___________ ?ABS(-78.5) ___________20.M=”81” ?SQRT(&X+19)_________ 21. ?SQRT(16+9) _________22. ? MOD(26,-7)_______? MOD(-26, 7)_______ ?MOD(26,7)_______ ? MOD(-26,-7)_______ 23.?TYPE(MOD(-33,7))________ 24.?TYPE(“DTOC(DATE( ))”)________ 25. ? TYPE(“1”) ________?TYPE([TYPE(“1”)])________ 26. ? TYPE(“[1]”) ________?TYPE(‘TYPE(“[1]”)’)__________ 27.A=”+”? TYPE(“7&A.8”) __________ 28.?TYPE(“X=56.7”) __________ 29. y=25 CD="Y"?STR(&CD,3)______ ?TYPE("&CD")_____ ?TYPE(CD)_______ ?SQRT(&CD)_______ ?STR(SQRT(&CD))_________ 30.?LEN(“$123Q 学校”)_______31.?LEN(STR(2*3.14*5,4,2)+’/10’) _______ 32.?LEN(STR(78.94)-‘20’) _______ 33.?IIF(4<7,”对”,”错”)________ 34.X=18.346?IIF(X>8,ROUND(X,2),INT(X))_______ 35.M=11 N=22?IIF(INT(3.8)>3.5,M,N)_________36.?IIF(LEN(REPLICATE(“*”,4))>6,5,-5) _________ 37.?A T(“管理”,“数据库管理系统”)________ ?A T(“IS”,”THIS IS MINE”)______ ?A T(“IS”,”THIS IS MINE”,2)_____ ?A T(“K”,”akhKvKk”,2)_______ ?A T (“k”,” akhKvKk”,2)______38.?AT(’国际经济系’，’国际关系学院国际经济系’) ______39.?AT(“BA”,”ABCDEF”) ______40.SUBSTR(“shujuku 管理xitong”,8,4)______ 41.SUBSTR(“全国计算机等级考试题”,5,6) _________ 42. SUBSTR(“全国计算机等级考试题”,11,9/2) _________43.SUBSTR(“数据库二级考试”,A T(“1”,”567890123”),4) _________44.ROUND(8.265,2)______ ROUND(578.26,-2)______ ROUND(261.23,0)______45.下列函数中，函数值为数值型的是（ ） A ．STR B. DTOC C. LEN D. LIKE 46.假设a=2,b=3,c=”a+b”,则1+&c 的值为（ ） A.数据类型不匹配 B. 123 C. 6 D. 1A+B 47.TIME( )函数值的数据类型为（ ） A.数值型 B.时间型 C.日期时间型 D.字符型VF 函数与表达式练习一248. 用函数的形式表示，并写出输出结果。
计算机二级VFP(Visual FoxPro)常量、变量、函数和表达式练习一、选择题1．货币型常量占用________ 字节内存。
A. 16B.8C.4 D．22．货币型数值保留________ 位小数。
A.4 B．3C．2 D．13. 01/01/99的数据类型是____型。
A．日期 B．日期时间C．数值 D．字符串4．以下____不是字符型常量的定界符号。
A．单引号 B．双引号C．中括号 D．大括号5．SETDATE命令的功能是____。
A．设置系统日期 B．取得系统日期C．设置日期显示格式 D．取得系统日期显示格式6．在以下日期时间型常量中，不正确的是____。
A. {^2002-11-20,7:45A)B. {^2002-11-20 7:45A)C. {^2002-11-20,7)D. {^2002-11-20,[7:50P])7．在中文版的Visual FoxPro中，变量不能以____开头。
A．汉字 B．英文字母，C．下划线 D．数字8．在Visual FoxPr0 6.0中，最多可以声明____维数组。
A．- B．二C．三 D．任意9．以下关于数组的叙述中，____是正确的。
A．在一个数组中，各元素的类型必须相同B．数组可以整体赋值C．数组的下标可以从任何值开始D．新定义的数组各元素无初值10.以下赋值语句中，____是正确的。
A. STORE l,2 TO x,yB. STORE l TO x;yC. x,y=1,2D. STORE l TO x,y11.要在当前光标处显示一个表达式的结果，应使用____命令。
A．？ B.？？C. LISTMEMORYD. DISPLAYMEMORY12.要分屏显示当前所有内存变量的信息，应用使用____命令。
A. LISTMEMORYB. DISPLAYMEMORYC．LIST D．’DISPLAY '13.在【命令窗口】中，要清除以字母X开头以外的所有内存变量，应使用_____命令。
这是以往的考试题第一套编程题参考答案1. 请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入长方形的长L和宽W的值，计算长方形的面积S并输出，最后按原文件名存盘。
program1.prgCLEARINPUT “请输入长方形的长：” TO LINPUT “请输入长方形的宽：” TO WS=L*W?”长方形的面积S=”,S2.请打开D盘试题文件夹下的program2.prg文件，编一个计费程序，按托运规定，行李不超过50千克时，运费为每千克0.15元，如超过50千克，其中50千克，运费按每千克0.15元，超过50千克部分的运费为每千克0.22元，输入行李重量，显示托运费。
program2.prgClearInput “请输入行李重量” to xIf x<=50Y=x*0.15ElseY=50*0.15+(x-50)*0.22Endif? “托运费=”,y3.请打开D盘试题文件夹下的program3.prg文件，编写循环程序实现：在 rcda.dbf表中，统计姓“刘”的人数并输出。
最后按原文件名存盘。
program3.prgclearuse rcdan=0scan all for left(姓名,2)=“刘”n=n+1endscan?nuse4.请打开D盘试题文件夹下的表单文件Program5.scx，要求在文本框Text1中输入某一年份，单击“计算”命令按钮则判断该年是否闰年，如果是闰年，则在文本框Text2中显示“是闰年！”，如果不是闰年，则在文本框Text2中显示“不是闰年！”；单击“退出”命令按钮，则关闭表单。
请编写“计算”和“退出”命令按钮的代码，最后按原文件名存盘。
判断某一年份是否闰年的方法如下：(1)年份能被4整除，但不能被100整除；(2)年份能被400整除；符合上述二个条件之一者即为闰年，如1996年是闰年。
“计算”按钮click事件：nf=thisform.text1.valueif mod(nf,4)=0.and.mod(nf,100)<>0.or.mod(nf,400)=0y="是润年！"elsey="不是润年！"endifThisform.text2.value=yThisform.refresh“退出”按钮click事件：thisform.release第二套编程题参考答案••• 1.请打开D盘试题文件夹下的program1.prg文件，按要求完成以下程序：输入梯形的上底A、下底B和高H的值，计算梯形的面积S并输出，最后按原文件名存盘。
