VF期末复习题目

数据库

一、

1、为\学生\表在\学号\字段上建立升序主索引，索引名和索引表达式均为学号。 2、为\学生\表的\性别\字段定义有效性规则，规则表达式为：性别$\男女\， 出错提示信息是：\性别必须是男或女\。

3、在\学生\表的\性别\和\年龄\字段之间插入一个\出生日期\字段，数据类型为\日期型\（修改表结构）。

4、用SQL的UPDATE命令将学生\王三风\的出生日期修改为1983年5月1日。

二、

1、在考生文件夹下建立数据库KS7；并将自由表SCOR加入数据库中。 2、按下面给出的表结构。给数据库添加表STUD： 字段字段名类型宽度小数

1 学号字符型 2 2 姓名字符型 8

3 年龄数值型 2 0 4 性别字符型 2 5 院系号字符型 2

3、为表STUD建立主索引，索引名为学号，索引表达式为学号为表SCOR建立普通索引，

索引名为学号，索引表达式为学号。

4、STUD表和SCOR表必要的索引已建立，为两表建立永久性的联系。

三、

1. 在数据库salarydb中建立表dept，表结构如下： 字段名类型宽度

部门号字符型 2 部门名字符型 20

随后在表中输入5条记录，记录内容如下： 部门号部门名

01 制造部 02 销售部 03 项目部 04 采购部 05 人事部

2. 为dept表创建一个主索引(升序)，索引名和索引表达式均是\部门号\。 3. 通过\部门号\字段建立salarys表和dept表间的永久联系。

4. 为以上建立的联系设置参照完整性约束：更新规则为\级联\；删除规则为\限制\；插入规则为\限制\。

四、

1、打开数据库PROD_M及数据库设计器，其中的两个表的必要的索引已经建立，为这两个表建立永久性联系。

2、设置CATEGORY表中\种类名称\字段的默认值为：\饮料\。 3、为PRODUCTS表增加字段：销售价格N(8,2)。

4、如果所有商品的销售价格是在进货价格基础上增加18.98%，计算所有商品的销售价格。

五、

1、在考生文件夹下建立项目STSC_M。 2、把数据库STSC加入到STSC_M项目中。

3、从STUDENT表中查询\金融\系学生信息（STUDENT表全部字段），按学号升序存入新表NEW。

4、使用视图设计器在数据库中建立视图NEW_VIEW： 视图包括STUDENT表全部字段（字段顺序和STUDENT表一样）和全部记录（元组），记录按学号降序排序。

六、

1、在考生文件夹下打开数据库CUST_M，为CUST表建立主索引， 索引名为客户编号，索引表达式为客户编号。

2、CUST表和ORDER1表中必要的索引已经建立，为两表建立永久性联系。 3、为CUST表增加字段：客户等级C(2)，字段值允许为空。

4、为ORDER1表\金额\字段增加有效性规则：金额大于零，否则提示：金额必须大于零。

七、

在考生文件夹下完成如下简单应用：

1. 将order_list1表中的全部记录追加到order_list表中，然后用SQLSELECT语句完成查询：

按总金额降序列出所有客户的客户号、客户名及其订单号和总金额， 并将结果存储到results表中

（其中客户号、客户名取自customer表，订单号、总金额取自order_list表）。 2. 打开form1表单，并按如下要求进行修改（注意：最后保存所做的修改）： (1) 表单中有5个随机排列的命令按钮，

不要移动或改变\基准按钮\位置（否则影响成绩），然后使其他命令按钮与\基准按钮\左部对齐；

(2) 在这组命令按钮的右边添加一个表格控件，并将它的RecordSourceType属性设置为\表\，然后设置另一个相关属性使在表格控件中显示customer表的记录。

八、

1、根据order1表和cust表建立一个查询query1，

