VF程序设计编程题及答案

合集下载

VF30道程序设计题参考答案

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程序设计题目及答案

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理论考试题及答案

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试题及答案能复制

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试题及答案

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

计算机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编程题及参考答案(可打印修改)

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复习题及答案

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的值与()相等。

vf考试试题及答案

vf考试试题及答案

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程序编程答案

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="">弦组数。

计算机vf考试题及答案

计算机vf考试题及答案

计算机vf考试题及答案一、选择题(每题2分,共20分)1. 在Visual FoxPro中,下列哪个选项是正确的?A. 表单控件不能设置事件B. 表单控件可以设置事件C. 表单控件不能添加到报表中D. 表单控件不能添加到表单中答案:B2. 以下哪个函数用于计算字符串的长度?A. LEN()B. LENGTH()C. STRLEN()D. SIZE()答案:C3. 在Visual FoxPro中,要打开一个表单,应该使用哪个命令?A. OPEN FORMB. DISPLAY FORMC. VIEW FORMD. SHOW FORM答案:A4. 以下哪个命令用于创建一个新表?A. CREATE TABLEB. MAKE TABLEC. NEW TABLED. ADD TABLE答案:A5. 在Visual FoxPro中,如何将一个表单设置为模态?A. 将表单的Modal属性设置为.T.B. 将表单的Modal属性设置为.F.C. 使用MODAL FORM命令D. 使用NONMODAL FORM命令答案:A二、填空题(每题2分,共20分)1. 在Visual FoxPro中,使用________命令可以关闭表单。

答案:RELEASE2. 要将一个字段设置为自动增长,应该在表结构中设置该字段的________属性。

答案:AutoIncrement3. 在Visual FoxPro中,________函数用于将日期转换为字符串。

答案:DATE()4. 要将一个变量的值设置为NULL,应该使用________关键字。

答案:NULL5. 在Visual FoxPro中,________命令用于删除一个表的所有记录。

答案:DELETE ALL三、简答题(每题10分,共30分)1. 描述在Visual FoxPro中如何创建一个索引。

答案:在Visual FoxPro中创建索引可以通过使用INDEX命令或者在表设计器中创建。

vfp试题及答案及

vfp试题及答案及

vfp试题及答案及一、单项选择题(每题2分,共10分)1. Visual FoxPro是由哪家公司开发的数据库管理系统?A. 微软B. 甲骨文C. IBMD. 苹果答案:A2. 在Visual FoxPro中,以下哪个命令用于创建新表?A. CREATE TABLEB. DEFINE TABLEC. MAKE TABLED. NEW TABLE答案:B3. 在Visual FoxPro中,以下哪个函数用于计算字符串的长度?A. LENB. LENGTHC. SIZED. WIDTH答案:A4. 在Visual FoxPro中,以下哪个命令用于打开一个表?A. OPEN TABLEB. USEC. DISPLAY TABLED. SHOW TABLE答案:B5. 在Visual FoxPro中,以下哪个命令用于关闭当前表?A. CLOSE TABLEB. QUITC. EXITD. CANCEL答案:A二、多项选择题(每题3分,共15分)1. 在Visual FoxPro中,以下哪些命令用于数据的增删改查?A. INSERTB. DELETEC. UPDATED. SELECT答案:ABC2. 在Visual FoxPro中,以下哪些函数用于数据的转换?A. TRANSFORMB. EVALUATEC. CURDATE()D. CURTIME()答案:AB3. 在Visual FoxPro中,以下哪些命令用于数据的排序?A. SORTB. ORDER BYC. INDEXD. FIND答案:AC4. 在Visual FoxPro中,以下哪些命令用于创建索引?A. INDEX ONB. CREATE INDEXC. SET INDEX TOD. SET ORDER TO答案:AC5. 在Visual FoxPro中,以下哪些命令用于数据的统计?A. COUNTB. SUMC. AVGD. MAX答案:ABCD三、填空题(每题2分,共10分)1. 在Visual FoxPro中,使用命令_________可以设置表的过滤条件。

vf复习题及答案

vf复习题及答案

