VisualFoxPro表单设计及答案.docx

VisualFoxPro表单设计及答案.docx

《VisualFoxPro表单设计及答案.docx》由会员分享，可在线阅读，更多相关《VisualFoxPro表单设计及答案.docx（31页珍藏版）》请在冰豆网上搜索。

VisualFoxPro表单设计及答案

四、VF窗体设计共2题（共计45分）

第1题（15.0分）题号:

8

如样张所示设计一个名为Form1的表单，表单上有三个标签（Label1、Label2、Label3），标题分别为“选课系统”、“图书管理系统”、“成绩查询系统”，当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。

Label1:

thisform.label3.caption=t

label2:

thisform.label3.caption=t

label3:

thisform.label2.caption=t

第2题（15.0分）题号:

32

如样张所示设计一个名为Form1的表单，包含一个文本框控件text1和两个按钮command1和command2，按钮的标题分别是“加一操作”和“减一操作”，文本框初始值为0，当单击一次“加一操作”按钮时，文本框中的数值加1。

当单击一次“减一操作”按钮时，文本框中的数值减1。

*Text1:

过程Init

this.value=0

*加一操作

thisform.text1.value=x+1

*减一操作

thisform.text1.value=x-1

第3题（15.0分）题号:

16

如样张所示设计一个名为Form1的表单，有三个标签（Label1、Label2、Label3），分别为金额、存期、到期本息和。

三个文本框（Text1、Text2、Text3）要求根据用户输入的存款额和存期（月），单击“计算”按钮（Command1），显示到期后应得的本息和。

当存期小于12时，利息为1.8‰；当存期大于等于12小于24时，利息为2.5‰；当存期大于等于24小于36时，利息为2.8‰；当存期大于等于36时，利息为3.2‰，计算结果保留两位小数。

*计算

x=val（thisform.text1.value）

y=val（thisform.text2.value）

docase

casey<12andy>=0

x=x*（（1+0.0018）^y）

thisform.text3.value=str（x,10,2）

casey<24andy>=12

x=x*（（1+0.0025）^y）

thisform.text3.value=str（x,10,2）

casey<36andy>=24

x=x*（（1+0.0028）^y）

thisform.text3.value=str（x,10,2）

casey>=36

x=x*（（1+0.0032）^y）

thisform.text3.value=str（x,10,2）

otherwise

thisform.text3.value='存期必须大于等于0'

endcase

return

第4题（15.0分）题号:

30

如样张所示设计一个名为Form1的表单，要求窗体标题为“邮件发送界面”，添加三个标签控件（Label1,Label2,Label3）,标题文本分别是“收件人”，“邮件主题”，“邮件正文”，添加两个文本框控件（text1,text2），一个列表框（List1）。

再添加两个按钮（command1,command2），标题文本分别是“发送”、“退出”。

当用户点击发送按钮时，弹出一个对话框，内容为“你是否确定发送？

”。

当点击退出按钮时，退出表单。

*发送

messagebox（'你是否确定发送？

'）

*退出

releasethisform

第5题（15.0分）题号:

12

如样张所示设计一个名为Form1的表单，该表单的功能是：

有两个标签（Label1、Label2），分别是“小写”和“大写”。

在TEXT1中输入一个小写字母，然后点击“转换”按钮（Command1），就能在TEXT2中输出其大写字母。

单击“清除”按钮（Command2），则清除TEXT1和TEXT2中的内容；单击“退出”按钮（Command3）退出程序。

*转换

ifthisform.text2.value=''

thisform.text2.value=upper（thisform.text1.value）

endif

*清除

thisform.text1.value=''

thisform.text2.value=''

*退出

releasethisform

第6题（15.0分）题号:

22

如样张所示设计一个名称为Form1的表单,求100到500之间能被28整除的数，要求表单上有一个标签（Label1），一个编辑框（Edit1）和两个命令按钮（Command1、Command2），标签的标题属性为“100到500之间能被28整除的数：

”，两个按钮的标题属性分别为“开始”和“退出”。

运行表单时，通过开始按钮控制，在编辑框显示输出结果，点击退出按钮结束表单运行。

*开始

forx=100to500

ifmod（x,28）=0

thisform.edit1.value=thisform.edit1.value+str（x）

endif

endfor

*退出

releasethisform

第7题（15.0分）题号:

28

