发布时间 : 星期五 文章VFP数据库练习题更新完毕开始阅读
SET TALK OFF CLEAR x = 1 y = 10 DO WHILE x <= 4 s = 1 DO WHILE s <= 2 * x – 1 @ x, y SAY \ y = y + 1 s = s + 1 ENDDO y = 10 – x _______ ENDDO
4．下面程序用于逐个显示TEACHER.DBF中职称为教授的数据记录，请填空。 USE TEACHER DO WHILE .NOT. EOF( ) CLEAR IF 职称 <> \教授\ SKIP ______ ENDIF DISPLAY WAIT \按任意键继续！\ SKIP ENDDO USE
5．有学生数据表STUDENT.DBF，其中“编号”字段(N, 2, 0)的值从1开始连续
排列。以下程序欲按编号的1, 9, 17, 25, … 的规律抽取学生参加比赛，并在屏幕上显示参赛学生编号，请填空。 USE STUDENT DO WHILE .NOT. EOF( ) IF MOD _______ ?? 编号 ENDDO SKIP ENDDO USE
第七部分
一 选择题
1．命令按钮组是__________。 A、控件 B、容器
25
表单程序设计
C、控件类对象 D、容器类对象
2．任何对象都有自已的属性，下列关于属性的叙述中，正确的是_________。 A、属性是对象所具有的固有特性，通常用各种类型的数据来表示。 B、属性是对象所具有的内部特征，通常用各种类型的数据来表示。 C、属性是对象所具有的外部特征，通常用各种类型的数据来表示。 D、属性是对象所具有的固有方法，通常用各种程序代码来表示。 3．下列关于属性、方法、事件的叙述中，错误的是________。 A、事件代码也可以像方法一样被显示调用
B、属性用于描述对象状态、方法用于描述对象的行为 C、新建一个表单时，可以添加新的属性、方法和事件
D、基于同一个类产生的两个对象可以分别设置自已的属性值。 4．下列关于类的叙述中，错误的是__________。 A、类是对象的集合，而对象是类的实例 B、一个类包含了相似对象的特征和行为方法
C、类并不实行任何行为操作，它仅仅表明该怎么做
D、类可以按其定义的属性、事件和方法进行实际的行为操作 5．下列关于事件的叙述中，错误的是_________。 A、VFP中基类的事件可以由用户创建
B、VFP中基类的事件是由系统预先定义好的，不可由用户创建 C、事件是一种事先定义好的特定的动作，由用户或系统激活
D、鼠标的单击、双击、移动和键盘上按键的按下均可激活某个事件。 6．在表单中加入两个命令按钮：Command1和Command2，编写Command1的
Click事件代码如下ThisForm.Parent.Command2.Enabled = .F.，则单击按钮Command1后，执行命令_________。 A、Command1命令按钮不能激活 B、Command2命令按钮不能激活 C、事件代码无法执行 D、命令按钮组中第二个命令按钮不能激活。 7．在表单中加入两个命令按钮Command1和Command2，编写Command1的Click
事件代码如下This.Parent.Command2.Enabled = .F.，则单击Command1后，执行命令_________。
A、Command1命令按钮不能激活 B、Command2命令按钮不能激活 C、事件代码无法执行 D、命令按钮组中第二个命令按钮不能激活。 8．下列关于对象的说法，不正确的是__________。 A、对象是客观世界的任何实体 B、任何对象都有自已的属性和方法 C、不同的对象都具有相同的属性和方法
D、属性是对象所固有的特征，方法是描述对象行为的过程 9．下列选项中属于容器类控件的是 A、标签 B、文本框 C、表单 D、命令按钮
10．在某表单中有一个文本框Text1和一个命令按钮组CommandGroup1，其中，
命令按钮组包含了Command1和Command2两个命令按钮，如果要在命令按钮Command1的某个方法中访问文本框Text1的Value属性值，下列式子中正确的是___________。
A、This.ThisForm.Text1.Value B、This.Parent.Text1.Value C、Parent.Parent.Text1.Value D、This.Parent.Parent.Text1.Value
26
二 程序题
1．创建一个检查输入口令的表单，口
令设定为“SOFTWARE”，允许用户输入三次口令。如果三次输入错误，则显示相关信息，并禁止再次输入口令；如果口令正确，则显示“欢迎使用本系统”字样。 (1)、Label1：Caption属性值为“请
题1图
输入口令：”
Label2：当运行表单时开始状态为不显示任何信息，前两次口令输入错
误时显示“口令错，请重新输入口令”，第三次口令输入错误时显示“对不起，您无权使用本系统”，如果口令输入正确，则显示“欢迎使用本系统”，其Caption的初值应设置为_______。
Text1：用于接受用户输入的口令，当口令三次输入错误时，处于禁用状
态；而且当用户输入口令时，其中的值以“*”号显示，应对该文本框的________属性进行设置。
Command1：当单击该按钮时，检查用户输入口令的正确性以及输入的
次数，当口令三次输入错误时，处于禁用状态，其Caption的属性值为“确定”。
Command2：其Caption属性为“关闭”，单击该按钮时，将关闭该表单。 (2)、编写表单的ACTIVATE事件代码如下： ThisForm.Text1.SetFocus PUBLIC n n = 0
(3)、对Command1的Click事件编写如下代码： a = ? && 将Text1文本框中输入的内容赋给变量a IF ? ? .Label2.Caption = \欢迎使用本系统\ ELSE n = n + 1 IF n = 3 ? .Label2.Caption = \对不起，您无权使用本系统\ ? && 将Text1禁用 ? && 将Command1禁用 ELSE ? .Label2.Caption = \口令错，请重新输入口令\ ThisForm.Text1.Value = \ ThisForm.Text1.SetFocus ENDIF ENDIF
(4)、对命令按钮Command2的Click事件编写的代码应为 ? 。 (5)、若为Command2增加快捷键C，应将其Caption属性改为 ? 。
27
2．创建一个表单，若在Text1中输入一
个除数(整数)，然后点击“开始”按钮，就显示出1~300间能被该除数整除的数(整数)及这些整数之和，并将结果分别在Edit1和Text2中输出；单击“清除”按钮，则清除Text1, Edit1, Text2中的内容。 (1)、在表单上显示文本“输入除数”，应使用 ? 控件。 (2)、创建“开始”按钮，应使用
题2图
? 控件。
(3)、创建Text1，应使用 ? 控件。 (4)、创建Edit1，应使用 ? 控件。
(5)、将对象Text2的Value值设置为 ? 。
(6)、为了完成 “开始”按钮的功能，应使用“开始”按钮的 ? 事件，及编写如下相应的事件代码： FOR i = 1 TO 300 IF ? && 能够整除 ? . Edit1.Value = ? .Edit1.Value + STR(i, 5) Thisform.Text2.Value = ? ENDIF ENDFOR
(7)、编写“清除”按钮的事件代码为_________。
28