vf复习题及答案一、选择题1. 在Visual FoxPro中,以下哪个命令用于打开一个表单?A. USEB. OPEN FORMC. DISPLAY FORMD. SHOW FORM答案:B2. 如何在Visual FoxPro中创建一个数据库?A. CREATE DATABASEB. MAKE DATABASEC. BUILD DATABASED. CREATE DBF答案:A3. 在Visual FoxPro中,以下哪个函数用于计算字符串的长度?A. LENB. LENGTHC. SIZED. STRLEN答案:A二、填空题1. 在Visual FoxPro中,使用________命令可以关闭一个打开的表单。

答案:RELEASE FORM2. 若要在Visual FoxPro中删除一个数据库中的所有表,可以使用________命令。

答案:ZAP3. 在Visual FoxPro中,________函数用于将数值转换为字符串。

答案:STR三、简答题1. 描述在Visual FoxPro中如何设置表单的标题。

答案:可以通过在表单的属性窗口中找到Caption属性,并输入所需的标题来设置表单的标题。

2. 说明在Visual FoxPro中如何添加一个命令按钮到表单。

答案:在表单设计器中,可以通过工具箱中的Command Button控件拖放到表单上,然后设置其Caption属性为所需的按钮文本,并编写相应的Click事件代码来添加一个命令按钮。

四、编程题1. 编写一个Visual FoxPro程序,用于计算并输出1到100之间所有奇数的和。

答案:```SET TALK OFFSUM = 0FOR I = 1 TO 100 STEP 2SUM = SUM + IENDFOR"1到100之间所有奇数的和为:" + STR(SUM, 10)SET TALK ON```2. 设计一个Visual FoxPro查询,用于从员工表中检索所有工资高于平均工资的员工信息。

vf程序设计练习及答案

vf程序设计练习及答案

程序设计操作练习题计算:T=1!+2!+3!+…+10!。

T=0for i=1 to 10S=1for j=1 to iS=S*jendforT=T+Sendfor?"1!+2!+....10!=",T1.某商场的日销售表RQ.DBF包含:营业员代号(DH,N,6)、品名(PM,C,6)、数量(SL,N,2)、单价(DJ,C,7,2)、营业额(YEE,N,9,2),每一笔销售构成数据表中的一条记录,营业额字段为0,编程查询某个营业员全天营业额的程序。

例如:DH PM SL DJ YYE011201 洗衣机 4 1820.00011201 电饭锅8 298.00020301 空调 5 4500.00011201 空调 3 4500.00020301 MP3 1458.00CLEAUSE RQREPL ALL YYE WITH SL*DJ &&营业额=单价*数量D="" && 初始化变量DAccept "请输入营业员代号:" TO DS=0Locate for DH=DDo while Not eof()S=S+YYEContEnddo@12,10 SAY "营业额为:"+STR(S,8,2)RETU3. 逐条显示RSGL.DBF中的记录,显示完一条记录后暂停,出现提示“继续吗(Y/N)?”,用户输入Y(y)则继续显示下一条记录,输入N(n)退出。

clearset talk offuse rsgldo while .not. eof()disp 编号,姓名,性别,职称&&可以使用?输出wait "继续吗(Y/N)?" to YNif UPPER(YN)="N"ExitEndifSkipEnddoUseSet talk onReturn4显示RSGL.DBF中在1966年以后出生的职工记录。

VF程序设计试题及答案

VF程序设计试题及答案

VF程序设计请注意:1、本考试科目提供一套试题参考答案,进入本门课程点在线考试,随机抽题,如果考试题不是其中试题,千万别点最下面的“完成考试”按钮,立即关闭窗口,重新进入抽题,直到抽到所给这套题为止2、在线考试只有一次机会,成绩为最终考试成绩,抄袭、雷同作业一律按零分处理。

