VF程序设计编程题及答案

1求圆的面积cleainpu '请输入半径='to rif r>=0s=pi[]*r^2?'s=',selse?'此时半径无意义'endifretu2求分段函数的值cleainpu '请输入x='to xdo casecase x>0y=2*x+5case x=0y=-xcase x<0y=xendcase?'y=',yset talk onretu3输入一个成绩判断等级cleainput '请输入成绩='to x if x<=100 and x>=0do casecase x<60?'不及格'case x<70?'及格'case x<80?'中'case x<90?'良'otherwise?'优秀'endcaseendifif x>100 or x<0?'成绩无效'retu4输入多个成绩判断等级cleadime a[6]for i=1 to 6inpu'请输入成绩：'to a[i] ?'：',str[a[i],3]if a[i]<=100 and a[i]>=0 do casecase a[i]<60?'不及格'case a[i]<70?'及格'case a[i]<80?'中'case a[i]<90?'良'otherwise?'优秀'endcaseendifif a[i]>100 or a[i]<0?'成绩无效'endifendforretu5求和1到100的和cleas=0for i=1 to 100s=s+iendfor?'s=',sretu6 1to100乘cleas=1for i=2 to 100s=s*iendfor?'s=',sretu7 1+3+……+99s=0for i=1 to 99 step 2s=s+iendfor?'s=',sretu8 1-2+3-……-100cleas=0for i=1 to 100s=s-(-1)^i*iendfor?'s=',sretu9 1+1/2+2/3+3/5+……前十项和cleas=1a=1b=1for i=1 to 9t=aa=bb=t+bs=s+a/bendfor?'s=',sretu10.1+2!+3!+cleas=0t=1for i=1 to 10t=t*is=s+tendif?'s=',sretu11. 对学生表中所有入学成绩≥650分的学生免去贷款cleaopen database 教学管理use 学生if 入学成绩>=650?姓名,'免去贷款'retu12. 输出图形* **** * ******* * **** ** *** *** ***** ** *** *** ** ***** *** *** ** **** * ******* * **** * 第一个cleafor t=1 to 4for i=1 to t??'*'endfor?endforretu下面是第五个图形cleafor t=4 to 1 step -1?space[4-t]for i=1 to t??'*'endforendforretu下面是第三个图形cleafor t=1 to 4?space[4-t]for i=1 to 2*t-1??'*'endfendfretu13. 判断一个整数是否素数cleainput'请输入x=' to xfor i=2 to x-1if mod[x,i]=0?x,'不是素数'exitendifendfor?x,'是素数'endifretu14. 判断十个整数是否素数cleadime a(10)for j=1 to 10input'请输入x=' to a(j)?for i=2 to a[j]-1if a[j]/i=int(a[j]/i)exitendifendforif i>a[j]-1?a[j],'是素数'else?a[j],'不是素数'endifendforretu15. 找出两个数的大数和小数cleadime a[2]for i=1 to 2input'请输入x=' to a[i]Endforif a[1]>=a[2]?a[1]else?a[2],'较大'endifretu16.找出三个数的最大数和最小数cleainput'请输入一个数:' to xstore x to max,minfor i=2 to 3input'请输入一个数:' to xif max<=xmax=xelsemin=xendfor?'最大数:',max?'最小数:',minretu17. 找出十个数的最大数和最小数cleadime a[10]for i=1 to 10input'请输入x=' to a[i]endforfor j=9 to 1 step -1for i=1 to jif a[i]<=a[i+1]t=a[i]a[i]=a[i+1]a[i+1]=tendifendforendfor?'最大值',a[1]?'最小值',a[10]retu18. 找出2×3矩阵中的最大数和最小数cleadime a[2,3]for i=1 to 2for j=1 to 3input'请输入x='to a[i,j]endforendforfor i=1 to 1for j=1 to 2if a[i,j]>=a[i,j+1]t=a[i,j]a[i,j]=a[i,j+1]a[i,j+1]=tendifendforendforfor j=1 to 3 step 2for i=1 to 1if a[i,j]>=a[i+1,j]t=a[i,j]a[i,j]=a[i+1,j]a[i+1,j]=tendifendforendfor?'最小值=',a[1,1]?'最大值=',a[2,3]retu19. 对三个整数从大到小排序cleadime a[3]for i=1 to 3input'请输入x=' to a[i]endforfor j=2 to 1 step -1for i=1 to jif a[i]<=a[i+1]t=a[i]a[i]=a[i+1]a[i+1]=tendifendforendforfor i=1 to 3space[2]?a[i]endfretu20.对十个整数从大到小排序（用选择法和起泡法两种方法cleadime a[10]for i=1 to 10input'请输入x=' to a[i]endforfor j=9 to 1 step -1for i=1 to jif a[i]<=a[i+1]t=a[i]a[i]=a[i+1]a[i+1]=tendifendforendforfor i=1 to 10space[2]?a[i]endforretu21. 输出Fibonacci（斐波那契）数列的前十项cleadime a[10]for i=1 to 10if i<3a[i]=1elsea[i]=a[i-2]+a[i-1]endif?a[i]endfor?retu22. 输出杨辉三角的前十行cleadime aa(10,10)for i=1 to 10?space(20-2*i)for j=1 to iif j>1.and.j<iaa[i,j]=aa(i-1,j-1)+aa(i-1,j)elseaa(i,j)=1endif??space[1]+str(aa[i,j],4)endfor?endforretu23. 对2×3矩阵转置cleadime a[2,3]for i=1 to 2for j=1 to 3input'请输入数值='to a[i,j]endforendfordime b[3,2]for j=1 to 3for i=1 to 2b[j,i]=a[i,j]??b[j,i]endfor?endforretu24. 求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）cleafor a=1 to 9for b=0 to 9for c=0 to 9if a^3+b^3+c^3=100*a+10*b+c?100*a+10*b+cendifendforendforendforretu25. 求100以内的所有完数（即一个数恰好等于除它本身外的所有因子之和）cleafor a= 1 to 100s=0for i=1 to a-1if a/i=int[a/i]s=s+iendifendforif a=s?sendifendforretu26. 已知三角形的三边（从键盘输入），求其面积(S^2=p(p-a)(p-b)(p-c), p=(a+b+c)/2) cleainput'请输入边长='to ainput'请输入边长='to binput'请输入边长='to cp=(a+b+c)/2m=p*(p-a)*(p-b)*(p-c)?'s=',sqrt(m)retu27. 求二元方程的根（分三种情况：两个不等实根，两个相等实根，两个不等虚根）cleai=val['i']input'请输入系数='to ainput'请输入系数='to binput'请输入系数='to cj=b^2-4*a*cdo casecase j>0x1=(-b+sqrt(j))/(2*a)x2=(-b-sqrt(j))/(2*a)?'x1=',x1?'x2=',x2case j=0x=(-b)/(2*a)?'x=',xotherwise?'存在两个不等虚根'endcaseretu28. 输入任意一个五位数，前后对应位置上的数据进行交换重新排列（例：25984→48952）cleainpu'请输入一个五位数：'to bdime a[5]a[5]=int[b/10000]i=int[b/1000]a[4]=mod(i,10)j=int[b/100]a[3]=mod[j,10]a[1]=mod[b,10]d=(b-a[1])/10a[2]=mod(d,10)?space(2)for k=1 to 5??str(a[k],1)endforretu29. 找出一个3x3矩阵的"鞍点"，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）cleadime a(3,3)for m=1 to 3for n=1 to 3inpu'请输入矩阵值='to a[m,n]endforendforfor i=1 to 3max=a[i,1]t=ik=1for j=1 to 3if max=<a[i,j]max=a[i,j]t=ik=jendifendformin=a[1,k]for z=1 to 3if min>=a[z,k]min=a[z,k]t1=zendiendfif t1=l?'存在鞍点=',a[t,k]endifendfor30. 求S(n)=a+aa+aaa+...+aaa....aaa(其中有n个a)之值，a是一个数字，n和a由键盘键入(例如：2+22+222+22222+22222，此时n=5)cleainput'请输入a='to ainput'请输入n='to ns=0m=0for i=1 to nm=m+a*10^(i-1)s=s+mendfor?'s=',sretu。