查询出公司所在地是\北京\的所有公司的名称、订单日期、送货方式， 要求查询去向是表，表名是query1.dbf，并执行该查询。 2、建立表单my_form，表单中有两个命令按钮，按钮的名称分别为cmdYes和cmdNo， 标题分别为\登录\和\退出\。

程序填空

*第1题

*------------------------------------------------------- *功能:在XSDB.DBF数据表中查找学生王迪，如果找到，则显示： * 学号、姓名、英语，生年月日，否则提示\查无此人！\。 * 请在【】处添上适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】 XM=\王迪\

***********SPACE********** 【?】姓名=XM IF FOUN()

***********SPACE**********

【?】学号, 姓名, 英语, 生年月日 ELSE

? \查无此人！\ENDIF USE

SET TALK ON RETURN

*------------------------------------------------------- *第2题

*------------------------------------------------------- *功能:下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖

* 学金做相应调整：双科90分以上（包括90）的每人增加30元； * 双科75分以上（包括75）的每人增加20元；其他人增加10元。 * 请在【】处添上适当的内容，使程序完整。

*注意：本题中，不允许使用逻辑常量 .T. 和 .F.

*------------------------------------------------------- SET TALK OFF USE XSDB

***********SPACE********** DO WHILE 【?】 DO CASE

CASE 计算机>=90.AND.英语>=90

REPLACE 奖学金 WITH 奖学金+30 CASE 计算机>=75.AND.英语>=75

REPLACE 奖学金 WITH 奖学金+20 ***********SPACE********** 【?】

REPLACE 奖学金 WITH 奖学金+10 ENDCASE

***********SPACE********** 【?】 ENDDO USE

SET TALK ON RETURN

*------------------------------------------------------- *第3题

*------------------------------------------------------- *题目：

*给定程序的功能是：接收从键盘输入的任意10个数，输入的数 *可以是负数。找出其中最大的数和最小的数，最后显示出来。

*填空要求：

*程序中共有三个填空，请在【】处填空，并调试运行。

*（注意：不能删除\此处填空\，不得增加或删减程序行。）

*-------------------------------------------------------

SET TALK OFF CLEAR

INPUT \请输入第一个数：\ZD=X

***********SPACE********** 【?】&&此处填空 FOR I=1 TO 9

INPUT \请输入下一个数：\ IF ZD

***********SPACE********** IF 【?】&&此处填空 ZX=X ENDIF

***********SPACE********** 【?】&&此处填空

?\最大数：\最小数：\SET TALK ON

*------------------------------------------------------- *第4题

*------------------------------------------------------- *功能：以下程序的功能如(图1)。

*-------------------------------------------------------

SET TALK OFF

***********SPACE********** 【?】

***********SPACE********** 【?】 TO N FOR I=0 TO N

***********SPACE********** T=T+【?】 ENDFOR

?\的值是:\SET TALK ON RETURN

*------------------------------------------------------- *第5题

*------------------------------------------------------- *功能:列出XSDB.DBF数据表中法律系学生记录，将结果显示输出。 * 请在【】处添上适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】

DO WHILE .T.

IF 系别=\法律\ DISP ENDIF

***********SPACE********** 【?】

IF EOF()

***********SPACE********** 【?】

ENDIF ENDDO USE

SET TALK ON RETURN

*------------------------------------------------------- *第6题

*------------------------------------------------------- *功能：显示所有100以内的6的倍数的数,并求这些数的和。 * 请在【】处添上适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF I=1

***********SPACE********** 【?】

DO WHILE I<=100

***********SPACE********** IF MOD(【?】)=0 ?I

S=S+I

***********SPACE********** 【?】 I=I+1 ENDDO ? \SET TALK ON RETURN

*------------------------------------------------------- *第7题

*------------------------------------------------------- *功能：以下程序通过键盘输入4个数字，找出其中最小的数。

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】

INPUT \请输入第一个数字\M=X

DO WHILE I<=3

