VF程序设计编程题及答案
VF30道程序设计题参考答案
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
2
2
2
2
Hale Waihona Puke 22VF 程序设计题目及答案
ProProblem ProAnswer ProType disp 2 一球从 100 米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度 13 都是前一高度的 3/4 倍，试求出最小的自然数 n，使得此球从开始下落至第 n 次 着地时在垂直方向所经过的总路程超过 678 米。 一球从 100 米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度 15 都是前一高度的 3/4 倍，试求出最大的自然数 n，使得此球从开始下落至第 n 次 着地时在垂直方向所经过的总路程不超过 690 米。 设一数列{f(n)}：f(1)=1，当 n>1 时 f(n)=1/(f(n-1)+1)。试求出此数列的前 20 5 项中小于 0.618 的项数。 设一数列{f(n)}：f(1)=1，当 n>1 时 f(n)=1/(f(n-1)+1)。试求出此数列的前 20 15 项中大于 0.618 的项数。 设有用 26 个字母表示的 26 个表达式：a=1，b=1/(a+1)，c=1/(b+2)，„， z=1/(y+25)。试求出这 26 个字母中其值小于 0.1 的字母个数。 求所有符合算式 ab*ba=3627 的最大的两位数 ab（即 a*10+b）。其中 a、b 是 1~9 93 之间的一位整数。 设一个数列的前 3 项都是 1，从第 4 项开始，每一项都是其前 3 项之和。试求出 5 此数列的前 25 项中大于 54321 的项数。 已知一个由分数组成的数列：1/2，3/5，8/13，21/34，„，其特点是：从其中 20 第 2 个分数起，每个分数的分子都是前一分数的分子分母之和而其分母都是其分 子与前一分数的分母之和。试求出此数列的前 25 项中其值大于 0.618 的项数。 已知数列{f(n)}：f(1)=1，f(2)=4，当 n=3,4,5,„时，f(n)=3*f(n-1)-f(n-2)。16 试求出 100 以内最大的自然数 n 使得此数列的第 n 项不超过 7654321。 回文指的是正读和反读都一样的一串字符，如 121、1221。试求出[1421,4112] 74250 内所有回文数的和。 回文指的是正读和反读都一样的一串字符，如 121、1221。试求出[1234,9876] 85 内回文数的个数。 求出[123,789]内至少有两个数字相同的数的个数。 求出[123,931]内恰好有两个数字相同的数的个数。 求出[123,456]内恰好有两个数字相同的所有整数之和。 求在[100,999]内所有不含数字 0 且各位数字之积被 96 整除的数之和。 求在[100,999]内所有不含数字 0 且各位数字之和被 14 整除的数之和。 求出[100,600]内被除 3 余 2 并且被除 5 余 3 的整数的个数。 求出[200,800]内被除 3 余 1 并且被除 5 余 3 的整数的和。 求出[1234,6789]内中间两位数字之和等于首尾两位数字之积的数的个数。 求出[1234,5678]内至少有 1 位数字是 7 的所有整数之和。 求出[750,978]内不包含数字 8 的所有整数之和。 求出[750,978]内恰好有两位数字是 8 的所有整数之和. 180 209 26406 26640 31080 33 20020 175 3991594 94415 17275 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 16 2 2 2 2
vf理论考试题及答案
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试题及答案能复制
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试题及答案
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，其中有“教师”表和“学院”表。
计算机VF编程参考答案,DOC
四、结构化程序设计顺序结构程序设计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编程题及参考答案(可打印修改)
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元计费。
VF复习题及答案
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的值与（）相等。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序设计编程题
1. 求园的面积（要求判断半径是否合理（负数不合理））
2. 求分段函数
Y 的值
3. 输入一个百分制成绩判断其等级（优/良/中/及格/不及格）
4. 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）
先确定输入几个人的成绩再，输入成绩
5. 求S ＝1+2+3. . . . . .+100
（使用基于条件循环）
6. 求S ＝1×2×3. . . . . .×100
7. 求S ＝1+3+5.. . . . .+99
8. 求S ＝1－2+3－4. . . . . .－100
9. 求S ＝1+1/2+2/3+3/5. . . . . .前10项之和
10. 求S ＝1！+2！+3！. . . . . .+10！
11. 判断一个整数是否素数
能被2整除的数叫素数
12. 判断十个整数是否素数
（输入一个判断一个）
13. 输入两个数，找出其中的大数和小数
14. 输入三个数，找出其中的最大数和最小数
15. 输入十个数，找出十个数的最大数和最小数
16. 对三个整数从大到小排序
17. 对十个整数从大到小排序（用选择法和起泡法两种方法）
18. 求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）
19. 已知三角形的三边（从键盘输入），求其面积(S^2=p(p-a)(p-b)(p-c), p=(a+b+c)/2)
20. 求二元方程的根（分三种情况：两个不等实根，两个相等实根，无实根）
21. 输入任意一个五位整数，前后
2x ＋5 x>0 x x=0 | x | x<0
对应位置上的数据进行交换重
25984→48952）新排列（即逆序排列）（例：。