vf理论考试题及答案一、单项选择题（每题2分，共10题，满分20分）1. VF理论中，以下哪个是正确的函数定义？A. Function MyFuncB. Function MyFunc()C. Function MyFunc(参数1, 参数2)D. Function MyFunc(参数1; 参数2)答案：B2. 在VF中，以下哪个是正确的变量声明方式？A. Dim a, bB. Dim a, b As IntegerC. Dim a, b As StringD. Dim a, b As Double答案：B3. VF中的数组声明，以下哪个是正确的？A. Dim array[10]B. Dim array(10)C. Dim array(1 to 10)D. Dim array(10 to 1)答案：C4. 下面哪个是VF中的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. 在VF中，如何打开一个表单？A. Use 表单名B. Open 表单名C. Do 表单名D. Load 表单名答案：A二、多项选择题（每题3分，共5题，满分15分）6. VF中可以使用哪些类型的数据？A. NumericB. CharacterC. DateD. Logical答案：A, B, C, D7. 下列哪些是VF中的数据库对象？A. TableB. FormC. ReportD. Query答案：A, B, C, D8. VF中，哪些是合法的表达式？A. 5 + 3B. "Hello" + "World"C. 5 > 3D. 5 AND 3答案：A, C9. 在VF中，以下哪些是表单控件的事件？A. ClickB. LoadC. InitD. Close答案：A, B, C, D10. VF中，哪些是合法的文件操作命令？A. COPYB. DELETEC. RENAMED. ALL OF THE ABOVE答案：D三、填空题（每题2分，共5题，满分10分）11. 在VF中，使用________命令可以创建一个新的数据库。