INPUT \请输入数字\***********SPACE********** IF 【?】 M=X ENDIF

***********SPACE********** 【?】 ENDDO

? \最小的数是\SET TALK ON RETURN

*------------------------------------------------------- *第8题

*------------------------------------------------------- *功能：求出1到100之间的奇数积、偶数和。

* 请在【】处添上适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】 s2=1

FOR I=1 to 100

***********SPACE********** IF MOD(i,2)=【?】 s1=s1+I Else

***********SPACE********** S2【?】 ENDIF NEXT

?\奇数积为:\?\偶数和为:\SET TALK ON RETURN

*------------------------------------------------------- *第9题

*------------------------------------------------------- *功能:对表XSDB.DBF中的计算机和英语都大于等于90分以上的学 * 生奖学金进行调整：法律系学生奖学金增加12元、英语系学生 * 奖学金增加15元、中文系学生奖学金增加18元，其他系学生奖 * 学金增加20元。请在【】处添上适当的内容，使程序完整。

*注意：填空时，关键字超过4个字母的，必须用4位缩写表示 *------------------------------------------------------- SET TALK OFF USE XSDB

***********SPACE********** 【?】

DO WHILE FOUN() DO CASE

CASE 系别=\法律\ ZJ=12

CASE 系别=\英语\ ZJ=15

CASE 系别=\中文\ ZJ=18

***********SPACE********** 【?】

ZJ=20 ENDCASE

REPL 奖学金 WITH 奖学金+ZJ ***********SPACE********** 【?】 ENDDO USE

SET TALK ON RETURN

*------------------------------------------------------- *第10题

*------------------------------------------------------- *功能:找出XSDB.DBF中奖学金最高的学生记录并输出。 * 请在【】处添上适当的内容，使程序完整。

*注意：本题中，不允许使用逻辑常量 .T. 和 .F.

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】 MAX=0

***********SPACE********** DO WHILE 【?】 IF MAX<奖学金

***********SPACE********** 【?】

JLH=RECN() ENDIF SKIP ENDDO ?MAX

DISP FOR RECN()=JLH USE

SET TALK ON RETURN

*------------------------------------------------------- *第11题

*-------------------------------------------------------

*功能:依次显示XSDB.DBF数据表中的记录内容。请在【】处添上适当 * 的内容，使程序完整。

*注意：不允许使用逻辑常量 .T. 和 .F.

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】

***********SPACE********** DO WHILE【?】 DISP

***********SPACE********** 【?】 ENDDO USE

SET TALK ON RETURN

*------------------------------------------------------- *第12题

*------------------------------------------------------- *功能:求1到100之间的奇数之和、偶数之和，并将奇数之和 * 存入S1、偶数之和存入S2显示输出。

* 请在【】处添上适当的内容，使程序完整。

*注意：本题中，不允许使用不等于运算符

*------------------------------------------------------- SET TALK OFF i=1

stor 0 to s1,s2 dowhil i<=100

***********SPACE********** if 【?】&&使用mod函数 s1=s1+i

***********SPACE********** 【?】

s2=s2+i endif

***********SPACE********** 【?】 ENDD ?S1,S2

SET TALK ON RETURN

*------------------------------------------------------- *第13题

*------------------------------------------------------- *功能：下面程序是计算1+1+2+2+…+n+n之和的平方根的程序。

*------------------------------------------------------- SET TALK OFF INPUT TO N

***********SPACE********** 【?】

FOR I=1 TO N

***********SPACE********** S=S+【?】 ENDFOR

***********SPACE********** ?\结果是\【?】 RETURN

SET TALK ON

*------------------------------------------------------- *第14题

*-------------------------------------------------------

*功能:求1到50的累加和（S=1+2+3+...+50）并显示。请在【】处添上 * 适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF

***********SPACE********** 【?】 I=1

***********SPACE********** DO WHILE 【?】 H=H+I

***********SPACE********** 【?】 ENDDO ? H