如样张所示设计一个名为Form1的表单，要求添加一个标签label1，标题文本改为“今天是”；添加一个文本框text1，用来显示系统当前的日期所对应的年份；要求添加一个标签label2，标题文本改为“年”；添加一个文本框text2，用来显示系统当前的日期对应的月份；要求添加一个标签label3，标题文本改为“月”；要求添加一个标签label4，标题文本改为“日”；添加一个文本框text3，用来显示系统当前的日期对应的日期；添加一个命令按钮command1，标题文本改为“显示”，当单击（click）此按钮时文本框会按要求显示；添加一个命令按钮command2，标题文本改为“退出”，当单击（click）此按钮时关闭当前表单。

*显示

thisform.text1.value=year（date（））

thisform.text2.value=month（date（））

thisform.text3.value=day（date（））

*退出

releasethisform

第8题（15.0分）题号:

24

如样张所示设计一个名称为Form1的登陆界面表单，要求表单上有两个标签（Label1、Label2），一个文本框（Text1）和一个命令按钮（Command1），两个标签的标题属性分别为“请输入登陆密码”和“”，命令按钮的标题属性为“关闭”。

运行表单，当文本框输入正确密码“123456”时，第二个标签的标题属性由空值变为“欢迎使用”，当文本框输入为非上述密码时，第二个标签的标题属性由空值变为“对不起，密码错误”。

点击关闭按钮结束表单运行。

（注意：

设置文本框的passwordchar属性为*，使输入密码隐藏）

*text1

ifthisform.text1.value='123456'

thisform.label2.caption='欢迎使用!

'

else

thisform.label2.caption='对不起，密码错误!

'

endif

*关闭

releasethisform

第9题（15.0分）题号:

6

如样张所示设计一个名为Form1的表单，表单上有两个命令按钮（Command1、Command2）、两个文本框（Text1、Text2）和两个标签（Label1、Label2），按钮标题分别为“计算”和“关闭”、两个标签分别显示“请输入N的值”，“N！

=”字样，两个文本框分别用来接收输入的N值和输出N！

。

运行表单，在第一个文本框中输入N的值，单击“计算”按钮计算N！

，并在第二个文框中输出计算结果；单击“关闭”按钮，关闭表单。

*计算

x=val（thisform.text1.value）

fori=i-1to1step-1

x=x*i

endfor

thisform.text2.value=str（x）

return

*关闭

releasethisform

第10题（15.0分）题号:

20

如样张所示设计一个表单，表单名为Form1。

要求添加两个文本框text1和text2，用来分别显示输入的字符串和反向显示的原字符串；添加两个命令按钮command1和command2，标题文本分别改为“反串显示”和“退出”，先在第一个文本框中输入字符，然后单击“反串显示”按钮，这时在第二个文本框中反向显示输入的原字符串，当单击“退出”按钮时退出表单运行界面。

*反串显示

k=len（thisform.text1.value）

m=""

fori=kto1step-1

m=m+substr（x,i,1）

endfor

thisform.text2.value=m

*退出

releasethisform

第11题（15.0分）题号:

26

如样张所示设计表单，文件名为Form1，其中表单标题为“大小写转化”；文本框控件TEXT1实现数据的录入；文本框控件TEXT2完成结果的显示；“转化为小写”按钮（Command1）实现将TEXT1中的内容转为为小写在TEXT2中显示；“转化为大写”按钮（Command2）实现将TEXT1中的内容转为为大写在TEXT2中显示；“退出”按钮（Command3），能实现退出功能。

第13题（15.0分）题号:

10

如样张所示设计一个名为Form1的表单，该表单的功能是：

若在TEXT1中输入一个除数（整数），然后点击＇开始＇按钮（Command1），就能求出1至200之间能被此除数整除的数之和，并将结果在TEXT2中输出。

单击＇清除＇按钮（Command2），则清除TEXT1和TEXT2中的内容；单击＇退出＇按钮（Command3）退出程序。

VISUALFOXPRO期末试题答案

一、选择题

下列各题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）下列程序段的输出结果是

CLEAR

STORE10TOA

STORE20TOB

SETUDFPARMSTOREFERENCE

DOSWAPWITHA,（B）

?

A,B

PROCEDURESWAP

PARAMETERSX1,X2

TEMP=X1

X1=X2

X2=TEMP

ENDPROC

A）1020       B）2020       C）2010       D）1010

 （8）使用调试器调试第（7）小题的程序，如果想在过程SWAP执行时观察X1的值，可以在其中安置一条命令，程序执行到该命令时，系统将计算X1的值，并将结果在调试输出窗口中显示，这条命令的正确写法是：