vf试题及答案能复制一、单项选择题（每题2分，共10分）1. Visual FoxPro中，用于定义表单的类是：A. FormB. ReportC. ClassD. Table答案：A2. 在Visual FoxPro中，用于创建数据库的命令是：A. CREATE DATABASEB. CREATE TABLEC. USED. SET DATABASE答案：A3. Visual FoxPro中，用于打开表单的命令是：A. DO FORMB. OPEN FORMC. CREATE FORMD. DESIGN FORM答案：A4. 在Visual FoxPro中，用于关闭表单的命令是：A. CLOSE FORMB. QUIT FORMC. END FORMD. CANCEL FORM答案：A5. Visual FoxPro中，用于查询数据的命令是：A. SELECTB. FROMC. WHERED. INTO答案：A二、填空题（每题2分，共10分）1. 在Visual FoxPro中，表单文件的扩展名是________。

答案：.scx2. Visual FoxPro中，用于定义变量的命令是________。

答案：DIMENSION3. 在Visual FoxPro中，用于创建表的命令是________。

答案：CREATE TABLE4. Visual FoxPro中，用于打开数据库的命令是________。

答案：USE5. 在Visual FoxPro中，用于关闭数据库的命令是________。

答案：CLOSE DATABASE三、简答题（每题5分，共10分）1. 简述Visual FoxPro中如何创建一个新表。

答案：在Visual FoxPro中创建一个新表，可以使用以下步骤： - 打开Visual FoxPro。

- 选择“文件”菜单中的“新建”选项。

- 选择“表单”。

- 在表单设计器中，使用“字段”工具来添加字段。