SET TALK ON RETURN

*------------------------------------------------------- *第15题

*------------------------------------------------------- *功能:统计300到600之间（包括300和600）能被3整除的数的个数。 * 请在【】处添上适当的内容，使程序完整。

*------------------------------------------------------- SET TALK OFF GS=0 N=300

***********SPACE********** DO WHILE 【?】 IF MOD(N,3)=0

***********SPACE********** 【?】 ENDIF

***********SPACE********** 【?】 ENDDO

? \到600之间（包括300和600）能被3整除的数的个数为\SET TALK ON RETURN

表单

一、

设计一个名为form5的表单文件其属性如下： 标题：密码判断 高：180 宽：350

表单上有2个标签，标签名分别为：lab1,lab2,caption分别为：密码，结果；字号为20。 表单上还有2个文本框，名字分别为：txt1,txt2，txt1的最大长度为4。 表单上还有1个按钮,标题\确定\。 表单功能：

单击确定按钮，对密码框输入内容进行判断，如果输入值为：\则在结果框中显示“正确”,

否则退出表单，要求用if 语句实现。

二、

--------------------------------------------------------------------- 运行状态

编辑状态

制作如图所示表单。

--------------------------------------------------------------------- 对表单form1进行设置：

(1)加入一个标签控件，标签的文字显示“字体颜色”，宋体，20号字

(2)加入一个选项组控件，选项按钮为3个，分别依次为“红色”、“绿色”、“蓝色”

(3)加入一个命令按钮，标题为“设置”，当选项组选为“红色”，单击“设置”按钮，标签文字 显示为红色；当选项组选为“绿色”，单击“设置”按钮，标签文字显示为绿色；当选项组选为 “蓝色”，单击“设置”按钮，标签文字显示为蓝色。通过编写命令按钮单击事件来实现， 要求用＇do case……endcase＇语句来实现。

（注：红色为 rgb(255,0,0),绿色为 rgb(0,255,0),蓝色为(0,0,255)）

三、

建立一个名为formaa的表单文件。 要求：

1.表单的数据环境是\运行时自动居中,表单标题为：平均工资调查。 2.表单上有控件如下：

（1）1个标签，标签标题是\调查表\，字为隶书、20号、红色。 （2）1个组合框,名字为默认名字即combo1,数据源的类型是\值\数据源是\教授,副教授,讲师,助教\

（3）1个文本框,名字为默认名字即text1。 （4）1个命令按钮,显示标题为退出。 功能：

1.在组合框中选择某职称,在文本框中显示rsh表中该种职称职工的平均工资。 提示：第一条命令：set talk off

在【1】处补充完成第二条命令（统计平均工资）：average 工资 for 职称=【1】 to x 要求：程序语句写入组合框的click事件中，变量名使用x。 2.单击退出按钮，退出表单。 表单如图：

四、

--------------------------------------------------------------------- 运行状态

编辑状态

制作如图所示表单。

--------------------------------------------------------------------- 设置：

1、设置表单名称为“Form1”，标题为“Form1”。

2、设置命令按钮的名称为“Command1”，标题为“退出”。

3、设置选项按钮组的名称为“Optiongroup1”，将选项按钮组的按钮个数设为2个。 设置选项按钮组的按钮(Option1)的标题为“学生档案系统”。 设置选项按钮组的按钮(Option2)的标题为“学生管理系统”。

要求：

1、单击单选按钮“学生档案系统”时，表单标题为“学生档案系统打开”。 2、单击单选按钮“学生管理系统”时，表单标题为“学生管理系统打开”。 3、单击“退出”按钮释放表单。

4、表单整体效果美观，比例合适。

基本属性：

1、FORM1.HEIGHT=182 2、FORM1.LEFT=62 3、FORM1.TOP=27 4、FORM1.WIDTH=325

本文来源：https://www.bwwdw.com/article/e4qp.html