A）DEBUGOUTX1B）DEBUGX1    C）OUTX1      D）TESTX1

 （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，调用快捷菜单的命令代码DOmymenu.mprWITHTHIS应该放在表单的那个事件中？

A）Destory事件 B）Init事件 C）Load事件 D）RightClick事件

（12）（24）题使用的数据表如下：

当前盘当前目录下有数据库：

学院.dbc，其中有“教师”表和“学院”表。

“教师”表：

职工号 系号 姓名 工资 主讲课程

11020001 01 肖海 3408 数据结构

11020002 02 王岩盐 4390 数据结构

11020003 01 刘星魂 2450 C语言

11020004 03 张月新 3200 操作系统

11020005 01 李明玉 4520 数据结构

11020006 02 孙民山 2976 操作系统

11020007 03 钱无名 2987 数据库

11020008 04 呼延军 3220 编译原理

11020009 03 王小龙 3980 数据结构

11020010 01 张国梁 2400 C语言

11020011 04 林新月 1800 操作系统

11020012 01 乔小廷 5400 网络技术

11020013 02 周兴池 3670 数据库

11020014 04 欧阳秀 3345 编译原理

“学院”表：

系号 系名

01 计算机

02 通信

03 信息管理

04 数学

（13）为“学院”表增加一个字段“教师人数”的SQL语句是

A）CHANGETABLE学院ADD教师人数I

B）ALTERSTRU学院ADD教师人数I

C）ALTERTABLE学院ADD教师人数I

D）CHANGETABLE学院INSERT教师人数I

（14）将“欧阳秀”的工资增加200元SQL语句是

A）REPLACE教师WITH工资=工资+200WHERE姓名=“欧阳秀”

B）UPDATE教师SET工资=工资+200WHEN 姓名=“欧阳秀”

C）UPDATE教师工资 WITH工资+200WHERE姓名=“欧阳秀”

D）UPDATE教师SET 工资=工资+200WHERE姓名=“欧阳秀”

（15）下列程序段的输出结果是

CLOSEDATA

a=0

USE教师

GOTOP

DOWHILE.NOT.EOF（）

IF主讲课程＝"数据结构".OR.主讲课程＝"C语言"

a=a+1

ENDIF

SKIP

ENDDO

?

a

A） 4   B）5   C）6   D）7

（16）  有SQL语句：

SELECT*FROM教师WHERENOT（工资>3000OR工资<2000）

与如上语句等价的SQL语句是

A）SELECT*FROM教师WHERE工资BETWEEN2000AND3000

B）SELECT*FROM教师WHERE工资>2000AND工资<3000

C）SELECT*FROM教师WHERE工资>2000OR工资<3000

D）SELECT*FROM教师WHERE工资<=2000AND工资>=3000

（17）  为“教师”表的职工号字段添加有效性规则：

职工号的最左边三位字符是110，正确的SQL语句是

A）CHANGETABLE教师ALTER职工号SETCHECKLEFT（职工号,3）="110"

B）ALTERTABLE教师ALTER职工号SETCHECKLEFT（职工号,3）="110"

C）ALTERTABLE教师ALTER职工号CHECKLEFT（职工号,3）="110"

D）CHANGETABLE教师ALTER职工号SETCHECKOCCURS（职工号,3）="110"

（18）  有SQL语句

SELECTDISTINCT系号FROM教师WHERE工资>=;

ALL（SELECT工资FROM教师WHERE系号＝"02"）

该语句的执行结果是系号

A）"01"和"02" B）"01"和"03" C）"01"和"04" D）"02"和"03"

（19）  建立一个视图salary，该视图包括了系号和（该系的）平均工资两个字段，正确的SQL语句是：

A）CREATEVIEWsalaryAS系号，AVG（工资）AS平均工资FROM教师;

GROUPBY系号

B）CREATEVIEWsalaryASSELECT系号，AVG（工资）AS平均工资FROM教师;

GROUPBY系名

C）CREATEVIEWsalarySELECT系号，AVG（工资）AS平均工资FROM教师;

GROUPBY系号

D）CREATEVIEWsalaryASSELECT系号，AVG（工资）AS平均工资FROM教师;

GROUPBY系号

（20）删除视图salary的命令是

A）DROPsalaryVIEW   B）DROPVIEWsalary

C）DELETEsalaryVIEW   D）DELETEsalary

（21）有SQL语句：