VF试题及答案（一）一、选择题下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) DBMS的含义是：A) 数据库系统 B) 数据库管理系统C) 数据库管理员 D) 数据库(2)从关系模式中指定若干个属性组成新的关系的运算称为：A) 联接 B) 投影 C) 选择 D) 排序(3)对于“关系”的描述，正确的是：A) 同一个关系中允许有完全相同的元组B) 同一个关系中元组必须按关键字升序存放C) 在一个关系中必须将关键字作为该关系的第一个属性D) 同一个关系中不能出现相同的属性名(4)在表设计器的“字段”选项卡中可以创建的索引是A) 唯一索引 B) 候选索引 C) 主索引 D) 普通索引(5)在程序中不需要用public等命令明确声明和建立，刻直接使用的内存变量是A) 局部变量 B) 公共变量 C) 私有变量 D) 全局变量(6)扩展名为dbf的文件是A) 表文件 B) 表单文件 C) 数据库文件 D) 项目文件(7)下列程序段的输出结果是CLEARSTORE 10 TO ASTORE 20 TO BSET UDFPARMS TO REFERENCEDO SWAP WITH A,(B)A,BPROCEDURE SWAPPARAMETERS X1, X2TEMP=X1X1=X2X2=TEMPENDPROCA) 10 20 B) 20 20 C) 20 10 D) 10 10(8)使用调试器调试第(7)小题的程序，如果想在过程SWAP执行时观察X1的值，可以在其中安置一条命令，程序执行到该命令时，系统将计算X1的值，并将结果在调试输出窗口中显示，这条命令的正确写法是：A) DEBUGOUT X1 B) DEBUG X1 C) OUT X1 D) TEST X1(9) 设X=10, 语句?VARTYPE ("X")的输出结果是A) N B) C C) 10 D) X(10) 表达式LEN(SPACE(0))的运算结果是A) .NULL. B) 1 C) 0 D) ""(11) 为表单建立了快捷菜单mymenu，调用快捷菜单的命令代码DO mymenu.mpr WITH THIS 应该放在表单的那个事件中？A) Destory事件B) Init事件C) Load事件D) RightClick事件(12)(24)题使用的数据表如下：当前盘当前目录下有数据库：学院.dbc，其中有“教师”表和“学院”表。

四、结构化程序设计顺序结构程序设计1、从键盘输入长方体的长、宽、高，求长方体的表面积。

input“输入长方体的长：”toxinput“输入长方体的长：”toyinput“输入长方体的长：”tozs=2*x*y+2*x*z+2*y*z”长方体的表面积为：”,s2、从键盘输入圆的半径，计算圆的面积。

input“输入圆的半径：”tors=*r^2”圆的面积为：”,s3、建立数据库XS，将表添加到该数据库，并浏览该表所有数据，最后关闭数据库。

CreatedatabasexsAddxsqkBrowseCloseall4、在表中，查找出生日期为1983年10月8日的记录，并显示该记录；继续查找下一个满足上述条件的记录，并显示该记录。

UsexsqkLocatefor出生日期={^1983-10-8}DisplayContinueDisplayUse分支结构程序设计1.从键盘输入一个数，若为正数则输出，非正数则结束。

input“输入一个数：”toxifx>0xendifreturn2.求一元二次方程AX2+BX+C=0的实根。

input“输入系数A：”toainput“输入系数B：”tobinput“输入系数C：”tocm=b^2-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)”x1=”,x1,”x2=”,x2 else”方程无实根！”endif3. 从键盘输入一个待查学生的学号，在表中查找。

若能找到，则显示该记录，否则，显示信息“该学号不存在”。

usexsqkaccept“输入待查学生学号：”toxlocatefor学号=xifnoteof()displayelse“该学号不存在”EndifUse4.从键盘输入一个自然数，若为偶数则输出信息“偶数”，若为奇数则输出信息“奇数”。

input “输入一个自然数：”tox ifx%2=0 ”偶数” else ”奇数” endif return5.计算函数Y 的值。

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、Visual FoxPro支持面向对象程序设计，在Visual FoxPro中，对象可区分为和容器两种。

A．表格B．控件 C．类 D．数据2、假设在某表单中设置一个命令按钮，要求在该按钮上显示“确定”二字，于是应修改该命令按钮的属性。

A．Name B．Caption C． Visible D．ToolTipText3、现要求建立一个表单，使得该表单运行时，用户可通过它进行数据输入，为此在建立表单时，至少要在该表单中设置下列的控件。

A．CommandButton B．Timer C． TextBox D．Image4、设x=”y+”，y=5，在命令窗口执行命令? &x.y后，屏幕上显示。

A．x.y B．y+5 C．25 D．105、函数STR(-304.75)的值是。

A、-304B、304C、305D、 -3056、连续执行以下命令之后，最后一条命令的输出结果是。

SET EXACT OFFX="A "?IIF(x="A"，X-"BCD"，X+"BCD")A、AB、BCDC、A BCDD、ABCD7、（）数据在内存中占用1个字节。

