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
VFP课程设计作业
VFP课程设计作业一、教学目标本课程的教学目标是让学生掌握VFP（Visual FoxPro）的基本概念、操作方法和编程技巧，培养学生运用VFP解决实际问题的能力。
具体分为以下三个部分：1.知识目标：学生需要掌握VFP的基本语法、数据类型、运算符、控制结构、函数、数组和指针等概念。
2.技能目标：学生能够熟练使用VFP进行程序设计，包括算法分析、程序调试和优化。
3.情感态度价值观目标：培养学生对计算机科学的兴趣，提高学生独立思考、合作交流和创新能力。
二、教学内容根据课程目标，教学内容分为以下几个部分：1.VFP概述：介绍VFP的发展历程、特点和应用领域。
2.基本语法：讲解VFP的基本语法规则，包括数据类型、运算符、控制结构等。
3.函数和数组：讲解VFP内置函数的用法，以及数组的概念和应用。
4.指针和动态分配：介绍指针的概念、用法以及动态分配内存的方法。
5.文件操作：讲解VFP中文件的创建、打开、关闭和删除等操作。
6.数据库管理：介绍VFP数据库的概念、创建和管理方法。
7.程序设计实践：通过案例分析和实验，使学生掌握VFP编程技巧，提高解决实际问题的能力。
三、教学方法为了提高教学效果，本课程采用以下教学方法：1.讲授法：教师讲解VFP的基本概念、语法和编程技巧。
2.案例分析法：分析实际案例，让学生学会将理论知识应用于实际问题。
3.实验法：学生动手实践，培养实际操作能力和编程技巧。
4.讨论法：分组讨论，培养学生的合作精神和独立思考能力。
四、教学资源为了支持教学内容和教学方法的实施，提供以下教学资源：1.教材：选用权威、实用的VFP教材，为学生提供系统性的学习资料。
2.参考书：推荐一些VFP编程方面的参考书籍，拓展学生的知识面。
3.多媒体资料：制作课件、教学视频等，提高学生的学习兴趣。
4.实验设备：提供计算机实验室，让学生进行实际操作和编程练习。
五、教学评估本课程的教学评估分为以下几个部分：1.平时表现：评估学生在课堂上的参与程度、提问和回答问题的情况。
VF程序设计(含答案)
2014年春季学期 《VF 程序设计》试卷A一、单项选择题（每空1分，共35分）1.表单的NAME 属性是____。
A.显示在表单标题栏中的名称B.运行表单程序时的程序名C.保存表单时的文件名 D .引用表单对象时的名称2.在VFP6.0中,将字符型数据转换成日期型数据的函数是____。
A ．DTOC() B ．CTOD() C ． DA TE() D ． STR()3. 执行命令INPUT ”请输入数据:”TO XYZ 时,可以通过键盘输入的内容包括_____ A) 字符串 B) 数值和字符串C) 数值、字符串和逻辑值 D) 数值、字符串、逻辑值和表达式 4.下列四组基类中，同一组中各个基类全是容器型的是____。
A.Grid,Column,TextBoxmandButton,OptionGroup,ListBoxmandGroup,DataEnvironment,HeaderD.Form,PageFrame,Column 5.字段的默认值保存在____ A.表的索引文件中 B .数据库文件中 C.项目文件中 D .表文件中 6.下列叙述中含有错误的是____。
A.一个数据库表只能设置一个主索引 B.唯一索引不允许索引表达式有重复值C.候选索引既可以用于数据库表也可以用于自由表D.候选索引不允许索引表达式有重复值 7.表移出数据库后，仍然有效的是____ A.记录的验证规则 B .表的验证规则C.字段的默认值D.结构复合索引中的候选索引8.菜单文件经过生成以后形成的菜单程序文件的扩展名是____ A.MPR B.MNX C.MPX D.MND 9.下列叙述中含有错误的是____。
A.一个表可以有多个外部关键字 B.数据库表可以设置记录级的有效性规则C.永久性关系建立后，主表记录指针移动将使子表记录指针相应移动D.对于临时性关系，一个表不允许有多个主表 10.下列对象中，属于容器类的是____A.文本框 B .组合框 C .页框 D.选项按钮11.对于自由表而言，不能创建的索引类型是____。
VFP程序设计题汇总
S=0 N=1 DO WHILE N<=36 S=S+N N=N+1 ENDDO ? " 1+2+3+……+36的值为：", S SET TALK ON 用FOR循环的写法： SET TALK OFF CLEAR S=0 FOR N=1 TO 36 S=S+N ENDFOR ? " 1+2+3+……+36的和值：", S SET TALK ON 6. 用“SCAN…ENDSCAN循环结构”显示“学生信息.dbf”文件中“英语成 绩”大于等于75的记录。 SET TALK OFF CLEAR USE 学生信息 SCAN FOR 英语ቤተ መጻሕፍቲ ባይዱ绩>=75 DISPLAY ENDSCAN USE SET TALK ON
请编写：
（1） 表单Form1的Init事件代码： 单击“选中”界面 表单设计界面 this.text1.value="学生学号" &&文本框显示初值“学生学号” bel2.visible=.f. &&标签label2不可见 this.timer1.enabled=.f. &&计时器timer1不可用 this.timer1.interval=10 &&计时器时间间隔为10/1000 秒（即0.01秒）
13. 编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；表 单初始显示内容为表文件“学生.dbf”的首记录；当按前翻、后翻、 首记录、末记录按钮时，表单将自动显示相应记录的内容；当翻至 表头或表尾时，将自动设置相应按钮不可访问。参见下面的表单设 计及运行示意图。
VF程序设计
程序设计第1题 （10.0分） 题号:16题目：从键盘上输入3个不同的数，将他们从大到小排序。
请将下列程序填写完整。
（提示： 利用三个if…endif 语句实现，其中交换时用到的临时内存变量为t ）。
请按照题目要求，在下面编写程序代码。
*-------------------------------------* set talk offinput "请输入第一个数：" to a input "请输入第二个数：" to b input "请输入第三个数：" to c****************Program*************** if a<b t=a a=bb=tendif if a<c t=a a=cc=tendif if b<c t=b b=cc=tendif******************End****************** ?a,b,c Return Set talk on*-------------------------------------* 第2题 （10.0分） 题号:2题目：求[1,100]内所有能被3或被5整除的数以及个数。
（提示：利用do while 语句实现）。
请按照题目要求，在下面编写程序代码。
*-------------------------------------* Set talk off clear n=0 i=1*******************Program*************Do while i<=100IF MOD(i,3)=0 .OR. MOD(i,5)=0 ?? in=n+1 Endif i=i+1 enddo********** End ********** ? "满足条件的数的个数为:",n Set talk on Return*-------------------------------------* 第3题 （10.0分） 题号:5题目：求自然数5的阶乘。
二级vf结构化程序设计习题(总)1
1． 进一步理解数据类型、常量、变量、表达式和函数的含义，掌握各种运算符的使用方法、常用函数的功能。
2． 能够根据程序要求使用不同的程序控制结构编写程序实验内容：1. 顺序结构程序设计（1） 输入两个数，做加法运算。
（2） 输入两个数，交换位置（3） 从键盘输入三个数并分别存入变量a,b,c 中，求它们的平均值（4） 从键盘输入一个小写字母，输出其对应的大写字母（5） 输入一个华氏温度,根据公式 c=5/9(f-32),计算并输出摄氏温度。
（6） 输入一个三位数，将它反向输出，如输入127，输出应为721（7） 将从键盘输入的数值型十进制数分离为整数部分和小数部分后输出，如输入123.45，输出为123.45=123+0.45（8） 编程求以a,b,c 为边长的三角形的面积，提示：))()((c s b s a s s area ---=其中：s=(a+b+c)/2；a=3.5; b=5.4; c=4.3（9） 已知a=2.5，b=9.4，c=4.3，编程求02=++c bx ax 提示：a acb b x 2422,1-±-=） （10） 输出数据库中某一条学生信息（11） 查找并显示xsqk 中某学生的有关情况。
2. 分支结构结构程序设计单分支或双分支结构1) 从键盘输入一个数，若为正数则输出，非正数则结束。
（单分支）2) 从键盘输入两个整数，按从小到大的顺序输出。
（单分支）3) 从键盘输入3个数，按从小到大的顺序输出4) 从键盘输入一个数，判断是奇数还是偶数。
（双分支）5) 计算运费。
车站从甲地到乙地托运行李，收费规定：若行李重量不超过50公斤，每公斤收费0.5元；若行李重量超过50公斤，其超重部分加收0.4元。
编写计算运费的程序。
6) 判断某一年是否是闰年提示：设N 为年份数，若N 满足如下两个条件之一，则N 为闰年。
✧ N 能被4整除，但N 不能被100整除✧ 或者N 能被400整除。
VF程序设计习题(1)
1.下列关于数据与信息叙述不正确的是（）。
A.数据都可以经过处理得到信息B.信息一定是数据C.数据一定是信息D.信息是经过处理的数据2.下列关系运算中不是单表运算的是（）。
A. 选择B. 合并C. 连接D. 投影3.下列描述不正确的是（）。
A. 数据库减少了数据冗余B. 数据库能避免一切数据重复C. 数据库具有较高的数据独立性D. 数据库中的数据可以共享4.Visual FoxPro 6.0中要隐藏命令窗口的组合键是（）。
A. CTRL+F2B. CTRL+F4C. CTRL+F1D. CTRL+F35.在Visual FoxPro环境下，要隐藏命令窗口，可选择“窗口”菜单中的命令。
A. 清除B. 隐藏C. 循环D. 命令窗口6.在Visual FoxPro 中，关于字段值为空值(NULL)的描述中正确的是（）。
A. 不支持字段值为空值B. 空值表示字段还没有确定值C. 空值等同于空字符串D. 空值等同于数值07.Y1="大学计算机基础"，那么?SUBS(Y1,LEN(y1)-3,4)命令的执行结果是（）。
A. 9B. 12C. 基础D. 计算机8.命令?round(42.1998,2)的结果是( )。
A. 42.00B. 42.20C. 42.19D. 42.20009.下列说法不正确的是( )。
A. recno()的功能是测试当前或指定工作区中数据表的当前记录号B. eof（）的功能是测试当前或指定工作区中数据表的记录指针是否指向最后一条记录之后C. reccount（）的功能是测试当前或指定工作区中数据表的记录个数，不包含逻辑删除的记录D. bof（）的功能是测试当前或指定工作区中数据表的记录指针是否指向第一个记录之前10.关于函数atc()和at()的说法正确的是（）。
A. atc()和at()的功能完全相同B. 以上说法都不正确C. atc()区分字母的大小写D. at()区分字母的大小写11.函数MAX(1,-90)的结果值是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
作业一一、选择题1、在关系运算中，查找满足一定条件的记录的运算称为（）A、复制B、选择C、投影D、连接2、数据库（DB）、数据库系统（DBS）、数据库管理系统（DBMS）三者之间的关系是：（）A、DBS包括DB和DBMSB、DBMS包括DB和DBSC、DB包括DBS和DBMSD、DBS就是DB,也就是DBMS3、设A="123"，B="234"，表达式( )的值为假A、.NOT.(A=B).OR. B$"13579"B、.NOT.A$"ABC".AND.A<>BC、.NOT.(A<>B)D、.NOT.(A>=B)4、对于现实世界中事物的特征，在实体-联系模型中使用：（）A、属性描述B、关键字描述C、二维表格描述D、实体描述5、为了设置两个表之间的数据参照完整性，要求这两个表是：（）A、同一个数据库中的两个表B、两个自由表C、一个自由表和一个数据库表D、没有限制6. 在Visual FoxPro中，向数据库文件中追加数据使用语句( )。
A、INSERTB、REPLACEC、APPENDD、ADD7. 在Visual FoxPro中，分屏显示当前数据库中年龄字段大于20的所有记录，正确的命令为( )。
A、display all for nl>20B、display all while nl>20C、list for nl while nl>20D、list while nl>208. 逻辑运算符在运算时的优先顺序是（）A.NOT→AND→ORB.AND→NOT→ORC.OR→NOT→ANDD.从左至右按先后次序9. 以下各表达式中，运算结果为数值型的是（）。
A. 9<6B. “D”$”ASD”C. TIME()+9D. LEN(SPAC(8))-928.以下各表达式中，运算结果为数值型的是（）。
A. 9<6B. “D”$”ASD”C. TIME()+9D. LEN(SPAC(8))-910.若X=56.789，则命令?STR(X,2)-SUBS([56.789],5,1)的显示结果是（）。
A、578B、568C、49D、4811. 设AB=12，函数TYPE(“AB<30”)的返回值是( )。
A、.T.B、.C.C、.U.D、.L.12. 在系统默认设置下，表达式“北师大”=“北京师范大学”和“北京师范大学”=“北师大”的值为( )。
A、.T. .T.B、.F..F.C、.T..F.D、.F..T.13.假定STUDENT.DBF学生数据库文件中前六条记录均为男生的记录，执行以下命令序列： USE.STUDENTGOTO 3LOCATE NEXT 3 FOR 性别="男"后，记录指针定位在()。
A)第3条记录上B)第4条记录上 C)第5条记录上D)第6条记录上14.修改表结构的命令是（）A.CREATEB.LIST STRUCTUREC.BROESED.MODIFY STRUCTURE15.如果一个字段的宽度为8,则此字段的类型不可能是（）A) 数值型 B) 字符型 C) 日期型 D) 备注型16.用COPY STRU TO <文件名> 形成的文件是()。
A. 数据表文件B. 索引文件C. 文本文件D. 正式文件17.逻辑常量A=.T.、B=.T.、C=.T.，下面各表达式中返回逻辑真的是（）A.NOT((NOT A OR B) AND C)B. NOT (NOT (A OR B) AND C)C.NOT(A AND B OR NOT C)D.NOT(NOT A OR B AND C)18.当前数据库中有五个字段:学号(C,4)、姓名(C，6)、政治(N，3.0)、英语(N，3.0)、数学(N,3.0),记录指针指向一个非空的记录。
要使用SCATTER TO X命令把当前记录的字段值存到数组X中,数组（）。
A. 不必事先定义B. 必须用DIMENSION X 事先定义C. 必须用DIMENSION X(5)事先定义D. 必须用DIMENSION X(1),X(2),X(3),X(4),X(5)事先定义19.计算所有职称为正、副教授的平均工资，将结果赋予变量PJ中，应使用命令（）。
A) AVERAGE 工资TO PJ FOR “教授”$职称B) AVERAGE FIELDS 工资TO PJ FOR “教授”$职称C) AVERAGE 工资TO PJ FOR 职称=”副教授”.AND.职称=”教授”D) AVERAGE 工资 TO PJ FOR 职称=”副教授”.OR.”教授”20.表文件的数值型字段要求保留2位小数，那么该字段宽度最少应当定义成（）位。
A、2B、3C、4D、5二、判断题1、total 命令的功能是对数据表的记录个数进行统计（）2、过程文件是由若干个过程组成的命令文件（）3、Visual FoxPro的变量有两类，字段变量和内存变量。
字段变量在建立数据库表时生成，只存在于数据库表中。
（）4、Visual FoxPro的变量有两类，字段变量和内存变量。
字段变量在建立数据库表时生成，只存在于数据库表中。
（）5、LEN(STR(1234.587))的值是4（）6、执行命令 ?AT（"ABC","ABCABABC",2），屏幕显示的结果为：6。
（）7、设置字符串精确比较的命令是SET EXACT ON/OFF。
（）8、二维数组各元素在内存中按行存储，因此，它可以用一维数组来表示。
（）9、程序执行方式克服了单条命令执行方式的缺点，充分发挥了计算机“程序存储”、“程序控制”、完全自动高速处理数据的特点。
（）10、将数组数据（一维或二维形式）追加到表中的命令APPEND FROM ARRAY。
（）11、VFP程序（命令文件）的组成要素主要为命令、函数、结构控制语句。
（）12、执行命令 ?AT（"大学","武汉大学"），屏幕显示的结果为：5 （）13、Visual FoxPro定义的字符串运算符有两个：+，-。
+为字符串精确连接符，它把两个字符串原封不动连接起来，形成一个新的字符串。
（）14、Visual FoxPro规定，变量名必须以字母、汉字或下划线开头，其后可以是字母（汉字）、数字和下划线。
（）三、编程题1、已知a>b>c，且a+b+c<30，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组。
2、给出一个百分制的学生成绩，要求计算机判断并输出该成绩的等级“优秀”、“良好”、“中等”、“及格”、“不及格”，其中90（包括90）分以上为优秀，80～89（包括80）分为良好，70～79（包括70）分为中等,60～69（包括60）分为及格，60以下为不及格。
作业二一、选择题1、查询订购单号（字符型，长度为4）尾字符是"1"的错误命令是：（）A、SELECT * FROM 订单 WHERE SUBSTR(订购单号,4)="1"B、SELECT * FROM 订单 WHERE SUBSTR(订购单号,4,1)="1"C、SELECT * FROM 订单 WHERE "1"$订购单号D、SELECT * FROM 订单 WHERE RIGHT(订购单号,1)="1"2、要想对一个打开的数据表增加新的字段，应使用命令（）。
A、APPENDB、MODIFY STRUCTUREC、INSERTD、CHANGE3、Visual FoxPro的报表文件.FRX中保存的是：（）A、打印报表的预览格式B、已经生成的完整报表C、报表的数据D、报表设计格式的定义4、在下面的VisualFoxPro表达式中，不正确的是：（）A、{^2002-05-01 10：10：10：AM}－10B、{^2002-05-01}－DATE()C、{^2002-05-01}+DATE()D、{n2002-05-01}+[1000]5、结构化程序设计的三种基本逻辑结构是：（）A、选择结构、循环结构和嵌套结构B、顺序结构、选择结构和循环结构C、选择结构、循环结构和模块结构D、顺序结构、递归结构和循环结构6.VFP中的循环语句有三种，关于它们的适用场合下列说法中不正确的是( )。
A.当事先知道循环次数时,可以用FOR…ENDFOR循环B.当需要对表中所有记录执行某一操作时,可以用SCAN…ENDSCANC.当不知道循环次数时，应该用FOR…ENDFORD.循环语句应该配对出现7.在有关数据库的概念中，若干记录的集合称为（）。
A) 文件B) 字段 C) 数据项 D) 表8.在Visual Foxpro中，用于建立或修改过程文件的命令是（）。
A) MODIFY <文件名> B) MODIFY COMMAND <文件名>C) MODIFY PROCEDURE <文件名> D) 上面B)和C)都对9.假定系统是期是2004年01月05日，有如下命令：NJ= YEAR(DATE())执行该命令后，NJ的值是( )。
A)2004 B) 01 C)05 D)01/05/0410.函数EOF()用于检测当前数据库记录指针是否达到( )。
A. 文件头B. 文件尾C. 指定记录D. 第一条记录11.下面( )不是VFP程序文件中可以使用的注释语句A． NOTE <注释内容> B． * <注释内容> C． // <注释内容> D． && <注释内容>12.函数LEN(TRIM(SPACE(8)-SPACE(8)))返回的值是( )。
A) 8 B) 16 C) 0 D) 出错13.在VFP中，可以对数值型同时也可以对字符型内存变量输入数据的命令是( )。
A． ACCEPT B． INPUT C． WAIT D． EDIT14.下面程序运行结果是( )。
SET TALK OFFSTRING="ABCDEF"N=1DO WHILE N<5?SUBSTR(STRING,N,2)N=N+1ENDDOSET TALK ONA. ABB. ABC. BCD. CDBC CD AB BCCD DE CD DEDE BC DE AB15.下列命令不能关闭数据库表文件的是（）。
A、browseB、useC、close allD、close database16.在关系理论中，把二维表表头中的栏目称为（）。