SELECT主讲课程，COUNT（*）FROM教师GROUPBY主讲课程

该语句执行结果含有记录个数是

A）3   B）4   C）5   D）6

（22）有SQL语句：

SELECTCOUNT（*）AS人数，主讲课程FROM教师GROUPBY主讲课程;

ORDERBY人数DESC

该语句执行结果的第一条记录的内容是

A）4    数据结构    B）3    操作系统

C）2    数据库    D）1    网络技术

（23）  有SQL语句：

SELECT学院,系名,COUNT（*）AS教师人数FROM教师,学院;

WHERE教师.系号=学院.系号GROUPBY学院.系名

与如上语句等价的SQL语句是:

A）SELECT学院.系名，COUNT（*）AS教师人数；

FROM教师INNERJOIN学院;

教师.系号=学院.系号GROUPBY学院.系名

B）SELECT学院.系名，COUNT（*）AS教师人数；

FROM教师INNERJOIN学院；

ON系号GROUPBY学院.系名

C）SELECT学院.系名，COUNT（*）AS教师人数；

FROM教师INNER　JOIN学院；　

ON教师.系号=学院.系号GROUPBY学院.系名

D）SELECT学院.系名，COUNT（*）AS教师人数；

FROM教师INNER　JOIN学院；

ON教师.系号=学院.系号

（24）有SQL语句：

SELECTDISTINCT系号FROM教师WHERE　工资>=;

ALL（SELECT工资FROM教师WHERE系号="02"）

与如上语句等价的SQL语句是

A）SELECTDISTINCT系号FROM教师WHERE工资>=;

（SELECTMAX（工资）FROM教师WHERE系号="02"）

B）SELECTDISTINCT系号FROM教师WHERE工资>=;

（SELECTMIN（工资）FROM教师WHERE系号="02"）

C）SELECTDISTINCT系号FROM教师WHERE工资>=;

ANY（SELECT工资FROM教师WHERE系号="02"）

D）SELECTDISTINCT系号FROM教师WHERE工资>=;

SOME（SELECT工资FROM教师WHERE系号="02"）

（25）题使用SQL语句增加字段的有效性规则，是为了能保证数据的

A）实体完整性 B）表完整性 C）参照完整性 D）域完整性

（26）向项目中添加表单，应该使用项目管理器的

A）“代码”选项卡    B）“类”选项卡

C）“数据”选项卡    D）“文当”选项卡

（27）有关参照完整性的删除规定，正确的描述是

A）如果删除规则选择的是“限制”，则当用户删除父表中的记录时，系统将自动删除子表中的所有相关记录。

B）如果删除规则选择的是“级联”，则当用户删除父表中的记录时，系统将禁止删除子表相关的父表中的记录。

C）如果删除规则选择的是“忽略”，则当用户删除父表中的记录时，系统不负责做任何工作。

D）上面三种说法都不对

（28）有关查询设计器，正确的描述是：

A）“联接”选项卡与SQL语句的GROUPBY短语对应

B）“筛选”选项卡与SQL语句的HAVING短语对应

C）“排序依据”选项卡与SQL语句的ORDERBY短语对应

D）“分组依据”选项卡与SQL语句的JOINON短语对应

（29）使用“调试器“调试程序时，用于显示正在调试的程序文件的窗口是：

A）局部窗口 B）跟踪窗口 C）调用堆栈窗口D）监视窗口

（30）让控件获得焦点，使其成为活动对象的方法是

A）Show  B）Release  C）SetFocus D）GotFocus

（31）下面对表单若干常用事件的描述中，正确的是

A）释放表单时，Unload事件在Destroy事件之前引发

B）运行表单时，Init事件在load事件之前引发

C）单击表单的标题栏，引发表单的Click事件

D）上面的说法都不对

（32）如果文本框的InputMask属性值是#99999，允许在文本框中输入的是

A）+12345  B）abc123  C）$12345  D）abcdef

（33）连编应用程序不能生成的文件是

A）.app文件 B）.exe文件 C）.dll文件 D）.prg文件

二、填空题

 请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

注意：

以命令关键字填空的必须拼写完整。

（1）   在关系模型中，“关系中不允许出现相同元组”的约束是通过【1】实现的。

（2）   在VisualFoxPro中项目文件的扩展名是【2】 。

（3）   使数据库表变为自由表的命令是【3】 TABLE。

（4）   在VisualFoxPro的查询设计器中 【4】选项卡对应的SQL短语是WHERE。

（5）   在VisualFoxPro