A．字符型B．日期型C．货币型D．逻辑型8、在命令窗口执行命令store 0 to A后，紧接着输入并执行命令（），Visual FoxPro就会报错。

A．A<>0=A B．A=0=A C．A=0<>A D．A=09、在命令窗口输入并执行命令? {^2008-5-31}-{^2008-4-30}后，屏幕上将显示（）。

A．1 B．31 C．01/01/08 D．05/01/089、在命令窗口输入并执行命令? “大学” $ “大学生”后，屏幕上将显示（）。

A．大学B．.T. C．大学生D．.F.10、设X=”654”+SPACE(2)，Y=”321”，则X－Y的值与（）相等。

vf考试试题及答案VF考试试题及答案1. 选择题- 1.1 以下哪个选项是Visual FoxPro的缩写？- A. VF- B. VFP- C. VFX- D. VFS- 答案：B- 1.2 Visual FoxPro是一种______数据库管理系统。

- A. 关系型- B. 层次型- C. 网络型- D. 面向对象- 答案：A2. 填空题- 2.1 在Visual FoxPro中，用于定义数据表结构的命令是______。

- 答案：CREATE TABLE- 2.2 用于打开一个已存在的数据表的命令是______。

- 答案：USE3. 简答题- 3.1 简述Visual FoxPro中表单和报表的区别。

- 答案：表单是用户界面的一部分，允许用户与应用程序交互；而报表是打印输出的文档，通常用于展示数据的汇总或格式化视图。

- 3.2 描述Visual FoxPro中如何创建一个查询。

- 答案：在Visual FoxPro中创建查询通常涉及使用查询设计器，选择需要的表，指定字段和条件，然后执行查询。

4. 编程题- 4.1 编写一个Visual FoxPro命令，计算并输出1到100之间所有偶数的和。

- 答案：```s = 0FOR i = 2 TO 100 STEP 2s = s + iENDFOR"Sum of even numbers from 1 to 100 is: " + TRANSFORM(s) ```- 4.2 编写一个Visual FoxPro程序，实现将一个数据表中的记录按某字段进行排序。

- 答案：```USE studentsGO TOPORDER BY age DESCUSE```5. 案例分析题- 5.1 假设你有一个名为“employees”的数据表，其中包含员工的ID、姓名和工资。

请描述如何使用Visual FoxPro来找出工资最高的员工。

- 答案：首先，使用SELECT命令选择工资最高的记录，然后使用ORDER BY DESC命令对工资字段进行降序排序，最后使用TOP 1来选取第一条记录。

VF程序编程答案院（系）：班级：姓名：学号：--------⊙------------- 密 --------⊙---------- 封-----------⊙------------ 线-------⊙---VF 程序编程题（一）1、将小于1000且能被3和5中至少一个数整除的所有正整数求和，并显示和刚超过2000时的那个自然数以及那个时候的和。

s=0 n=0do while n<=1000 n=n+1 if mod(n,3)=0 or mod(n,5)=0 s=s+n endif if s>2000 exit endifenddo ? s,n2、求得最小的自然数n ，使得从51开始的连续n 个偶数之和大于6000s=0 n=0i=52 ( 初始值为52，以2为单位循环) do while s<=6000s=s+i i=i+2 n=n+1enddo ? n3、设某四位数的各个数字的平方和等于100且该数为奇数，问共有多少个这种四位数？（类似水仙花数）s=0for n=1000 to 9999a=int(n/1000) b=int((n%1000)/100) c=int((n%100)/10) d=mod(n,10) if a*a+b*b+c*c+d*d=100 and n%2 <>0 s=s+1 （重要！代码的功能是？） endifendfor ? s4、某国在2010年时人口总数为2亿，若每年3%的速度递增，试求到哪一年人口翻s=2 或 s=2 for n=2011 to 3000 n=2000s=s*(1+0.03) do while s<4 if s>=4 s=s*(1+0.03) exit n=n+1 endif enddoendfor ? n ? n5、A<b<c,且满足勾股定理，称三个数称为一组勾股弦数。

试求出弦为1300的勾股< p="">弦组数。