VF程序设计经典例题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.对于自由表而言,不能创建的索引类型是____。
vf程序设计复习题
一、余数类1、求1到2000之间的不能被3或5或7整除的整数之和;CLEARS=0 &&求和的变量FOR I=1 TO 2000IF MOD(I,3)<>0 OR MOD(I,5)<>0 OR MOD(I,7)<>0S=S+IENDIFENDFOR?SRETURN2、统计[1000,4000]内所有既能被7整除,且至少有一位数字是6的数的个数;CLEARN=0 &&计数变量FOR I=1000 TO 4000A=I%10 &&个位数字B=INT(I/10)%10 &&十位数字C=INT(I/100)%10 &&百位数字IF I%7=0 AND (A=6 OR B=6 OR C=6)N=N+1ENDIFENDFOR?NRETURN3、求连续N个不是7的倍数的自然数之和,当和是101的倍数时显示最后的自然数。
CLEARS=0FOR N=1 TO 10000000IF S<>0 AND S%101=0EXITENDIFIF N%7<>0S=S+NENDIFENDFOR?”最后的自然数是:”,N-1RETURN4、一个自然数被8除余1,所得的商被8除也余1,再将第二次的商被8除后余7,最后得到一个商为a。
又知这个自然数被17 除余4,所得的商被17除余15,最后得到一个商是a的2倍。
编写程序求这个自然数。
CLEARFOR I=1 TO 10000000000A=INT(INT(INT(I/8)/8)/8)B=INT(INT(I/17)/17)IF I%8=1 AND INT(I/8)%8=1 AND INT(INT(I/8)/8)%8=7 AND I%17=4 AND INT(I/17)%17=15 AND B=2*A?IEXITENDIFENDFORRETURN二、数列类1、设s=1+1/2+1/3+…+1/n, n为正整数。
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考试 程序设计题
1、从键盘上输入3个不同的数,将他们从大到小排序。
请将下列程序填写完整。
(提示:利用三个if…endif语句实现,其中交换时用到的临时内存变量为t)。
set talk offinput "请输入第一个数:" to ainput "请输入第二个数:" to binput "请输入第三个数:" to c**********Program**********if a<bt=aa=bb=tendifif a<ct=aa=cc=tendifif b<ct=bb=cc=tendif********** End **********?a,b,cReturnSet talk on2、求[1,100]内所有能被3或被5整除的数以及个数。
(提示:利用do while语句实现)。
Set talk offclearn=0i=1**********Program**********Do while i<=100IF MOD(i,3)=0 .OR. MOD(i,5)=0**int(i/3) = i/3 .OR. int(i/5) = i/5?? in=n+1Endifi=i+1enddo********** End **********? "满足条件的数的个数为:",nSet talk onReturn3、求自然数5的阶乘。
请将下列程序填写完整。
(用FOR循环语句)SET TALK OFFS = 1M = 1**********Program**********FOR M=1 TO 5S=S*MENDFOR********** End **********? SSET TALK ONRETURN4、从键盘上输入一个数n,计算n的阶乘。
Set talk offInput "请输入n的值:" to NS=1**********Program**********For I=1 to NS=S*IEndfor********** End **********?SSet talk onReturn5、求连乘数1*2*3*4*……,当积大于720时退出程序。
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.0数据库系统是(C )本题1分A、网络模型B、层次模型C、关系模型D、链状模型第17题数据库模型提供了两个映像,它们的作用是(D )本题1分A、控制数据的冗余度B、实现数据的共享C、使数据结构化D、实现数据独立性第18题如果把学生看成实体,某个学生的姓名叫“张三”,则张三应看成是(D)本题1分A、记录型B、记录值C、属性型D、属性值第19题在关系数据库中,实现“表中任意两行不能相同”的约束是靠( B )本题1分A、外码B、属性C、主码D、列第20题对于学生关系S(S#,SN,AGE,SEX),写一条规则,把其中的AGE属性限制在15-30之间,则这条规则属于(D )本题1分A、实体完整性规则B、参照完整性规则C、用户定义的完整性规则D、不属于以上任何一种规则第21题关系数据库中,实现主码标识元组的作用是通过(A )本题1分A、实体完整性规则B、参照完整性规则C、用户自定义的完整性D、属性的值域第22题项目管理器的功能是组织和管理与项目有关的各种类型的( A )本题1分A、文件B、字段C、程序D、数据表第23题在概念模型中,一个实体集合对应于关系模型中的一个(C )本题1分A、元组B、字段C、关系D、属性第24题( A )可以看成是现实世界到机器世界的一个过渡的中间层次本题1分A、概念模型B、逻辑模型C、结构模型D、物理模型第25题“项目管理器”的“数据”选项卡用于显示和管理(A )本题1分A、数据库、自由表和查询B、数据库、视图和查询C、数据库、自由表、查询和视图D、数据库、表单和查询第26题数据库的概念模型独立于( A )本题1分A、具体的机器和DBMSB、E-R图C、信息世界D、现实世界第27题数据模型用来表示实体间的联系,但不同的数据库管理系统支持不同的数据模型。
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结构化程序设计习题(总)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典型题例
4、求s=1/1!+1/2!+1/3!+……+1/10!的值 a=1 s=0 for n=1 to 10 a=a*n s=s+1/a endfor ?s
3、求各位数字(判定水仙花数、回文数等)
设某四位数的各位数字的平方和等于100,问共有多少个这 种四位数? clea n=0 for x=1000 to 9999 a=int(x/1000) b=int(x/100)%10 c=int(x/10)%10 d=mod(x,10) if a*a+b*b+c*c+d*d=100 n=n+1 endif endfor ?n return
【例】铁路托运慢件行李,假设每张火车票托运
行李在50公斤以内时,按每公斤0.5元收费;超过 50公斤时,超过的部分按每公斤加价0.3元计费.
由题意分析
已知:每公斤的费用0.5元,超重的费用0.3元
要输入的量:行李重量为G 要处理的量:G是不是大于50公斤 要输出的量:费用为F 可得到如下计算公式: 当G≤50公斤 费用:F=0.5×G 当G>50公斤 费用: F=0.5×50+(0.5+0.3)×(G-50)
ENDIF
… …
ENDFOR
初值 循环体内 求和:s=0 s=s+i 求积:s=1 s=s*i 求个数:n=0 n=n+1
VF典型题(改错OR填空)
1、能被整除的
求[10,1000]内所有能被被7和9中至少一个数整 除的整数之个数。 set talk off clear s=0 for x=10 to 1000 if mod(x,7)=0 or mod(x,9)=0 n=n+1 endif endfor ?n set talk on return
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)的结果值是()。
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第一章练习题例题例1现实世界中的事物个体在信息世界中称为 _________。
A)实体B)实体集C)字段D)记录例2下列实体类型的联系中,属于多对多联系的是 ______________ 。
A)学生与课程之间的联系B)学校与教师之间的联系C)商品条形码与商品之间的联系D)班级与班长之间的联系例3采用二维表格结构表达实体及实体间联系的数据模型是 __________ 。
A)层次模型B)网状模型C)关系模型D)实体联系模型例4专门的关系运算不包括下列的哪一种运算。
A )连接运算B )选择运算C)投影运算D)并运算例5专门的关系运算中,选择运算是_____________ 。
A)在基本表中选择满足条件的记录组成一个新的关系B)在基本表中选择字段组成一个新的关系C)在基本表中选择满足条件的记录和属性组成一个新的关系D)上述说法都是正确的例6数据库系统与文件系统的主要区别是 _______________ 。
A)数据库系统复杂,而文件系统简单B)文件系统不能解决数据冗余和数据独立性问题,而数据库系统可以解决C)文件系统只能管理程序文件,而数据库系统能够管理各种类型的文件D)文件系统管理的数据量较少,而数据库系统可以管理庞大的数据量例7在Visual FoxPro 6.0中一个项目可以创建________________ 。
A)一个项目文件,集中管理数据和程序B)两个项目文件,分别管理数据和程序C)多个项目文件,根据需要设置D)以上几种说法都不对例8项目管理器中包括的选项卡有_______________ 。
A)数据选项卡、菜单选项卡和文档选项卡B)数据选项卡、文档选项卡和其他选项卡C)数据选项卡、表单选项卡和类选项卡D)数据选项卡、表单选项卡和报表选项卡例9项目管理器中的“关闭”按钮用于_________________ 。
A)关闭项目管理器B)关闭Visual FoxProC)关闭数据库D)关闭设计器例10数据管理技术经历了人工处理阶段、和三个发展阶段。
vf典型程序例题
use 学生
locate for 入校总分>=580
do while .not. eof()
disp
continu
enddo
?'结束'
cancel
*******************************************************************************
USE BOOK
LOCATE FOR ‘foxpro’ $ 书名
IF ! FOUND()
?’没有关于foxpro的图书’
ELSE
DO WHILE ! EOF()
CLEAR
?书名,作者,出版日期
?内容介绍
WAIT “是否继续查找?(Y/N)” TO M
*******************************************************************************
五、查询:locate\seek
有下列表:
book(书名 C(20),作者 C(8),出版日期 D,内容简介 M)
编写程序:查询关于 foxpro 的图书.
for j=1 to 10-i
if a(j)>a(10-i+1)
t=a(10-i+1)
a(10-i+1)=a(j)
a(j)=tndfor
list memo like a
另外可以参看书:P162-163页例 4.45
?’1~100的总和为:’,SUM
使用DO WHILE 实现:
SUM=0
I=1
VF程序设计总复习题及答案
VF程序设计总复习题选择类题1 下列正确的VF操作命令是(B )A、LIST year(出生日期)=1978B、LIST FOR year(出生日期)=1978C、LIST FOR year(“出生日期”)=1978D、LIST FOR year(出生日期)=”1978”2 数据库表字段的默认值保存在___B____文件中。
A、表B、数据库C、项目D、表的索引3 建立索引时, C 字段不能作为索引字段。
A、字符型B、数值型C、备注型D、日期型4 在VisualFoxPro中,表单(Form)是指( D )A、数据库中各个表的清单B、一个表中各个记录的清单C、数据库查询的列表D、窗口界面5 关于关系术语“域”的含义是( D )A、关系表的范围B、记录的个数C、数据项的数量D、属性的取值范围6 表设计器的“字段”选项卡中不可以创建的索引是( C )A、唯一索引B、候选索引 C、主索引 D、普通索引7 如果在运行表单时,要使表单的标题显示“登录窗口”,则可以在Form1的Load事件中加入语句( A )A、THISFORM.CAPTION="登录窗口"B、FORM.CAPTION="登录窗口"C、="登录窗口"D、="登录窗口"8 均为VFP常量的是(A )A、68、“68”、-68、.T.B、{^2000.12.26}、“2000。
12。
26”、{}、“”C、[]、“AA”、0、AAD、.T.、T、”T”、_T9 VisualFoxPro关系数据库管理系统能够实现的三种基本关系运算是( C )A、索引、排序、查找B、建库、录入、排序C、选择、投影、联接D、显示、统计、复制10 一个数据库名为student,要想打开该数据库,应使用命令( B )A、OPEN studentB、OPEN DATA studentC、USE DATA studentD、USE student11要控制两个表中数据的完整性和一致性可以设置"参照完整性",要求这两个表( A )A、是同一个数据库中的两个表B、不同数据库中的两个表C、两个自由表D、一个是数据库表另一个是自由表12 打开VF“项目管理器”的“文档”选项卡,其中包括( D )A、表单(Form)文件B、报表(Report)文件C、标签(Label)文件D、以上三种文件13 在Visual FoxPro中,打开数据库的命令是( A )A、OPEN DATABASE <数据库名>B、USE <数据库名>C、USE DATABASE <数据库名>D、OPEN <数据库名>13 在SQL查询时,使用WHERE子句指出的是( C )A、查询目标B、查询结果C、查询条件D、查询视图14 在当前表单的LABEL1控件中显示系统时间的语句是( A )A、BEL1.CAPTION=TIME()B、BEL1.VALUE=TIME()C、BEL1.TEXT=TIME()D、BEL1.CONTROL=TIME()15 以下关于查询描述正确的是( D )A、不能根据自由表建立查询B、只能根据自由表建立查询C、只能根据库表建查询D、可以根据库表和自由表建查询16 对于XS表,下面 C 命令显示所有女同学记录A、LIST FOR !XBB、LIST FOR XBC、LIST FOR XB=“女”D、LIST FOR XB=.F.17 结构化程序设计的三种基本逻辑结构是( B )A、选择结构、循环结构和嵌套结构B、顺序结构、选择结构和循环结构C、选择结构、循环结构和模块结构D、顺序结构、递归结构和循环结构18 设有部门和职员两个实体,每个职员只能属于一个部门,一个部门可以有多名职员,则部门与职员实体之间的联系类型是( B )A、m:nB、1:mC、m:kD、1:119 对于向数据库添加表, B 说法是不正确的。
VF题及答案 (1)
单选题1.下列数据中是 B."3.1415926”字符型常量。
2.下列变量名中,正确的是___ A.VARNAME3.在下列表达式中,A."Visual"$"Visual FoxPro"的运算结果是逻辑型。
4._ D.LEN( ) 函数返回字符表达式中字符的数目。
5.在Visual FoxPro中,表结构中的逻辑型、日期时间型、备注型的宽度由系统自动给出,它们分别为 B.1,8,46.在表中 B.通用型字段中可以存储图形。
7._ D.ZAP___命令,从表中删除所有记录,只留下表的结构。
8.在使用"表设计器"创建并修改自由表时,不能建立的索引类型为____。
A.主索引9. A.LOCATE .____命令既可以在有索引的表中查询,也可以在无索引的表中查询。
10.文本框对象的NAME属性(对象名)默认值是____。
C.Text111 A.THIS B.THISFORM.____ 关键字,提供了在方法中对当前对象的引用。
12.对于标签控件,设置 A.AutoSize ____属性为.T.(真)时,控件可自动调整大小以容纳标题。
13. B.Image____ 属性,指定需要在控件中显示的位图文件(.BMP),图标文件(.ICO)或通用字段。
14.在文本框(TextBox)控件中,InputMask 属性指定数据的输入格式和显示方式。
如果输入数据为5位整数2位小数,则 InputMask 属性应设置为D.99999.915.当 C.用户按下并释放键盘上某个键____时,KeyPress 事件发生。
16.将鼠标指针放在一个控件上按下并释放鼠标左键, D.Click____事件发生。
17. C.SetFocus方法,为一个控件设置焦点。
18.以下是表单的Activate事件的代码:s=0n=5do while n>0s=s+nn=n-1enddobel1.caption=str(s,2)这段代码执行后,标签Label1的标题为C.15。
二级vf结构化程序设计习题(总)1
二级vf结构化程序设计习题(总)11.进一步理解数据类型、常量、变量、表达式和函数的含义,掌握各种运算符的使用方法、常用函数的功能。
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整除。
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编程题一
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、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
1. 求园的面积(要求判断半径是否合理) CleaInpu ‘r=’ to r If r>0 S=*r*r s Else’半径错误!’ Endif2. 求分段函数Y 的值 CleaInpu ‘x=’If x>0Y=2*x+5 Else If x=0Y=x ElseY=abs(x) Endif Endif y3. 输入一个百分制成绩判断其等级(优/良/中/及格/不及格) CleaInpu ‘cj=’ to cj Do caseCase cj>=90’优’ Case cj>=80’良’ Case cj>=70’中’ Case cj>=60’及格’ Orth’不及格’ Endcase4. 输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格) CleaInpu ‘请输入处理几个人的成绩:’ to n For i=1 to nInpu ‘cj=’ to cj Do case2x +5 x>0 x x=0 | x | x<0Case cj>=90’优’Case cj>=80’良’Case cj>=70’中’Case cj>=60’及格’Orth’不及格’Endcaseendfor5.求S=1+2+3. . . . . .+100CleaS=0For i=1 to 100S=s+iEndfors6.求S=1×2×3. . . . . .×100Cleap=1For i=1 to 100p=p*iEndforp7.求S=1+3+5.. . . . .+99CleaS=0For i=1 to 99 step 2S=s+iEndfors8.求S=1-2+3-4. . . . . .-100CleaS=0For i=1 to 100S=s+(-1)^(i+1)*iEndfors9.求S=1+1/2+2/3+3/5. . . . . .前10项之和CleaS=0A=1B=1For i=1 to 10 S=s+a/b T=a A=b B=t+b Endfor s10. 求S =1!+2!+3!. . . . . .+10! Clea S=0 P=1For i=1 to 10 P=p*i S=s+p Endfor s11. 对学生表中所有入学成绩≥650分的学生免去贷款 CleaUse 学生Scan for 入学成绩>=650 .and. 贷款否=.t. Repl 贷款否 with .f. Endscan Use12. 输出图形CleaFor i=1 to 4 For j=1 to i’*’ Endfor Endfor CleaFor i=1 to 4 For j=1 to 4-i’ ’ &&有一个空格 EndforFor j=1 to 2*i-1’*’* **** * ******* * **** ** ****** ***** ** *** *** ******* *** *** ** **** * ******* * **** *EndforCleaFor i=1 to 4For j=1 to 4-i’’&&有一个空格EndforFor j=1 to i’*’EndforEndfor13.判断一个整数是否素数CleaInpu ‘x=’ to xFor i=2 to x-1If mod(x,i)<>0LoopElseExitEndifEndforIf i>x-1x,’是素数’Elsex,’不是素数’Endif14.判断十个整数是否素数CleaFor j=1 to 10Inpu ‘x=’ to xFor i=2 to x-1If mod(x,i)<>0LoopElseExitEndifEndforIf i>x-1x,’是素数’Elsex,’不是素数’Endif15.找出两个数的大数和小数CleaInpu ‘x=’ to xInpu ‘y’to yIf x>yx,’大’,y,’小’Elsey,’大’,x,’小’Endif16.找出三个数的最大数和最小数CleaInpu ‘x=’ to xInpu ‘y’to yInpu ‘z’to zIf x<yt=xx=yy=tElseIf x<zt=xx=zz=tendifendifif y<zt=yy=zz=tendifx,’是最大数’,z,’是最小数’17.找出十个数的最大数和最小数CleaDime a(10)For i=1 to 10Inpu to a(i)EndforMax=a(1)Min=a(1)For i=2 to 10If max<a(i)Max=a(i)ElseIf min>a(i)Min=a(i)EndifEndifEndformax,min18.找出2×3矩阵中的最大数和最小数cleadime a(2,3)for i=1 to 2for j=1 to 3input ‘a(‘+str(I,2)+’,’+str(j,2)+’)=’to a(I,j) endforendformax=a(1,1)min=a(1,1)for i=1 to 2for j=1 to 3if max<a(I,j)max= a(I,j)elseif min> a(I,j)min= a(I,j)endifendifendforendfor’max=’,max,’min=’,min19.对三个整数从大到小排序ClearInput ‘a=’ to aInput ‘b=’ to bInput ‘c=’ to cIf a<bT=aA=bB=tElseIf a<ct=aA=cc=tendifendifIf b<cT=bA=cc=tendifa,b,c20.对十个整数从大到小排序(用选择法和起泡法两种方法)选择法:ClearDime a(10)For i=1 to 10Input to a(i)EndforFor i=1 to 9Max=a(i)Num=iFor j=i+1 to 10If max<a(j)max=a(j)Num=jEndifEndforIf i<>numt=A(i)a(i)=a(num)a(num)=tEndifEndforFor i=1 to 10a(i),' 'Endfor起泡法:ClearDime a(10)For i=1 to 10Input to a(i)EndforFor i=1 to 9For j=1 to 10-iIf a(j)<a(j+1)t=A(j)a(j)=a(j+1)a(j+1)=tEndifendforEndforEndfor21.输出Fibonacci(斐波那契)数列的前十项ClearDime a(10)a(1)=1a(2)=1For i=3 to 10a(i)=a(i-1)+a(i-2)EndforFor i=1 to 10A(i)Endfor22.输出杨辉三角的前十行ClearDime a(10,10)For i=1 to 10A(I,1)=1A(I,i)=1EndforFor i=3 to 10For j=2 to i-1A(I,j)=a(i-1,j)+a(i-1,j-1)EndforEndforFor i=1 to 10For j=1 to iA(I,j)EndforEndfor23.对2×3矩阵转置CleaDime a(2,3),b(3,2)for i=1 to 2for j=1 to 3input to a(I,j)endforendforfor i=1 to 3for j=1 to 2b(I,j)=a(j,i)endforendforb(I,j)Endforendfor24.求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)Cleafor x=100 to 999a=int(x/100)b=mod(int(x/10),10)c=mod(x,10)if x==a*a*a+b*b*b+c*c*cxEndifendfor25.求100以内的所有完数(即一个数恰好等于除它本身外的所有因子之和)Cleafor i=3 to 100s=0for j=1 to i-1if mod(i,j)==0s=s+jendifendforif i==siendif26.已知三角形的三边(从键盘输入),求其面积(S^2=p(p-a)(p-b)(p-c), p=(a+b+c)/2)Clearinput 'a=' to ainput 'b=' to binput 'c=' to cif a+b>c and a+c>b and b+c>ap=(a+b+c)/2s=sqrt(p*(p-a)*(p-b)*(p-c))selse'三边不能组成三角形'Endif27.求二元方程的根(分三种情况:两个不等实根,两个相等实根,无实根)cleainpu 'a=' to a &&a<>0inpu 'b=' to b &&b<>0inpu 'c=' to ci=b*b-4*a*cif i<0"方程无实根!"elseif i==0r=(-b)/(2*a)"方程有两个相等实数根:",relsex1=(-b+sqrt(i))/(2*a)x2=(-b-sqrt(i))/(2*a)"方程有两个不相等实数根:",x1,x2endifendif28.输入任意一个五位整数,前后对应位置上的数据进行交换重新排列(即逆序排列)(例:25984→48952)cleadime a(5)inpu to ba(1)=int(b/10000)a(2)=mod(int(b/1000),10)a(3)=mod(int(b/100),10)a(4)=mod(int(b/10),10)a(5)=mod(b,10)for i=1 to int(5/2)t=a(i)a(i)=a(6-i)a(6-i)=tendforc=a(1)*10000+a(2)*1000+a(3)*100+a(4)*10+a(5)b,c29.找出一个3x3矩阵的“鞍点”,即该位置上的元素在该行上最大,在该列上最小(也有可能没有鞍点)cleadime a(3,3)flag=.t.for i=1 to 3for j=1 to 3input 'a('+str(I,2)+','+str(j,2)+')=' to a(i,j)endforendforfor i=1 to 3max=a(i,1)col=1for j=2 to 3if max<a(i,j)max=a(i,j)col=jendifendformin=a(1,col)row=1for k=2 to 3if min>a(k,col)min=a(k,col)row=kendifendforif max==mina(row,col),'是鞍点,在',row,'行',col,'列'flag=.f.endifendforif flag==.t.'无鞍点'endif30.求S(n)=a+aa+aaa+...+aaa....aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)cleainpu 'a=' to ainpu 'n=' to ns=0t=afor i=1 to ns=s+tt=a+t*10endfors31.把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案13cleas=0for a=11 to 100for b=11 to 50for c=11 to 20if a+2*b+5*c=100s=s+1endifendforendfornexts32.一只猴子一天从山上摘来一袋桃子,从这天开始,它每天都要把袋中的桃子平分为二堆,吃掉其中的一堆,然后再从剩下的桃中拿出一个解谗,等到第10天,它发现袋中只有一只桃可吃啦,问猴子总共摘了多少桃。