没给答案的可自行发挥,别空题,做完后一定点完成考试显示“答卷结果保存成功”表示提交成功,否则考试结果将无分值请注意:本学期您只有一次在线考试机会,请慎重做答和提交!01:29:42单项选择题第1题以下关于Visual FoxPro的叙述最全面的是(D)本题1分A、Visual FoxPro是一个数据库应用平台软件B、Visual FoxPro是一个数据库应用开发工具C、Visual FoxPro是一个综合应用软件D、Visual FoxPro既是一个数据库应用平台,又是数据库应用开发工具第2题关系数据库系统中所使用的数据结构是(D )本题1分A、树B、图C、表格D、二维表第3题把各个数据库文件联系起来构成一个统一的整体,在数据库系统中需要采用一定的( D)本题1分A、操作系统B、文件系统C、文件结构D、数据结构第4题用二维表形式表示的数据模型是(B )本题1分A、层次数据模型B、关系数据模型C、网状数据模型D、网络数据模型第5题关系数据库管理系统的3种基本关系运算不包括( A) 本题1分A、比较B、选择C、连接D、投影第6题下列关于数据库系统的叙述中,正确的是(A )本题1分A、表的字段之间和记录之间都存在联系B、表的字段之间和记录之间都不存在联系C、表的字段之间不存在联系,而记录之间存在联系D、表中只有字段之间存在联系第7题使用数据库技术进行人事档案管理是属于计算机的(C )本题1分A、科学计算应用B、过程控制应用C、数据处理应用D、辅助工程应用第8题在关系理论中,把二维表表头中的栏目称为(C )本题1分A、数据项B、元组C、结构名D、属性名第9题在关系模型中,实现“关系中不允许出现相同的元组”的约束是通过(B ) 本题1分A、候选键B、主键C、外键D、超键第10题数据库系统的构成为:数据库、计算机硬件系统、用户和(D )本题1分A、操作系统B、文件系统C、数据集合D、数据库管理系统第11题数据库系统的用户对数据库的查询和存储操作使用的语言是( D )本题1分A、自然语言B、自含语言C、数据描述语言D、数据操作语言第12题DBAS指的是(C )本题1分A、数据库管理系统B、数据库系统C、数据库应用系统D、数据库服务系统第13题用于实现对数据库进行各种数据操作的软件称为(C ) 本题1分A、数据软件B、操作系统C、数据库管理系统D、编译程序第14题数据库DB、数据库系统DBS和数据库管理系统DBMS之间的关系是(B )本题1分A、DBMS包括DB和DBSB、DBS包括DB和DBMSC、DB包括DBS和DBMSD、DB、DBS和DBMS是平等关系第15题下列关于数据库系统的叙述中,正确的是(D )本题1分A、数据库系统只是比文件系统管理的数据更多B、数据库系统中数据的一致性是指数据类型一致C、数据库系统避免了数据冗余D、数据库系统减少了数据冗余第16题Visual FoxPro6。

vfp程序设计课后习题参考答案

vfp程序设计课后习题参考答案

