Vfp编程例题
vfp试题及答案
vfp试题及答案一、选择题1. 在Visual FoxPro中，用于定义一个表单的文件扩展名是（）。
A. .dbfB. .scxC. .pjxD. .frx答案：B2. 下列哪个函数用于在VFP中获取当前系统日期？（）。
A. DATE()B. NOW()C. THIS()D. TIME()答案：A3. 在Visual FoxPro中，要循环遍历一个表中的所有记录，应该使用哪个命令？（）。
A. GO TOPB. GO BOTTOMC. LOOPD. BROWSE答案：D4. 以下哪个属性用于设置Visual FoxPro中对象的前景色？（）。
A. BackColorB. ForeColorC. FontSizeD. Text答案：B5. 在VFP中，若要打开一个已存在的表，应使用哪个命令？（）。
A. USE 表名 IN 0B. USE 表名 EXCLUSIVEC. BROWSE 表名D. DISPLAY 表名答案：A二、填空题1. 在Visual FoxPro中，__________命令可以用来创建一个新的数据库。
答案：CREATE DATABASE2. 要将一个表中的数据按照某个字段进行排序，可以使用__________命令。
答案：ORDER BY3. 在VFP中，可以使用__________函数来获取用户输入的值。
答案：GET4. 为了在Visual FoxPro中设置一个计时器，需要使用__________控件。
答案：Timer5. 若要在VFP表单中显示一条欢迎信息，可以在表单的__________事件中编写代码。
答案：INITIALIZE三、判断题1. 在Visual FoxPro中，所有的数据都存储在表（tables）中。
（正确）答案：正确2. 使用BROWSE命令可以对表进行添加、修改和删除操作。
（错误）答案：错误3. Visual FoxPro中的表单（form）是一种用于创建用户界面的控件。
《vfp实验题整理》word版
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. 在文本框中输入小时、分、秒,化成共有多少秒,然后输出之。
vfp考试题目及答案
vfp考试题目及答案一、选择题（每题2分，共20分）1. 在Visual FoxPro中，以下哪个选项是正确的数据类型？A. IntegerB. TextC. DateD. All of the above答案：D2. 使用Visual FoxPro创建表单时，以下哪个控件用于显示文本？A. LabelB. TextBoxC. CheckBoxD. ComboBox答案：A3. 在Visual FoxPro中，如何将一个表的所有记录添加到另一个表中？A. COPY TOB. INSERT INTOC. APPEND FROMD. SELECT INTO答案：C4. Visual FoxPro中，以下哪个函数用于计算字符串的长度？A. LENB. LENGTHC. STRLEND. STRSIZE答案：A5. 在Visual FoxPro中，如何设置表单的标题？A. Form.Caption = "New Title"B. Form.Text = "New Title"C. Form.Title = "New Title"D. = "New Title"答案：C6. Visual FoxPro中，以下哪个命令用于排序记录？A. ORDER BYB. SORTC. INDEX OND. ALL OF THE ABOVE答案：D7. 在Visual FoxPro中，如何将一个字段的值设置为NULL？A. Field.Clear()B. Field.Value = NullC. Field.Nullify()D. Field = Null答案：D8. Visual FoxPro中，以下哪个函数用于将字符串转换为日期？A. CTOD()B. DTOC()C. STRTODATE()D. DATETOSTR()答案：A9. 在Visual FoxPro中，如何使用SQL语句删除表中的记录？A. DELETE FROM table_name WHERE conditionB. REMOVE FROM table_name WHERE conditionC. DROP TABLE table_name WHERE conditionD. DELETE table_name WHERE condition答案：A10. Visual FoxPro中，以下哪个命令用于创建索引？A. CREATE INDEXB. INDEX ONC. SET INDEXD. ALL OF THE ABOVE答案：B二、填空题（每题2分，共20分）1. 在Visual FoxPro中，使用________命令可以打开一个数据库。
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元计费。
vfp练习题(打印版)
vfp练习题（打印版）# VFP练习题（打印版）## 一、选择题1. VFP中，以下哪个选项是用于设置字段的显示格式？A. 显示B. 隐藏C. 格式D. 规则2. 在VFP中，要实现数据的排序，可以使用以下哪个命令？A. `SORT`B. `ORDER`C. `RANK`D. `CLASSIFY`3. VFP中，创建报表时，以下哪个选项是用于设置报表的页眉和页脚？A. `REPORT FORM`B. `REPORT FOOTER`C. `PAGE HEADER`D. `PAGE FOOTER`## 二、填空题4. 在VFP中，使用______命令可以创建一个新的表单。
5. VFP中，要将一个字段的值赋给另一个字段，可以使用______语句。
6. VFP报表设计中，______是用来控制报表的打印格式。
## 三、简答题7. 简述VFP中如何使用SQL语句进行数据查询。
8. 描述VFP中如何实现数据表的连接操作。
## 四、操作题9. 假设有一个名为“学生”的表，包含字段：学号（C型）、姓名（C 型）、年龄（N型）。
请编写VFP命令，实现以下操作：- 显示所有学生的姓名和年龄。
- 按年龄从大到小排序显示所有学生的信息。
10. 给定两个表：“学生”和“课程”，学生表包含字段：学号、姓名；课程表包含字段：课程号、课程名。
请编写VFP命令，实现以下操作：- 将两个表通过学号连接，并显示连接后的所有信息。
## 五、综合应用题11. 设计一个VFP表单，包含以下功能：- 一个文本框用于输入学生姓名。
- 一个按钮，点击后在“学生”表中查找该姓名的学生信息，并在表单上显示。
- 一个命令按钮，用于将输入的姓名添加到“学生”表中。
## 六、编程题12. 编写一个VFP程序，实现以下功能：- 从键盘接收一个数字，判断该数字是奇数还是偶数，并在屏幕上显示结果。
## 七、思考题13. 思考在VFP中如何实现数据的加密和解密操作，并简要描述可能使用的方法。
vfp试题及答案
vfp试题及答案一、单项选择题（每题2分，共10分）1. Visual FoxPro中，用于创建表单的命令是（）。
A. CREATE FORMB. CREATE FORMSC. FORMD. FORMS答案：A2. 在Visual FoxPro中，使用（）命令可以打开一个表。
A. OPEN TABLEB. USEC. BROWSED. DISPLAY答案：B3. 以下哪个选项不是Visual FoxPro的数据类型？（）A. NumericB. CharacterC. DateD. Boolean答案：D4. 在Visual FoxPro中，要将一个表的所有记录显示在屏幕上，可以使用（）命令。
A. LISTB. DISPLAYC. BROWSED. REPORT答案：C5. Visual FoxPro中，用于将数据从一个表复制到另一个表的命令是（）。
A. COPY TOB. INSERT INTOC. SELECT INTOD. APPEND答案：D二、填空题（每题2分，共10分）1. 在Visual FoxPro中，使用________命令可以创建一个新的数据库。
答案：CREATE DATABASE2. 使用________命令可以关闭当前数据库。
答案：CLOSE DATABASE3. ________命令用于在Visual FoxPro中打开一个数据库。
答案：USE4. ________命令用于在Visual FoxPro中关闭一个表。
答案：CLOSE TABLE5. ________命令用于在Visual FoxPro中删除一个表。
答案：DELETE TABLE三、简答题（每题5分，共10分）1. 简述Visual FoxPro中如何使用SQL语句创建表。
答案：在Visual FoxPro中，可以使用CREATE TABLE语句创建表。
例如，CREATE TABLE Students (ID C(5), Name C(20), Age N(3,0))。
vfp基础练习题
vfp基础练习题1. 问题描述：编写一个程序，用Visual FoxPro（VFP）语言实现以下基础练习题。
程序需能够运行并输出正确的结果。
2. 练习一：计算两个数的和与积编写一个VFP程序，要求用户输入两个数字，并输出这两个数字的和与积。
3. 练习二：判断奇偶数编写一个VFP程序，要求用户输入一个数字，然后判断该数字是奇数还是偶数，并输出相应的结果。
4. 练习三：计算圆的面积和周长编写一个VFP程序，要求用户输入圆的半径，计算并输出圆的面积和周长。
公式如下：圆的面积= π * 半径 * 半径圆的周长= 2 * π * 半径5. 练习四：字符串处理编写一个VFP程序，要求用户输入一个字符串，并将字符串反转后输出。
6. 练习五：计算平均成绩编写一个VFP程序，要求用户输入5个成绩，计算这些成绩的平均值，并输出结果。
7. 练习六：判断闰年编写一个VFP程序，要求用户输入一个年份，判断该年份是否为闰年，并输出相应结果。
闰年的判断规则如下：- 若该年份能被4整除但不能被100整除，则为闰年。
- 若该年份能被400整除，则为闰年。
8. 练习七：计算斐波那契数列编写一个VFP程序，要求用户输入一个正整数n，计算并输出斐波那契数列的前n项。
斐波那契数列的定义如下：- 第1项和第2项均为1。
- 从第3项开始，每一项都等于前两项之和。
9. 练习八：查找最大值和最小值编写一个VFP程序，要求用户输入一组数字，然后找出其中的最大值和最小值，并输出结果。
10. 练习九：冒泡排序编写一个VFP程序，要求用户输入一组数字，然后使用冒泡排序对这组数字进行排序，并输出排序后的结果。
以上是VFP基础练习题，希望能帮助您巩固VFP编程的基础知识。
完成这些练习题后，您将对VFP的语法和常用功能有更深入的理解。
继续努力学习，加油！。
vfp常见20道编程题
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数列并输出。
vfp 练习题
vfp 练习题在 Visual FoxPro (VFP) 中进行编程练习是提高技能和熟悉语言特性的重要方式。
本文将提供一些 VFP 练习题，以帮助您巩固对 VFP 的理解并提高编程能力。
以下是一些适合练习的题目和相应的解答。
1. 题目：编写一个 VFP 程序，实现输入两个整数，然后输出它们的和、差、乘积和商。
解答：```PROCEDURE CalculateLOCAL nNum1, nNum2, nSum, nDiff, nProduct, nQuotientINPUTBOX "请输入第一个整数:", "整数输入框", @nNum1INPUTBOX "请输入第二个整数:", "整数输入框", @nNum2nSum = nNum1 + nNum2nDiff = nNum1 - nNum2nProduct = nNum1 * nNum2nQuotient = nNum1 / nNum2"和：" + TRANSFORM(nSum)"差：" + TRANSFORM(nDiff)"乘积：" + TRANSFORM(nProduct)"商：" + TRANSFORM(nQuotient)WAIT WINDOW "按任意键退出..." NOWAITENDPROC```2. 题目：编写一个 VFP 程序，实现输入一组数字，然后输出它们的最大值和最小值。
解答：```PROCEDURE FindMinMaxLOCAL aNumbers, nCount, nMax, nMin, inCount = VAL(SYS(2018))DIMENSION aNumbers[nCount]FOR i = 1 TO nCountINPUTBOX "请输入第 " + TRANSFORM(i) + " 个数字:", "数字输入框", @aNumbers[i]NEXT inMax = aNumbers[1]nMin = aNumbers[1]FOR i = 2 TO nCountIF aNumbers[i] > nMaxnMax = aNumbers[i]ENDIFIF aNumbers[i] < nMinnMin = aNumbers[i]ENDIFNEXT i"最大值：" + TRANSFORM(nMax)"最小值：" + TRANSFORM(nMin)WAIT WINDOW "按任意键退出..." NOWAITENDPROC```通过练习以上题目，您可以熟悉使用 VFP 进行基本的输入输出操作，并对变量的使用和数学运算有更深入的理解。
vfp考试例题和答案
vfp考试例题和答案一、单项选择题1. 在Visual FoxPro中，以下哪个选项是正确的？A. Visual FoxPro是一种数据库管理系统B. Visual FoxPro是一种编程语言C. Visual FoxPro是一种操作系统D. Visual FoxPro是一种网络浏览器答案：A2. Visual FoxPro中，以下哪个选项表示表单的控件？A. FormB. ReportC. LabelD. Table答案：C3. 在Visual FoxPro中，以下哪个函数用于计算字符串的长度？A. LEN()B. STR()C. LEFT()D. RIGHT()答案：A4. 在Visual FoxPro中，以下哪个选项不是数据库对象？A. 表B. 视图C. 索引D. 程序答案：D5. Visual FoxPro中，以下哪个命令用于创建一个数据库？A. CREATE TABLEB. CREATE DATABASEC. USED. SELECT答案：B6. 在Visual FoxPro中，以下哪个选项是正确的SQL语句？A. SELECT * FROM Employees WHERE Age > 30B. SELECT * FROM Employees WHERE Age = 30C. SELECT * FROM Employees WHERE Age < 30D. All of the above答案：D7. Visual FoxPro中，以下哪个函数用于将字符串转换为数值？A. STR()B. VAL()C. NUMERIC()D. INT()答案：B8. 在Visual FoxPro中，以下哪个选项是正确的表单事件？A. ClickB. LoadC. CloseD. All of the above答案：D9. Visual FoxPro中，以下哪个命令用于打开一个表？A. USEB. SELECTC. OPEND. BROWSE答案：A10. 在Visual FoxPro中，以下哪个选项是正确的表单控件事件？A. InitB. ClickC. MouseMoveD. All of the above答案：D二、多项选择题1. 在Visual FoxPro中，以下哪些是有效的数据类型？A. CharacterB. NumericC. DateD. Memo答案：A, B, C, D2. Visual FoxPro中，以下哪些是正确的表单控件？A. Text BoxB. Command ButtonC. Combo BoxD. Grid答案：A, B, C, D3. 在Visual FoxPro中，以下哪些是有效的SQL命令？A. SELECTB. INSERTC. UPDATED. DELETE答案：A, B, C, D4. Visual FoxPro中，以下哪些是正确的程序结构？A. SequenceB. SelectionC. IterationD. All of the above答案：D5. 在Visual FoxPro中，以下哪些是正确的表单事件？A. InitB. LoadC. ClickD. Close答案：A, B, C, D三、填空题1. 在Visual FoxPro中，使用________命令可以关闭当前数据库。
vfp考试题及答案
vfp考试题及答案一、单项选择题（每题2分，共20分）1. 在Visual FoxPro中，以下哪个命令用于打开表单文件？A. OPEN DATABASEB. OPEN FORMC. OPEN TABLED. OPEN REPORT答案：B2. Visual FoxPro中，以下哪个函数用于计算字符串的长度？A. LENB. TYPEC. SPACED. AT答案：A3. 在Visual FoxPro中，以下哪个命令用于关闭数据库？A. CLOSE DATABASEB. CLOSE TABLEC. CLOSE FORMD. CLOSE ALL答案：A4. Visual FoxPro中，以下哪个命令用于创建一个新的数据库？A. CREATE DATABASEB. CREATE TABLEC. CREATE FORMD. CREATE REPORT答案：A5. 在Visual FoxPro中，以下哪个命令用于删除一个表？A. DELETE TABLEB. DROP TABLEC. REMOVE TABLED. CLEAR TABLE答案：B6. Visual FoxPro中，以下哪个函数用于将字符串转换为数值？A. STRB. NUMC. VALD. CTOD答案：C7. 在Visual FoxPro中，以下哪个命令用于设置当前工作目录？A. SET DIRECTORYB. SET PATHC. SET WORKING DIRECTORYD. SET CURRENT DIRECTORY答案：D8. Visual FoxPro中，以下哪个命令用于设置表单的标题？A. SET TITLEB. SET FORM TITLEC. FORM SET TITLED. FORM TITLE答案：A9. 在Visual FoxPro中，以下哪个命令用于查看当前数据库的结构？A. SHOW DATABASEB. DISPLAY DATABASEC. BROWSED. LIST答案：A10. Visual FoxPro中，以下哪个命令用于执行SQL查询？A. SELECTB. QUERYC. SQLD. EXECUTE SQL答案：D二、填空题（每题2分，共20分）1. 在Visual FoxPro中，使用________命令可以查看当前数据库中的表。
vfp程序题(含结果)
一、程序改错题（在参考程序文件夹中从gc1—gc7）1. 下面的程序是求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.程序中有一处错误。
改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFFCLEARX=3Y=0DO WHILE .F.Y=Y+XIF Y>500EXITENDIFSTORE 3*X TO XENDDO?YSET TALK ONRETURN修改后的程序执行结果为：10922. 已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。
改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFFI=20N=0DO WHILE I<=80STORE 0 TO SJ=1DO WHILE J<=IS=S+JJ=J+1ENDDOIF MOD(S,17)=0ENDIFI=I+1ENDDO? NSET TALK ONRETURN修改后的程序执行结果为：123. 计算S=1*5*9*13*...*k，直到累乘数k>=25中止。
程序中有错误。
改正后运行程序，将程序执行结果填入答案框内。
SET TALK OFFCLEARs=0k=1DO WHILE .T.s=s*kIF k>=25EXITENDIFk=k+4ENDDO?sRETURN修改后的程序执行结果为：52211254. 下面的程序是求1到500的偶数立方和与奇数立方和之差。
程序中有一处错。
更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。
SET TALK OFFSTORE 0 TO I,S1,S2DO WHILE I<=500IF MOD(I,2)=0S1=S1+I*I*IELSES2=S2+I*I*IENDIFENDDO? S1-S2SET TALK ONRETURN修改后的程序执行结果为：626875005. 程序求能被3整除且至少有一位数字为5的三位数的个数。
1-精选VFP常见编程实例-答案
精选VFP常见编程实例-答案1、1-100的累加求1到100的累加值CLEARs=0i=1DO WHILE i<=100s=s+ii=i+1 &&一定记住先累加后循环ENDDOsRETURN2、阶乘求5的阶乘CLEARj=1i=1DO WHILE i<=5j=j*ii=i+1ENDDOjRETURN3、求阶乘和求1至5的阶乘和CLEARs=0i=1j=1DO WHILE i<=5j=j*is=s+ji=i+1ENDDOsRETURN4、条件定位查询定位记录指针在赵伟上CLEARUSE 学生LOCATE FOR 姓名="赵伟"IF FOUND()DISPLAYELSECANCELENDIFCONTINUE5、用scan语句查询定位用scan语句查询定位记录在赵伟上CLEARSCAN FOR 姓名="赵伟"DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来把年龄小于30岁的人显示出来CLEARSCAN FOR 年龄<30DISPLAYENDSCANRETURN7、查找男性职工查找男性职工CLEARLOCATE FOR 性别="男"DO WHILE FOUND()DISPLAYCONTINUEENDDORETURN查找男性职工CLEARLOCATE FOR 性别="男"DO WHILE NOT EOF()DISPLAYCONTINUEENDDORETURN查找男性职工CLEARUSE 职员基本信息表LOCATE FOR 性别="男"DO WHILE .t.IF FOUND() thenDISPLAYELSE&&记住最后一个ELSE语句后面不需要条件表达式CANCELENDIFCONTINUEENDDO查找男性职工set talk offclearopen database 家庭成员管理.dbcuse stu.dbfscan for not eof()if xb="女"skipelsedisplayskipendifendscanclose databaseuseset talk onreturn8、新值换旧值有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore 1 to a,bi=3do while i<=12c=a+ba=bb=ci=i+1enddo"一年共出生兔子：",creturn9、多位整数各个位数相加CLEARs=0input "请输入一个多位整数:" to aDO WHILE a<>0s=s+MOD(a,10) &&将a取余正好是个位上的数a=INT(a/10) &&将a除10取整正好是除个位之后的数ENDDO"这个整数的各个位数之和是：",sRETURN10、找100-999之间的“水仙花数”CLEARFOR i=100 TO 999a=INT(i/100)b=INT((i-100*a)/10)c=i-INT(i/10)*10IF i=a^3+b^3+c^3?iENDIFENDFORRETURN11、判断一个大于3的数是否为素数CLEARinput "请输入一个数(>=3):" to sf=0i=2DO WHILE i<=INT(SQRT(s))IF MOD(s,i)<>0i=i+1LOOPELSEf=1EXITENDIFENDDOIF f=0?str(s,3)+"是素数"ELSE f=1&&这个表达式可有可无，为了省事完全省略也可以。
vfp编程题练习及参考答案-一定要看
这是以往的考试题第一套编程题参考答案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并输出，最后按原文件名存盘。
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。
VFP编程题参考(2)
Visual FoxPro编程题参考题解1.编程序求出1-200以内的能被7整除的数的平方和。
377986s=0for I=1 to 200if mod(I,7)<>0loopendifs=s+I*Iendfor?”s=”,s2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是 0~9之间的一位整数。
6n=0for I=1 to 9for j=0 to 9for k=1 to 9if (I*100+j*10+k)+(k*100+j*10+i)=1333n=n+1endifendforendforendfor?n3.编程序求1~99的平方根的和并输出结果。
（保留小数点两位）.661.46s=0for I=1 to 99s=s+sqrt(I)ednfor?round(s,2)4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。
其中i、j是1~9之间的一位整数。
25A=0for I=1 to 9for J=1 to 9if (I*10+J)*(J*10+I)=1300A=I*10+JexitEndifEndforIf a<>0Exitendifendfor?A5.编程序求出1~100所有整数的平方和并输出结果。
338350s=0for n=1 to 100s=s+n**endfor?n6.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。
1298515 s=0for n=1001 to 9999 step 2a=int(n/1000)b=int((n-a*1000)/100)c=int((n-a*1000-b*100)/10)d=mod(n,10)w=a+b+c+dif mod(w,25)=0s=s+nendifendfor?s33.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。
vfp考试题及答案
vfp考试题及答案1. 题目：在Visual FoxPro中，如何使用SQL语句创建一个新表？答案：在Visual FoxPro中，可以使用以下SQL语句来创建一个新表：```CREATE TABLE 表名 (字段1 类型1, 字段2 类型2, ...);```例如，创建一个名为“学生”的表，包含“学号”和“姓名”两个字段，可以使用：```CREATE TABLE 学生 (学号 C(10), 姓名 C(20));```2. 题目：在Visual FoxPro中，如何使用SELECT语句查询特定字段？答案：在Visual FoxPro中，可以使用SELECT语句查询特定字段，基本语法如下：```SELECT 字段1, 字段2 FROM 表名 WHERE 条件;```例如，查询“学生”表中所有学生的姓名和学号，可以使用：```SELECT 学号, 姓名 FROM 学生;```3. 题目：在Visual FoxPro中，如何使用UPDATE语句更新表中的记录？答案：在Visual FoxPro中，可以使用UPDATE语句更新表中的记录，基本语法如下：```UPDATE 表名 SET 字段1 = 值1, 字段2 = 值2 WHERE 条件;```例如，更新“学生”表中学号为“001”的学生的姓名为“张三”，可以使用：```UPDATE 学生 SET 姓名 = '张三' WHERE 学号 = '001';```4. 题目：在Visual FoxPro中，如何使用DELETE语句删除表中的记录？答案：在Visual FoxPro中，可以使用DELETE语句删除表中的记录，基本语法如下：```DELETE FROM 表名 WHERE 条件;```例如，删除“学生”表中学号为“002”的学生记录，可以使用：```DELETE FROM 学生 WHERE 学号 = '002';```5. 题目：在Visual FoxPro中，如何使用JOIN语句进行表连接查询？答案：在Visual FoxPro中，可以使用JOIN语句进行表连接查询，基本语法如下：```SELECT 表1.字段1, 表2.字段2 FROM 表1 JOIN 表2 ON 表1.连接字段 = 表2.连接字段;```例如，查询“学生”表和“成绩”表中，学生姓名和对应的成绩，可以使用：```SELECT 学生.姓名, 成绩.分数 FROM 学生 JOIN 成绩 ON 学生.学号 = 成绩.学号;```。
VFP常见编程实例
VFP常见编程实例1、1-100的累加** 求1到100的累加值CLEARs=0i=1DO WHILE i<=100s=s+ii=i+1 &&一定记住先累加后循环ENDDO?sRETURN2、阶乘** 求5的阶乘CLEARj=1i=1DO WHILE i<=5j=j*ii=i+1ENDDO?jRETURN3、求阶乘和** 求1至5的阶乘和CLEARs=0i=1j=1DO WHILE i<=5j=j*is=s+ji=i+1 ENDDO?sRETURN4、条件定位** 查询定位记录指针在赵伟上CLEARUSE 学生LOCATE FOR 姓名="赵伟"IF FOUND()DISPLAYELSECANCELENDIFCONTINUE5、用scan语句查询定位** 用scan语句查询定位记录在赵伟上CLEARSCAN FOR 姓名="赵伟"DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来** 把年龄小于30岁的人显示出来CLEARSCAN FOR 年龄<30DISPLAYENDSCANRETURN7、查找男性职工** 查找男性职工CLEARLOCATE FOR 性别="男"DO WHILE FOUND()DISPLAYCONTINUEENDDORETURN** 查找男性职工CLEARLOCATE FOR 性别="男"DO WHILE NOT EOF()DISPLAYCONTINUEENDDORETURN** 查找男性职工CLEARUSE 职员基本信息表LOCATE FOR 性别="男"DO WHILE .t.IF FOUND() thenDISPLAYELSE&&记住最后一个ELSE语句后面不需要条件表达式CANCELENDIFCONTINUEENDDO** 查找男性职工set talk offclearopen database 家庭成员管理.dbcuse stu.dbfscan for not eof()if xb="女"skipelsedisplayskipendifendscanclose databaseuseset talk onreturn8、新值换旧值** 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore 1 to a,bi=3do while i<=12c=a+ba=bb=ci=i+1enddo?"一年共出生兔子：",creturn9、多位整数各个位数相加** 求多位整数各个位数之和CLEARs=0input "请输入一个多位整数:" to aDO WHILE a<>0s=s+MOD(a,10) &&将a取余正好是个位上的数a=INT(a/10) &&将a除10取整正好是除个位之后的数ENDDO ?"这个整数的各个位数之和是：",sRETURN10、找100-999之间的“水仙花数”CLEARFOR i=100 TO 999a=INT(i/100)b=INT((i-100*a)/10)c=i-INT(i/10)*10IF i=a^3+b^3+c^3?iENDIFENDFORRETURN11、判断一个大于3的数是否为素数CLEARinput "请输入一个数(>=3):" to sf=0i=2DO WHILE i<=INT(SQRT(s))IF MOD(s,i)<>0i=i+1LOOPELSEf=1EXITENDIFENDDOIF f=0?str(s,3)+"是素数"ELSE f=1&&这个表达式可有可无，为了省事完全省略也可以。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Vfp编程例题
1.使用分支结构写出输入出生年，出生月，出生日算出年龄，星座和生肖。
set talk off
clear
publicx,y
set date ymd
input"请输入你的出生年"to n
input"请输入你的出生月"to y
input"请输入你的出生日"to r
if y>=1 and y<=12 and r>=1 and r<=31
a=ctod(str(n,4)+str(y,3)+str(r,3))
l=year(date())-n
s=abs(mod(n,12))
do case
case a>=ctod(str(n,4)-"/01/20") and a<=ctod(str(n,4)-"/02/18")
?"你的星座为：水瓶座"
case a>=ctod(str(n,4)-"/02/19") and a<=ctod(str(n,4)-"/03/20")
?"你的星座为：双鱼座"
case a>=ctod(str(n,4)-"/03/21") and a<=ctod(str(n,4)-"/04/19")
?"你的星座为：白羊座"
case a>=ctod(str(n,4)-"/04/20") and a<=ctod(str(n,4)-"/05/20")
?"你的星座为：金牛座"
case a>=ctod(str(n,4)-"/05/21") and a<=ctod(str(n,4)-"/06/21")
?"你的星座为：双子座"
case a>=ctod(str(n,4)-"/06/22") and a<=ctod(str(n,4)-"/07/22")
?"你的星座为：巨蟹座"
case a>=ctod(str(n,4)-"/07/23") and a<=ctod(str(n,4)-"/08/22")
?"你的星座为：狮子座"
case a>=ctod(str(n,4)-"/08/23") and a<=ctod(str(n,4)-"/09/22")
?"你的星座为：处女座"
case a>=ctod(str(n,4)-"/09/23") and a<=ctod(str(n,4)-"/10/23")
?"你的星座为：天秤座"
case a>=ctod(str(n,4)-"/10/24") and a<=ctod(str(n,4)-"/11/22")
?"你的星座为：天蝎座"
case a>=ctod(str(n,4)-"/11/23") and a<=ctod(str(n,4)-"/12/21")
?"你的星座为：射手座"
case a>=ctod(str(n,4)-"/12/22") and a<=ctod(str(n,4)-"/12/31") or a>=ctod(str(n,4)-"/01/01") and a<=ctod(str(n,4)-"/01/19")
?"你的星座为：摩羯座"
otherwise
?"输入日期格式错误"
endcase
do case
case s=0
?"你属：猴"
case s=1
?"你属：鸡"
case s=2
?"你属：狗"
case s=3
?"你属：猪"
case s=4
?"你属：鼠"
case s=5
?"你属：牛"
case s=6
?"你属：虎"
case s=7
?"你属：兔"
case s=8
?"你属：龙"
case s=9
?"你属：蛇"
case s=10
?"你属：马"
case s=11
?"你属：羊"
endcase
?"你的年龄大约是："+str(l,3)
else
?"输入的日期有误"
endif
set talk on
return
2.用循环语句写出100到999之间的水仙花数（公式153=1^3+5^3+3^3）
set talk off
clear
a=100
do while a<=999
b=int(a/100)
c=mod(int(a/10),10)
d=mod(a,10)
if a=b^3+c^3+d^3
?a
endif
a=a+1
enddo
set talk on
return
3.用循环写出九九乘法表。
set talk off
clear
for x=1 to 9
for y=1 to x
z=x*y
??str(y,1)+"*"+str(x,1)+"="+str(z,2)+" "
endfor
?
endfor
set talk on
return
4.用循环语句写出100以内的素数个数及素数是多少。
set talk off
clear
c=0
for x=2 to 100
i=sqrt(x)
for y=2 to i
ifx%y=0
exit
endif
endfor
if y>i
c=c+1
?x
else
endif
endfor
?"100以内的素数的个数为：",c
set talk on
return
5.输入两个数，并算出其最小公倍数，最大公因数，并询问用户是否继续查询。
set talk off
clear
do while .t.
input"请输入一个正整数："to x
input"请输入一个正整数："to y
l=max(x,y)
for i=l to x*y
if mod(i,x)=0 and mod(i,y)=0
b=i
c=x*y/b
exit
endif
endfor
?"最小公倍数="+alltrim(str(b)),"最大公约数=",alltrim(str(c)) wait "是否要继续查询(Y/N)" windows to a
if upper (a)="N"
exit
endif
enddo
set talk on
return
6.用循环求100到999之间的回文数。
set talk off
clear
n=0
for x=100 to 999
y=mod(x,10)
z=int(x/100)
if y=z
?x
n=n+1
endif
endfor
?"100到999之间的回文数的个数有：",alltrim(str(n))
set talk on
return。