VFP编程题类型总结
- 格式:doc
- 大小:146.00 KB
- 文档页数:19
VFP程序考试题型一、表单操作1.按要求在考生文件夹下完成下列操作:1)按下图设计一表单文件formcalc1。
设置表单(名称为form1)标题为“人民币兑换美元”。
2)表单中添加两个标签,设置第一个标签(label1) 标题为“输入人民币”,第二个标签(label2) 标题为“兑换为美元”。
3)添加两个文本框(名称分别为text1和text2),显示美元的文本框(text2)设为只读。
4)表单中添加一个命令按钮,其(名称为command1)的标题为“兑换”,编写“兑换”命令按钮的代码,要求运行表单时,在文本框(text1)中输入人民币后,单击“兑换”命令按钮,算出兑换的的美元(人民币兑换成美元的比例为:1美元=7元人民币),在文本框(text2)中显示结果。
操作完成后将操作结果保存在考生文件夹下。
command1的click代码:thisform.text2.value=val(thisform.text1.value)/82.按要求在考生文件夹下完成下列操作:1)按下图设计一表单文件formdbca12。
设置表单(名称为form1)标题为“人数统计”。
2)在数据环境中添加ygb.dbf。
3)表单中添加两个文本框,(名称分别为text1和text2),显示人数的文本框设为“只读”。
4)表单中添加一个命令按钮(名称为command1)的标题为“统计人数”,编写此命令按钮的代码,要求运行表单时,在在文本框(text1)中输入性别“男”(或“女”),统计文本框(text1)指定性别的人数.将结果显示在文本框(text2)中。
操作完成后将操作结果保存在考生文件夹下。
代码:count for 性别=allt(thisform.text1.value) to xthisform.text2.value=x知识点:VFP部分/表单设计3、按要求在考生文件夹下完成下列操作:1)按下图设计一表单文件formdbca19。
大学生vfp考试题及答案一、选择题1. 在Visual FoxPro(VFP)中,以下哪个选项不是数据库表的完整性规则?A. 实体完整性B. 域完整性C. 参照完整性D. 触发器完整性答案:D2. VFP中,要实现数据的排序,可以使用以下哪个命令?A. SELECTB. ORDER BYC. SORTD. INDEX答案:C3. 在VFP中,以下哪个函数用于计算字符串的长度?A. LEFT()B. RIGHT()C. LEN()D. SPACE()答案:C4. 在VFP中,要创建一个表单,应该使用以下哪个命令?A. CREATE TABLEB. CREATE FORMC. USED. BROWSE答案:B5. VFP中,以下哪个控件用于显示图像?A. LabelB. TextBoxC. Image ControlD. Grid答案:C二、填空题6. 在VFP中,要将一个字段设置为自动增长的编号,应该使用字段属性_________。
答案:AutoIncrement7. 当需要在VFP中实现多表连接查询时,可以使用_________函数。
答案:JOIN8. 在VFP中,要实现对表进行记录的追加操作,应使用的命令是_________。
答案:APPEND9. VFP中,要对表中的记录进行删除操作,应使用的命令是_________。
答案:DELETE10. 在VFP中,要实现对表中数据的局部更新,可以使用_________命令。
答案:UPDATE三、简答题11. 简述在VFP中如何建立一对多关系?答案:在VFP中,建立一对多关系通常涉及两个表。
首先,需要在一个表中创建一个与另一个表的主键相匹配的字段,这个字段称为外键。
然后,通过设置数据库的参照完整性规则来建立关系,确保在子表中引用的每个父表记录都是有效的。
12. 描述在VFP中如何使用报表向导创建一个简单的报表?答案:在VFP中,使用报表向导创建报表的步骤如下:- 打开报表向导。
VFP程序设计题集1、求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。
set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0n=n+xendifendforxset talk onreturn答案:2362、求[10,1000]内所有能同时被7和9整除的整数之和。
set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0s=xendifendforxset talk onreturn答案:75603、求[10,1000]内所有能被6整除但不能被9整除的整数之和。
set talk offclears=0for x=10 to 1000if mod(x,6)=0 or mod(x,9)=0x=s+xendifendforsset talk onreturn答案:554404、求[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。
set talk offclearn=0for x=10 to 1000if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0 n=xendifendfornset talk onreturn答案:1655、求[100,800]内所有既不能被5整除也不能被7的整数的个数。
set talk offclearn=0for x=100 to 800if mod(x,5)=0 and mod(x,7)<>0n=x+1endifendforxset talk onreturn答案:4806、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
set talk offclears=0for x=101 to 299if mod(x,2)=0 and not mod(x,3)=0 and mod(x,5)=0x=s+xendifendforsset talk onreturn答案:186307、求100以内最大的自然数n,使得从1开始的连续n个自然数的倒数之和小于3.5。
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复习题及答案考试题型判断10(10道)选择20(10道)填空10(5空)简答20(5道)程序分析12(3道)编程7(1道)SQL语言21(6道)教材目录1、Visual FoxPro基础2、Visual FoxPro编程基础3、Visual FoxPro编程工具与编程步骤4、赋值与输入/输出5、选择结构程序设计6、循环结构程序设计7、数组8、自定义属性与自定义方法9、表单集与多重表单10、菜单与工具栏11、数据表12、数据库和多表操作13、查询与视图14、关系数据库标准语言SQL15、报表第一章一、数据库的基本概念1、数据、数据处理、数据模型(层次模型、网状模型、关系模型)、实体之间的关系(一对一,一对多,多对多)关系=二维表,关系中的术语:字段(属性)、记录(元组)、域、主关键字(候选关键字)、外部关键字2、数据库(DB)、数据库系统(DBS)、数据库管理系统(DBMS)、数据库应用系统(DBAS)的关系;3、Visual FoxPro是一个32位的使用关系模型的数据库管理系统。
二、Visual FoxPro的概述VFP的发展;VFP的窗口介绍:启动、退出、界面(标题栏、菜单栏、状态栏、主窗口、工具栏、命令窗口)VFP的系统环境设置:“工具”-“选项”,文件默认位置、区域、表单、数据VFP的工作方式:交互式(菜单、命令)和程序方式VFP提供的工具:向导、设计器、生成器三、命令的书写规则1每—命令必须以命令动词开头;2命令动词后面的命令短语可按任意顺序排列,短语之间用空格分隔,空格数任意;3命令一行书写不下时,可以换行,并在分行处加上分号“;”;所有符号都是英文状态下的半角符号;4每行只能书写一条命令;5所有命令和函数均可只写前4个字符,且不分大小写;6—行命令结束后,用Enter键确认并执行,可重复执行。
第二章一、语言基础1、数据类型(13种):类型名称,简写,字节长度;哪些是基本类型,哪些用于表;2、常量与变量:6种基本类型的常量表示变量如何命名和赋值3、表达式与运算符:6种类型的表达式以及运算符4、函数:常用函数的参数、返回值类型1、数据类型13种基本数据类型:可用于字段变量,常量、内存变量、表达式的类型,有:字符型(C,注意英文1位和中文2位,最长254)数值型(N,注意小数点和正负号,最长20)、货币型(Y,注意小数位只有4位,定长8)、日期型(D,定长8位)日期时间型(T,定长8位)逻辑型(L,定长1位)1、数据类型13种其余用于表的数据类型有:浮点型(F,20)、双精度型(B,8)、整型(I,4)、备注型(M,4)、通用型(G,4):备注文件(.fpt)二进制字符型C、二进制备注型M1,常量字符型:“”,‘’,[]数值型:e,-,+,.货币型:$日期型:{^ },连字符可以是/ -,用set mark to改日期时间型:{^ :a|p} ,日期顺序set date to逻辑型: .T.2、变量值可能会发生变化的量,变量是内存中的一个存储单元的位置变量的类型:分为字段变量、内存变量、数组变量和系统变量4种命名规则由数字、字母、汉字、下划线组成只能以字母或下划线开头,不可以包含空格长度1~128字符(自由表的字段名、表的索引标识名长度最多为10个字符)避免使用VFP的保留字2、变量变量的赋值格式1:变量名=<表达式>格式2:store <表达式> to 变量名1,变量名2,…格式3:INPUT “提示” TO <变量名>内存变量的作用范围LOCAL 指定的变量为局部变量PRIVA TE 私有变量PUBLIC 全局变量3数组变量数组:一组内存变量的集合Vfp只能定义一维数组和二维数组声明方式:Public、Local 、{declare/dimension}<数组名>(行数[,列数])例:dime a(4),b(2,3) 特点1)数组各个元素的默认值为.F.2)下标计数从1开始,每个元素可以不是同一类型。
vfp编程练习题VFP(Visual FoxPro)是一种基于对象的数据库管理系统和编程语言,广泛用于数据处理和应用开发。
本文将为你介绍一些VFP编程练习题,帮助你提高VFP编程技能。
练习一:计算器应用程序编写一个简单的VFP应用程序,实现基本的计算器功能。
程序应该有一个用户界面,包括数字按钮和操作符按钮。
用户可以选择数字按钮输入数字,并使用操作符按钮进行加、减、乘、除等运算。
程序应能正确处理用户输入并返回正确的计算结果。
练习二:学生成绩管理系统设计一个学生成绩管理系统,包括学生信息的录入和查询功能。
使用VFP编写程序,能够实现学生信息的添加、修改和删除,以及查询学生的成绩和排名等功能。
你可以使用数据库来存储学生信息,并使用VFP提供的数据库操作函数进行数据的读写。
练习三:图书馆管理系统开发一个简单的图书馆管理系统,能够实现图书的借阅和归还功能。
使用VFP编写程序,设计用户界面,包括图书的添加、删除和查询功能,以及借阅和归还图书的操作。
你可以使用数据库来存储图书和读者的信息,并使用VFP提供的数据库操作函数来管理数据。
练习四:商品销售分析编写一个VFP应用程序,用于对商品销售数据进行分析。
程序应能读取销售数据并对商品的销售情况进行统计和分析,包括销售额、销售量、销售排行等。
通过图形化界面展示分析结果,帮助用户更好地了解商品的销售情况,并提供数据导出等功能。
练习五:音乐播放器使用VFP编写一个简单的音乐播放器程序。
程序应具备基本的音乐播放功能,包括选择音乐文件、播放、暂停、停止等。
你可以使用VFP提供的多媒体函数来实现音乐播放功能,并设计用户界面,提供友好的操作界面和交互体验。
总结:通过完成以上VFP编程练习题,你可以提高自己的VFP编程技能,并熟悉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概述一、选择题1、VisualFoxPro关系数据库管理系统能够实现的三种基本关系运算是()。
A)索引、排序、查找B)建库、录入、排序C)选择、投影、联接D)显示、统计、复制2、在下列四个选项中,不属于基本关系运算的是()A.连接B.投影C.选择D.排序3、按照传统的数据模型分类,数据库系统可分为三种类型()A.大型、中型和小型B.西文、中文和兼容C.层次、网状和关系D.数据、图形和多媒体4、如果一个班只能有一个班长,而且一个班长不能同时担任其它班的班长,班级和班长两个实体之间的关系属于()A.一对一联系B.一对二联系C.多对多联系D.一对多联系5、VisualFoxPro支持的数据模型是()A.层次数据模型B.关系数据模型C.网状数据模型D.树状数据模型6、设有关系R1和R2,经过关系运算得到结果S,则S是()A.一个关系B.一个表单C.一个数据库D.一个数组7、在数据库设计中用关系模型来表示实体和实体之间的联系。
关系模型的结构是()A.层次结构B.二维表结构C.网状结构D.封装结构8、一个数据库系统必须能够表示实体和关系,关系可与(①)实体有关。
实体与实体之间的关系有一对一、一对多和多对多三种,其中(②)不能描述多对多的联系。
A.0个B.1个C.2个或2个以上D.1个或1个以上9、按所使用的数据模型来分,数据库可分为()三种模型。
A.层次、关系和网状B.网状、环状和链状C.大型、中型和小型D.独享、共享和分时10、实体是信息世界中的术语,与之对应的数据库术语为()A.文件B.数据库C.字段D.记录11、层次型、网状型和关系型数据库划分原则是()A.记录长度B.文件的大小C.联系的复杂程度D.数据之间的联系二、填空题1、VisualFoxPro6.0是面向__的程序设计系统。
2、VisualFoxPro6.0集成环境主要包括标题栏_______、_______、________、________、_________。
VFP语言程序设计总结(共5篇)第一篇:VFP语言程序设计总结响水电大函授站《VFP语言程序设计》期末试题班级:学号:姓名:得分:第一部分:计算机基础知识(选择题)1.下列关于个人移动通信的叙述中,错误的是____ A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G)c.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。
2.在下列有关集成电路的叙述中,正确的是。
A.现代集成电路所使用的半导体材料都是硅B.所有的集成电路都是数字集成电路C.Moore定律认为单块集成电路的集成度平均每年翻一番D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件3.与十六进制数AB等值的八进制数是——。
A.253B.254C.171 4.172 4.在下列有关PC机CPU的叙述中,错误的是。
A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPUD.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU 15.在下列有关PC机主板上部件的叙述中,错误的是。
A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是。
A.Cache存储器B.RAM和ROMC.寄存器D.硬盘和优盘7.在下列4种PC机常用I/O接口中,数据传输速率最高的是。
VFP程序设计复习题集一、选择题1. VFP中,以下哪个选项是数据库管理系统(DBMS)的英文缩写?A. SQLB. DBMSC. RDBMSD. ODBC2. 在VFP中,以下哪个命令用于显示当前表单的属性?A. DISPLAYB. SHOW GETC. SHOW WINDOWD. DISPLAY GET3. VFP中,以下哪个函数用于计算两个日期之间的天数差?A. DATE()B. DATEDIFF()C. DATEADD()D. DATEDIFFERENCE()4. 在VFP中,以下哪个属性用于设置表单的标题?A. CaptionB. NameC. TitleD. Label5. VFP中,以下哪个命令用于打开一个表单?A. DOB. DISPLAYC. SHOWD. OPEN二、填空题6. VFP是一种______数据库管理系统。
7. 在VFP中,一个表可以包含多个______,每个字段可以存储不同类型的数据。
8. VFP提供了多种数据类型,包括数值型、字符型、日期型等,其中数值型数据类型用______表示。
9. 在VFP中,可以使用______语句来定义变量的类型和存储的数据。
10. VFP中的表单设计器提供了丰富的控件,如标签、文本框、命令按钮等,这些控件可以通过______属性来设置其显示的文本。
三、简答题11. 简述VFP中表单与报表的区别。
12. 解释VFP中的事件驱动编程是什么,并给出一个简单的例子。
13. 描述VFP中如何使用SQL语句进行数据查询。
14. 说明VFP中如何实现数据的排序和筛选。
15. 阐述VFP中如何使用循环结构进行数据处理。
四、编程题16. 编写一个VFP程序,实现以下功能:输入一个学生的姓名和分数,然后输出该学生的姓名和分数。
17. 编写一个VFP程序,实现对一个班级学生的成绩进行排序,并输出排序后的成绩列表。
18. 设计一个VFP表单,包含文本框、标签和命令按钮,实现用户输入数据后,点击按钮将数据保存到数据库中。
①求和类:1. 计算S=1!+2!+3!+4!+。
+N! S=0K=1INPUT "N=" TO N FOR i=1 TO N K=K*i S=S+K Endfor ?S2.求 33333217531+⋅⋅⋅⋅⋅⋅++++ SUM=0FOR I=1 TO 21 STEP 2 SUM=SUM+I^3 ENDFOR?”SUM=”,SUM3.有一分数序列,求前20项之和 (813583)52312++++M=1 N=2SUM=0FOR I=1 TO 20 TERM=N/M SUM=SUM+TERM X=N N=M+N M=X TERM=N/M ENDFOR ?”SUM=”,SUM4.求Sn=a+aa+aaa+aaaa ……,其中,a 是一个数字,a 的个数为n ,a 和n 由键盘输入 INPUT "输入 a 的值:" TO A INPUT "输入项数n:" TO N SN=0 B=AFOR I=1 TO N SN=SN+A A=A*10+B ENDFOR5. 求e x的台劳级数展开式的前n 项之和(运行时输入x=2.0,n=4))!1(!3!21132-+⋅⋅⋅⋅⋅⋅++++=-n x x x x e n xINPUT “X=” TO XINPUT “N=” TO N SUM=1 P=1FOR I=1 TO N-1 P=P*I T=X^I/P SUM=SUM+TENDFOR?”SUM=”,SUM6.求1*2+3*4+5*6+……21*22 SUM=0FOR I=1 TO 21 STEP 2 SUM=SUM+I*(I+1)ENDFOR?"和为=",SUM (1892)7.通过键盘输入n ,求下列级数的 和:1-1/2+1/3-1/4+…+1/n INPUT TO N S=0 F=1FOR I=1 TO NS=S+F*(-1)^(I-1)/I ENDFOR?S8.计算连续自然数之和,并且显示和刚大于1000的最后一个自然数Sn=1+2+3+4+…+N STORE 0 TO S,NDO WHILE S<=1000 N=N+1S=S+NENDDO ? N9.求1^2+4^2+7^2+…一直加到超过1000为止,输出和数与项数。
I=1 S=0 N=0DO WHILE S<=1000N=N+1 ENDDO ?N ?S10.求1-100之间所有奇数之和 SUM=0FOR I=1 TO 100 STEP 2 SUM=SUM+I ENDFOR? “SUM=”,SUM10.输出100到200之间所有能被5或7整除的整数,并输出他们的和。
SUM=0FOR I=100 TO 200IF MOD(I,10)=5 AND MOD(I,7)=0SUM=SUM+I ?IENDIF ENDFOR?“SUM=”,SUM11.编程输出100~500之间能被7整除的奇数的个数。
N=0FOR I=100 TO 500IF I%7=0 AND I%2=1 N=N+1 ENDIF ENDFOR ? “N=”,N12. 求1/(1*2)+1/(3*4)+1/(5*6)+……+1/(99*100) SUM=0FOR I=1 TO 99 STEP 2SUM=SUM+1/(I*(I+1)) ENDFOR?"SUM=",SUM13.求如下级数前N 项之和(X 和N 的值由键盘输入)nx x x x x n+⋅⋅⋅⋅⋅⋅+++++4321432S=1INPUT TO X INPUT TO N FOR I=1 TO N?“SUM=”,S14.输出3-100之间的所有素数,并求其和。
SUM=0FOR J=3 TO 100 FLAG=.T.FOR I=2 TO SQRT(J) IF MOD(J,I)=0 FLAG=.F. EXIT ENDIF ENDFOR IF FLAG=.T. ?JSUM=SUM+J ENDIF ENDFOR?"奇数之和是:",SUM②方程类1.完成下面分段函数的计算,程序运行时用户从键盘输入一个数值X ,在屏幕上输出Y 值。
⎪⎩⎪⎨⎧<-=>=000022x ifx x if x if x YINPUT "请输入X 值:" TO X IF X>0 Y=X*X ELSEIF X=0 Y=0 ELSEY=-(X*X) ENDIF ENDIF ?Y2.现有一元2次方程 AX^2+BX+C=0 其中A B C 是整数且A 不等于0 若存在实根,则输出“在实数范围内有解” 若不存在实根 则输出“在实数范围内无解”/求解 INPUT TO A INPUT TO BD=B*B-4*A*C IF D>=0?"在实数范围内有解" ELSE?"在实数范围内无解" ENDIF /INPUT TO A INPUT TO B INPUT TO C D=B*B-4*A*C IF D>0X1=(-B+SQRT(D))/(2*A) X2=(-B-SQRT(D))/(2*A) ?X1 ?X2 ELSE IF D>0 X=-B/(2*A) ?"X1=X2=",X ELSE ?"无解" ENDIF ENDIF3.输入一个X 的值,求Y 的值。
Y= ⎪⎩⎪⎨⎧>=-<=<-<10113101121X if X X ifX X if XINPUT TO X DO CASE CASE X<1 Y=X CASE X<10CASE X>=10Y=3*X-11ENDCASE?Y③数组类1. 输入10个数,输出其中小于平均值S的数。
DIME A(10)S=0FOR I=1 TO 10INPUT TO A(I)S=S+A(I)ENDFORS=S/10FOR I=1 TO 10IF A(I)<S??A(I)ENDIFENDFOR2.输入10个数,求其中最大数和最小数。
DIME A(10)FOR I=1 TO 10INPUT “ ENTER A NUMBER:”TO A(I)ENDFORBIG=A(1)SMALL=A(1)FOR I=2 TO 10IF A(I)>BIGBIG=A(I)ENDIFIF A(I)<SMALLSMALL=A(I)ENDIFENDFOR?“THE SMALLEST NUMBER IS”,SMALL?“THE BIGGEST NUMBER IS”,BIG3.输入10个数,求其中最大数和最小数,并确定它们的位置。
DIME A(10)FOR I=1 TO 10INPUT “ ENTER A NUMBER:”TO A(I)BIG=A(1)BP=1SMALL=A(1)SP=1FOR I=2 TO 10IF A(I)>BIGBIG=A(I)BP=IENDIFIF A(I)<SMALLSMALL=A(I)SP=IENDIFENDFOR?“THE PLACE OF THE SMALLEST NUMBER IS”,SP?“THE SMALLEST NUMBER IS”,SMALL?“THE PLACE OF THE BIGGEST NUMBER IS”,BP?“THE BIGGEST NUMBER IS”,BIG4.从键盘输入10 个整数,现从中查找某个数,若查到,输出“YES”,否则输出“NO”。
DIMENSION A(10)FOR I=1 TO 10INPUT "输入10个整数" TO A(I)ENDFORINPUT "输入待查找的整数" TO XFOR I=1 TO 10IF X=A(I)? "YES"EXITENDIFENDFORIF I>10? "NO"ENDIF5.已有按从小到大的顺序排列的10 个数,现输入一个数,要求插入到数列中。
插入后数列仍然按从小到大顺序排列。
DIMENSION A(11)FOR I=1 TO 10INPUT “递增输入10个整数” TO A(I)ENDFORINPUT “任意输入一个整数” TO XFOR I=10 TO 1 STEP -1IF X<A(I)IF I=1A(I)=XELSEA(I+1)=A(I)ENDIFELSEA(I+1)=XEXITENDIFENDFORFOR I=1 TO 11??A(I)ENDFOR?6. 数组A中已存放了10个由小到大排列的数。
现从键盘输入一个数X,要求删除数组中与其相同的数,并将后续的数依次前移,最后输出剩余的数。
(7分)考虑到有重复数的程序如下:DIME A(10)FOR I=1 TO 10INPUT “按递增输入10个数” TO A(I)ENDFORINPUT “输入待删除的数” TO XI=1J=1N=0DO WHILE I<=10IF A(I)<XI=I+1J=J+1ELSEIF A(I)=XI=I+1N=N+1ELSEEXITENDIFENDIFENDDOFOR K=I TO 10A(J)=A(K)J=J+1ENDFORFOR K=1 TO 10-N?A(K)ENDFOR7.输入10个数,按升序排列后输出。
FOR I=1 TO 10INPUT “ ENTER AN INTEGER :” TO A(I)ENDFORFOR I=1 TO 9FOR J=I+1 TO 10IF A(I)>A(J)TEMP=A(I)A(I)=A(J)A(J)=TEMPENDIFENDFORENDFORFOR I=1 TO 10?A(I)ENDFOR 以上是一维数组(数组中只有一个下标)程序举例。
在VFP中,还可以建立二维数组。
定义方法是:DIME A(2,3)第一维代表行,第二维代表列,这样就在内存中开辟了6个连续的存储单元,数组元素的名称分别为:A(1,1) A(1,2) A(1,3)A(2,1) A(2,2) A(2,3) 二维数组的元素赋初值及其处理通常要用二重循环,外循环代表行,内循环代表列。
如:FOR I=1 TO 2FOR J=1 TO 3INPUT TO A(I,J)ENDFORENDFOR二维数组特别适合用来解决矩阵问题。
矩阵中有如下几个术语要掌握:行列相等的矩阵叫方SF=0FOR I=1 TO 6FOR J=1 TO 6IF I=JSZ=SZ+A(I,J)ENDIFIF I+J=7SF=SF+A(I,J)ENDIFENDFORENDFOR? “两条对角线上所有元素之和为”,SZ+SF2.一个四行五列的矩阵,求出其中最大元素的值,以及所在的行号与列号。