第二章VFP语言元素一选择题1 C2 A3 D4 B5 D6 A7 D8 B9 B 10 C二填空题1、11.252、 13、XBASE4、FOXBASE5、职称=‟工程师‟ and (年龄>60 or 年龄<30)6、.f.7、.f.8、189、35610、2010第三章数据表与数据库一选择题1 A2 B3 A4 A5 B6 D7 C8 C9 C 10 C11 B 12 B 13 D 14 B 15 B 16B 17 D 18 C 19 A20 C二填空题1、自由表2、 33、LIST DISPLAY LIST DISPLAY4、EOF() RENO()5、表尾6、GO 2 DELETE NEXT 47、SET DA TABASE TO 数据库名8、表文件表文件9、升序降序不区分大小写字母10、永久关系第四章查询与视图一选择题1 D2 A3 A4 D5 D6 B7 C8 C9 D 10 B二填空题1、数据2、本地视图远程视图3、DELETE FROM <表名> [WHERE <条件>4、左外连接右外连接全连接5、不能6、77、A VG SUM8、条件9、DISTINCT10、修改第八章VFP程序设计一选择题1 C2 C3 A4 C5 C二填空题1、S=S*X X=X+12、S1=S1*I S2=S2+I3、S=S+X*X4、I<=15 I=I+1阶段性测试一一选择题1 A2 C3 B4 B5 D6 B7 D8 B9 B 10 A 11 D 12 B 13 D 14 A15 C 16 A17 A18 A19 D 20 B 21 C 22 A23 C 24 D 25 B二填空题1、112、.T.3、3 24、GO 3 LIST NEXT 35、.T.6、主关键字7、数据类型8、.T. .F.三书写命令1、SA VE TO ABC ALL LIKE XY*2、LIST FIELDS 姓名,联系电话FOR 姓名=‟王‟3、LIST FOR 少数民族=.T. YEAR(出生日期)>19904、INDEX ON 价格TAG JG DESCENDING5、REPLACE ALL …高教出版社‟ WITH …高等教育出版社‟6、REPLACE ALL 工资WITH 工资+1007、LIST MEMORY LIKE ?G*8、SORT TO TUSU ON 图书名/A9、LOCA TE FOR 专业=‟计算机‟10、CONTINUE阶段性测试二一选择题1 C2 D3 C4 D5 D6 D7 A8 C9 C 10 D11 C 12 B 13 C 14 C或D 15 B 16 C 17 A18 A19 D 20 B21 B 22 D 23 D 24 C 25 D二书写命令1、SORT TO BJJG 班级/D,籍贯/A FIELDS 姓名,性别,班级,籍贯FOR 性别=‟女‟2、INDEX ON 学号TO STU3、INDEX ON 性别TAG XB DESCENDING4、INDEX ON 出生日期TAG csrq OF CSRQ ASCENDING FOR 性别=‟男‟5、INDEX ON 出生日期TAG CSRQ ASCENDNG LIST NEXT 36、CALCULA TE MAX(考试成绩),MIN(考试成绩),A VG(考试成绩) FOR 课程代号=‟S1008‟7、COUNT FOR 课程代号=‟Y2003‟ TO A8、INDEX ON 课程代号TAG KCDH TOTAL TO KCDH ON 课程代号FIELDS 平时成;绩,考试成绩9、REPLACE ALL 平时成绩WITH 平时成绩+5 FOR 平时成绩>=75 AND 平时成绩<=8010、COPY TO abc FIELDS 学号,姓名,出生日期,籍贯三书写命令(使用SQL语句)1、CREA TE TABLE 学生表(学号C(11),姓名C(10),性别C(2),出生日期D(8))2、ALTER TABLE 学生表ALTER 学号C(10) ADD 籍贯C(20)3、INSERT INTO 学生表V ALUES(…2008010125‟,‟陈燕‟,‟女‟,{^1990/05/07},‟广西‟)4、ALTER TABLE 学生表RENAME 出身日期TO 出生年月5、DELETE FROM 学生表WHERE 姓名=‟张‟6、UPDA TE 学生表SET 籍贯=‟广东‟ WHERE 姓名=‟陈燕‟7、ALTER TABLE 学生表DROP 出生日期8、SELECT * FROM 学生表WHERE 性别=‟男‟ AND 籍贯!=湖南9、SELECT a.学号,a.姓名,b.课程代号FROM 学生基本情况表a INNER JOIN 学生成绩;表b ON a..学号=b.学号WHERE 课程代号IN(…1101‟,‟1102‟)10、SELECT * FROM 学生基本情况表WHERE 姓名=‟李‟ AND YEAR(出生日期)=1990下面红色字体是赠送的精美网络散文欣赏,不需要的朋友可以下载后编辑删除!!谢谢!!!一一条猎狗将兔子赶出了窝,一直追赶他,追了很久仍没有捉到。

VF程序设计教程题及答案

VF程序设计教程题及答案

第一章1.试说明数据与信息的区别和联系。

数据是人们用于记录事物情况的物理符号。

信息是数据中所包含的意义。

数据与信息既有区别,又有联系。

数据是表示信息的,但并非任何数据都能表示信息,信息只是加工处理后的数据,是数据所表达的内容。

另一方面信息不随表示它的数据形式而改变,它是反映客观现实世界的知识,而数据则具有任意性,用不同的数据形式可以表示同样的信息,信息只是加工处理后的数据,是数据所表达的内容。

2.什么是数据库、数据库管理系统和数据库系统?数据库是在数据库管理系统的集中控制之下,按一定的组织方式存储起来的、相互关联的数据集合。

数据库管理系统(Database Management System,DBMS)是对数据进行统一的控制和管理,从而可以有效地减少数据冗余,实现数据共享,解决数据独立性问题,并提供统一的安全性、完整性和并发控制功能的系统软件。

数据库系统是把有关计算机硬件、软件、数据和人员组合起来为用户提供信息服务的系统。

3.简述数据库的三级模式结构。

为了有效地组织、管理数据,提高数据库的逻辑独立性和物理独立性,人们为数据库设计了一个严谨的体系结构,数据库领域公认的标准结构是三级模式结构,它包括外模式、模式和内模式。

模式又称概念模式或逻辑模式,对应于概念级。

它是由数据库设计者综合所有用户的数据,按照统一的观点构造的全局逻辑结构,是对数据库中全部数据的逻辑结构和特征的总体描述,是所有用户的公共数据视图(全局视图)。

外模式又称子模式,对应于用户级。

它是某个或某几个用户所看到的数据库的数据视图,是与某一应用有关的数据的逻辑表示。

内模式又称存储模式,对应于物理级。

它是数据库中全体数据的内部表示或底层描述。

4.数据库系统的特点是什么?特点是数据共享,减少数据冗余,具有较高的数据独立性,增强了数据安全性和完整性保护。

5.实体之间的联系有哪几种?分别举例说明。

(1)一对一联系(1∶1) 例如,一所学校只有一个校长,一个校长只在一所学校任职,校长与学校之间的联系是一对一的联系。

vfp典型程序设计题(附参考答案)

vfp典型程序设计题(附参考答案)

典型程序设计题(附参考答案)1.求1到2000之间,能被3或7整除,并且含有数字5的整数的个数、它们的和、它们的平方根的和(保留2位小数)、以及它们的平方和。

2.求能被3整除且至少有一位数字为5的三位数的个数。

3.求出只要能被2,7,9之一整除的800以内的正整数的个数。

4.求[105,625]间能同时被7和11整除的自然数之和。

求[200,600]间奇数之和。

5.编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。

6.输出[10,100]中除以17的余数和除以5的商相等的整数的个数。

7.统计区间[1000,9999]内所有能被3整除,且千位数字与个位数字之和为8的整数的个数。

8.求在四位数的奇数中,所有各位数字之和是25的倍数的数的和。

9.求出所有能被17整除且不含重复数字的三位数的和。

10.求1到500的偶数立方和与奇数立方和之差。

11.求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.12.求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时, 则结束累加。

13.计算S=1*5*9*13*...*k,直到累乘数k>=25中止。

14.求出1到5000之间的能被5整除的前若干个偶数之和,当和大于500时程序退出。

15.编写程序,s=1+1/2+1/3+…+1/99,保留两位小数。

16.编程求S=1*3+2*4+3*5+...+198*200。

17.设S=1+1/2+1/3+...+1/N,N为正整数。

编程求使S不超过10的最大的N18.求S=8!+9!+10!19.编写程序,求10!20.计算S=3!+5!+7!+...+N!,求直到S>=680000为止的奇数N。

21.s=1!+2!+3!+....+n! 当s大于61000时结束累加,求n。

22.数列xi各元素的值是:x1=1,x2=1+2,x3=1+2+3,.....xn=1+2+3+......+n。

VF编程题一

VF编程题一
clea
dime f(50)
f(1)=1-1/2
f(2)=1/3-1/4
f(3)=1/5-1/6
s=0
for n=1 to 50
f(n)=1/(2*n-1)-1/(2*n)
s=s+f(n)
endfor
?round(s,4)
184 S1=1,S2=1+3,S3=1+3+5,S4=1+3+5+7,…,SN=1+3+5+7+…+(2N-1),N为正整数。编程求S1+S2+S3+S4+…+SN的值<20000时的N的最大值。 38
?s
103求[351,432]之间所有既不能被3整除,又不能被8整除的正整数的个数。 47
clea
s=0
for n=351 to 432
if n%3!=0 and n%8!=0
s=s+1
endif
endfor
?s
1
150求[1,1000]之间能被3整除,且至少有一位上的数是5的所有数之和。 46509
f(1)=0
f(2)=0
f(3)=1
s=0
for n=4 to 36
f(n)=f(n-3)+f(n-2)+f(n-1)
s=f(n)
endfor
?s
20 编程序求出1-5000以内能被37整除的整数之和。 339660
clear
s=0
for n=1 to 5000
147 计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50), 要求:按四舍五入的方式精确到小数点后第二位。 26.47
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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)新排列(即逆序排列)(例:。

相关文档
最新文档