VFP程序设计示例与练习一(整除)
VFP常见编程实例及模拟试卷4套
VFP常见编程实例及模拟试卷4套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语句查询定位记录在赵伟上SCAN 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="女"skipelsedisplayendifendscanclose 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+1ELSEf=1EXITENDIFENDDOIF f=0?str(s,3)+"是素数"ELSE f=1 &&这个表达式可有可无，为了省事完全省略也可以。
一级VF程序设计题
一级VF程序设计题库及答案1 编程序求出1-200以内的能被7整除的数的平方和。
377986cleas=0m=0for i=1 to 200if i%7=0m=i^2s=s+mendifendfor?s2 编程序求1~99的平方根的和并输出结果。
（保留小数点两位） 661.46 cleas=0for i=1 to 99s=s+sqrt(i) 中间三步的顺序不可以更改endfor?round(s,2) 保留小数点位数设置，系统默认也为两位4 编程序统计1~1000能被3整除的数的个数。
333cleas=0for n=1 to 1000if n%3=0s=s+1endifendfor?s6 编程序求出1~200所有整数的平方和并输出结果。
2686700cleas=0for n=1 to 200s=s+n^2endfor?s7 编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。
550Clea clears=0 s=0for n=10 to 5000 step 10 for n=1 to 5000s=s+n if n%10=0if s>500 s=s+nexit endifendif if s>500endfor exit?s endif?s8编程序求在3000以内被17或者23整除的正整数数的个数。
299 cleas=0for n=1 to 3000if n%17=0 or n%23=0s=s+1 求个数endifendfor?s11 编程序求出1-100以内的能被3整除的数的平方和。
112761cleas=0for n=1 to 100if n%3=0s=s+n^2endifendfor?s12 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。
334745777cleadime f(36)f(1)=0f(2)=0f(3)=1s=0for n=4 to 36f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s13 编程序求出1-100以内的能被9整除的数的平方和。
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（Visual FoxPro）是一种基于对象的数据库管理系统和编程语言，广泛用于数据处理和应用开发。
本文将为你介绍一些VFP编程练习题，帮助你提高VFP编程技能。
练习一：计算器应用程序编写一个简单的VFP应用程序，实现基本的计算器功能。
程序应该有一个用户界面，包括数字按钮和操作符按钮。
用户可以选择数字按钮输入数字，并使用操作符按钮进行加、减、乘、除等运算。
程序应能正确处理用户输入并返回正确的计算结果。
练习二：学生成绩管理系统设计一个学生成绩管理系统，包括学生信息的录入和查询功能。
使用VFP编写程序，能够实现学生信息的添加、修改和删除，以及查询学生的成绩和排名等功能。
你可以使用数据库来存储学生信息，并使用VFP提供的数据库操作函数进行数据的读写。
练习三：图书馆管理系统开发一个简单的图书馆管理系统，能够实现图书的借阅和归还功能。
使用VFP编写程序，设计用户界面，包括图书的添加、删除和查询功能，以及借阅和归还图书的操作。
你可以使用数据库来存储图书和读者的信息，并使用VFP提供的数据库操作函数来管理数据。
练习四：商品销售分析编写一个VFP应用程序，用于对商品销售数据进行分析。
程序应能读取销售数据并对商品的销售情况进行统计和分析，包括销售额、销售量、销售排行等。
通过图形化界面展示分析结果，帮助用户更好地了解商品的销售情况，并提供数据导出等功能。
练习五：音乐播放器使用VFP编写一个简单的音乐播放器程序。
程序应具备基本的音乐播放功能，包括选择音乐文件、播放、暂停、停止等。
你可以使用VFP提供的多媒体函数来实现音乐播放功能，并设计用户界面，提供友好的操作界面和交互体验。
总结：通过完成以上VFP编程练习题，你可以提高自己的VFP编程技能，并熟悉VFP的应用开发过程。
这些练习涵盖了常见的应用场景，可以帮助你更好地理解和掌握VFP编程。
希望你能够充分利用这些练习题，不断学习和提升自己的编程技能。
VFP程序设计典范例题汇总
clear
input "Enter year number please!" to y
if y%4=0 and y%100<>0 or y%400=0
? y,"is a leap year!"
else
? y,"is not leap year."
Endif
&&运行前单击教学管理数据库
（x<1)
（1≤x＜10)
2．有一函数：
编写程序，输入 x，输出 y 的值。
clear
input "Enter x please!" to x
if x<1
y=x
else
if x<10
y=2*x-1
else
y=3*x-11
,x,'y=',y
y= 2x-1
x
3x-11 （x≥10）
3．编写程序，从键盘输入一个年份，判断它是否闰年。
4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、 “E”。90 分以上为“A”，80～89 分为“B”，70～79 分为“C”，60～69 分为 “D”，60 分以下为“E”。
clear input “请输入一百分制成绩” to cj do case
case cj>=90 ?” A”
Visual FxoPro 程序设计题
1．编写程序，从键盘输入一个日期，查询 STUDENT 表中该日期以后出生的学
生信息并显示在浏览窗口中。
use student
input “请输入某日期:” to rq
*输入时有提示，或 input to rq 输入时无提示，输{^1987-01-01}
vf编程试题集解析
【程序1】题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？1.程序分析：兔子的规律为数列1,1,2,3,5,8,13,21....【程序2】题目：判断101-200之间有多少个素数，并输出所有素数。
1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，则表明此数不是素数，反之是素数。
【程序3】题目：打印出所有的"水仙花数"，所谓"水仙花数"是指一个三位数，其各位数字立方和等于该数本身。
例如：153是一个"水仙花数"，因为153=1的三次方＋5的三次方＋3的三次方。
1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。
【程序4】题目：将一个正整数分解质因数。
例如：输入90,打印出90=2*3*3*5。
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。
(2)如果n <> k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,重复执行第一步。
(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。
【程序5】题目：利用条件运算符的嵌套来完成此题：学习成绩> =90分的同学用A表示，60-89分之间的用B表示，60分以下的用C表示。
1.程序分析：(a> b)?a:b这是条件运算符的基本例子。
【程序6】题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
1.程序分析：利用辗除法。
【程序7】题目：输入一行字符，分别统计出其中英文字母、空格、数字和其它字符的个数。
1.程序分析：利用while语句,条件为输入的字符不为'\n '.【程序8】题目：求s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。
vfp练习题
vfp练习题VFP练习题Visual FoxPro（VFP）是一种用于开发数据库应用程序的编程语言和集成开发环境（IDE）。
它具有强大的数据处理和界面设计功能，被广泛应用于企业级软件开发。
为了提高自己在VFP方面的技能，我们可以通过练习题来加深对VFP的理解和应用。
练习题一：数据表操作1. 创建一个名为"Students"的数据表，包含字段"ID"（整数类型）、"Name"（字符类型）和"Age"（整数类型）。
2. 向"Students"表中插入几条记录，包括不同的ID、姓名和年龄。
3. 编写VFP代码，查询"Students"表中年龄大于等于18岁的学生记录。
4. 编写VFP代码，根据学生的ID更新"Students"表中的姓名。
练习题二：界面设计1. 创建一个窗体，包含一个文本框和一个按钮。
2. 当用户在文本框中输入学生的姓名并点击按钮时，编写VFP代码，在"Students"表中查询并显示该学生的信息。
练习题三：报表生成1. 创建一个报表，显示"Students"表中所有学生的信息。
2. 在报表中添加一个计算字段，计算学生的年龄是否大于等于18岁，并显示"是"或"否"。
3. 在报表中添加一个汇总字段，计算学生的平均年龄。
练习题四：数据分析1. 创建一个名为"Scores"的数据表，包含字段"StudentID"（整数类型）和"Score"（整数类型）。
2. 向"Scores"表中插入几条记录，包括不同的学生ID和分数。
3. 编写VFP代码，查询"Scores"表中每个学生的平均分数，并将结果显示在一个报表中。
vfp数据库程序设计程序示例
vfp数据库程序设计程序示例如何进行VFP数据库程序设计的示例。
请注意，vfp数据库是Visual FoxPro数据库的缩写。
第一步：理解VFP数据库编程的基础知识在进行VFP数据库程序设计之前，我们需要先理解VFP数据库编程的基础知识。
VFP数据库是一种关系型数据库，它使用表格来组织和管理数据。
每个表格包含一系列的字段，并且可以在表格之间建立关系。
VFP数据库还支持SQL查询语言，可以方便地查询和操作数据。
第二步：创建数据库在VFP中创建数据库非常简单。
首先，打开VFP软件，在菜单栏中选择"数据库"，然后选择"新建"。
接下来，为数据库指定一个名称，选择保存位置，并点击"确定"。
数据库创建成功后，我们可以在VFP软件中看到它的图标。
第三步：创建表格在VFP数据库中，表格用于存储和管理数据。
要创建一个表格，首先确保数据库窗口处于活动状态。
然后，在数据库窗口中右键单击，选择"新建"，然后选择"表格"。
接下来，为表格指定一个名称，并定义字段。
在每个字段中，我们可以定义字段名称、字段类型、字段长度以及其他属性。
创建完所有字段后，点击"确定" 完成表格创建。
第四步：插入数据在VFP数据库中插入数据十分简单。
首先，双击要插入数据的表格，打开表格编辑窗口。
然后，在表格编辑窗口中，点击"插入"按钮。
接下来，输入要插入的数据，每个字段占一列，然后点击"确定" 完成数据插入。
可以重复这个过程，插入更多的数据。
第五步：查询数据VFP数据库支持使用SQL查询语言来查询和操作数据。
在VFP软件中的菜单栏中选择"工具"，然后选择"查询"，打开查询编辑器。
在查询编辑器中，我们可以输入SQL查询语句。
例如，要查询某个表格中所有记录的所有字段，可以使用以下SQL查询语句："SELECT * FROM table_name"。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
适用班级：
VFP 程序设计示例与练习（一） ^Q^
1
VFP 程序设计示例与练习一（整除）
1.求[351，432]之间所有既不能被3整除又不能被7整除的整数的个数。
clear
set talk off n=0
for m=351 to 432 if mod(m,3)<>0 and mod(m,7)<>0 n=n+1 endif endfor ?n
set talk on return
2.求[1，500]中能同时满足用3除余2，用5除余3，用7除余2的所有整数之和。
clear
set talk off s=0
for m=1 to 500 if mod(m,3)=2 and mod(m,5)=3 and mod(m,7)=2 s=s+m endif endfor ?s
set talk on return
3.求[1，1000]中能被7或者11整除，但又不能同时被7和11整除的整数的个数。
clear
set talk off n=0
for m=1 to 1000
if (mod(m,7)=0 or mod(m,11)=0) and mod(m,77)!=0 n=n+1 endif endfor ?n
set talk on return
4.求1000以内，同时能被3和7整除的所有自然数之和的平方根。
（按四舍五入精确到小数点后3位）
clear
set talk off s=0
for m=1 to 1000 if mod(m,3)=0 and mod(m,7)=0 s=s+m endif endfor
?round(sqrt(s),2) set talk on return
5.求[1,500]中能被5或9整除的所有自然数的倒数之和。
（按四舍五入精确到小数点后2位）
clear
set talk off s=0
for m=1 to 500 if mod(m,5)=0 or mod(m,9)=0 s=s+1/m endif endfor ?round(s,2) set talk on return
6.求公元1年到公元2006年所有闰年的数目。
set talk off clear n=0 year=1
do while year<=2006
if mod(year,4)=0 and mod(year,100)!=0; or mod(year,400)=0 n=n+1 endif year=year+1 enddo
?“公元1--2006年所有闰年数为：”,n set talk on return
【练习】
1. 求[1，1000]中同时满足用3除余1，用4除余2，用5除余3的整数的个数。
(答案:16)
2. 求[100，400]中满足用5除余1或者用7除余5的所有偶数之和。
(答案:11696)
3. 在[125，521]中,设所有既不能被3整除又不能被7整除的整数之和为S1,所有既能被3整除又能被7整除的所有整数之和为S2,求|S1-S2|。
(答案:67307)
4. 求[11，30]中所有既不能被2整除又不能被3整除的所有整数之积; (答案:770201575)
5. 求9999以内，能被11或者21整除的所有自然数之和的倒数。
（按四舍五入精确到小数点后10位）; (答案:0.0000001489)
6.求公元100年到公元2000年所有能被3整除的闰年的数目. (答案:153)。