《Visual FoxPro6.0程序设计教程》课件第6章

任务6.1循环结构语句

任务6.2列表框、组合框、页框控件

任务导入

学习目标

任务实施

1.当型循环语句DOWHILE的语法格式

2.当型循环结构的特点

3. DOWHILE语句使用示例

【例6-1】

利用循环语句，求1+2+3+…+100的值。任务6.1循环结构语句

(1)建立应用程序用户接口与设置对象属性，参见图6-1所示。

(2)编写程序代码。

运行程序，结果如图6-1所示。图6-1求1 + 2 + 3 + … + 100的值

【例6-2】

输入一个正整数，判断该数是否为素数。

(1)建立用户接口及设置对象属性，参见图6-2所示。

(2)编写事件代码。

运行程序，结果如图6-2所示。图6-2判断是否为素数

4.步长型循环语句FOR的语法结构

5. FOR循环的执行过程

6. FOR语句使用示例

【例6-3】

利用步长型循环，求1+2+3+…+100的值。

运行结果，与图6-1相同。

【例6-4】

求1!+2!+3!+…+6! 的值。

(1)建立用户接口与设置对象属性，参见图6-3所示。图6-3求1!+2!+3!+…+6!的值

(2)编写命令按钮Command1的Click事件代码为：

s=0

t=1

FORn=1TO6 &&循环条件

t=t*n &&累乘

s=s+t &&累加

ENDFOR

THISFORM.Text1.Value=s &&返回结果

THISFORM.Text1.ReadOnly=.T.

运行程序，结果如图6-3所示。任务导入

学习目标

任务实施

1.列表框的常用属性和方法

列表框(ListBox)显示一个项目列表，用户可以从中选择一项或多项，但不能直接编辑列表框中的数据。

1)列表框的常用属性

列表框的常用属性，见表6-1。任务6.2列表框、组合框、页框控件表6-1常用列表框属性

2)列表框的常用方法

列表框的常用方法，见表6-2。表6-2常用列表框方法

2.列表框使用示例

【例6-5】输出如图6-4所示的“九九”乘法表。

(1)建立应用程序用户接口和设置对象属性。

设计窗体接口，其中List1的属性设置，见表6-3。

其他控件的属性设置参见图6-5所示。图6-4“九九”乘法表表6-3属性设置图6-5设置列表框属性

(2)编写命令按钮Command1的Click事件代码．

运行程序，结果如图6-4所示。

【例6-6】

为小学生编写加减法算术练习程序。计算机连续地随机给出两位数的加减法算术题，要求学生回答，答对的打“√”，答错的打“×”。将做过的题目存放在列表框中备查，并随时给出答题的正确率，如图6-6所示。图6-6加减法算术练习进入窗体设计器，首先增加两个文本框Text1(随机出题)、Text2(用户输入答案)、一个列表框List1(保存做过的题目)、一个命令按钮Command1、一个图像Image1和一个卷标Label1，属性的设置参见图6-7所示。图6-7建立用户接口

(2)编写代码。

运行程序，结果如图6-6所示。

3.利用列表框显示文件目录

利用列表框可以设计显示文件目录的程序，并且可以在目录列表中方便地选定档。

【例6-7】

设计显示文件目录的列表框程序。如图6-8所示，在列表框中选定文件后，单击“打开选定文件”按钮可打开该文件进行查看或编辑。图6-8文件目录列表

(1)进入窗体设计器。增加一个列表框控件List1、一个命令按钮Command1、两个形状Shape1～Shape2、两个标签Label1～Label2和一个文本框Text1，如图6-9所示。

(2)设置List1和Text1的属性，见表6-4。图6-9建立用户接口表6-4属性设置其中，列表框List1的RowSourceType属性设置为“7—挡”时：

List1.List(1)代表驱动器

List1.List(2)代表路径

List1.List(3)是一个分隔行

List1.List(4)是[..]。单击它，则返回到父目录。

其他控件的属性设置，如图6-10所示。图6-10修改窗体中各对象的属性

(3)编写事件代码。

运行窗体，在列表框中选定档，按“打开选定文件”按钮，即可打开一个包含指定文本文件的编辑器，如图6-11所示。图6-11打开选定文件

4.组合框的两种形式

VFP中有两种形式的组合框，即下拉列表框和下拉组合框，通过更改控件的Style属性可选择所需要的形式。

(1)下拉列表框：Style属性值为2的组合框控件。

(2)下拉组合框：Style属性值为0的组合框控件。

常用的组合框属性，见表6-5。表6-5组合框的常用属性

5.下拉列表框

如果需要节省窗体上的空间，并且希望强调当前选定的项，可以使用下拉列表框。

【例6-8】

如图6-12所示，将例6-6“算术练习”中的列表框改为组合框(下拉列表框)。

(1)建立应用程序用户接口与设置对象属性，参见图6-13所示。图6-12使用下拉列表框图6-13建立应用程序用户接口与设置对象属性

(2)编写程序代码。

运行程序，结果如图6-12所示。

6.下拉组合框

下拉组合框看起来就像是在标准的文本框右边加了个下拉箭头，用鼠标单击该箭头就在文本框下打开一个列表。

【例6-9】

在文本框中输入数据，按回车添加到列表框中，在列表框中选定项目，单击鼠标右键可移去选定项，如图6-14所示。图6-14下拉组合框

(1)进入窗体设计器，在其中增加一个文本框Text1、一个组合框Combo1以及4个标签Label1～Label4。

(2)设置Combo1的Style属性为：0–

下拉组合框，其他控件的属性设置参见图6-15所示。

(3)编写代码。

运行程序，结果如图6-14所示。图6-15建立用户接口与修改对象属性

7.页框

为了扩展应用程序的用户接口，常常使用带页框的窗体。

8.带选项卡的页框使用示例

使用页框和页面，可以创建带选项卡的窗体。

进入窗体设计器，首先增加一个页框控件PageFrame1，并修改其PageCount属性为：4，页框架上出现4个页面，如图6-16所示。图6-16在窗体上添加页框控件用鼠标右键单击页框架控件，在快捷菜单中选择“编辑”，或直接在“属性”窗口中选择PageFrame1的Page1对象。然后，在Page1上增加一个形状控件Shape1和一个标签Label1，并修改其属性，如图6-17所示。

用鼠标单击Page2，开始编辑第二页。将Page2的Caption属性改为：进入系统。然后，在Page2上增加一个命令按钮Command1、一个卷标控件Label1和一个形状控件，并修改其属性，如图6-18所示。图6-17编辑第一页图6-18编辑第二页用鼠标单击Page3，开始编辑第三页。将Page3的Caption属性改为：退出。然后，在Page3上增加2个命令按钮Command1～Command2、一个卷标控件Label1和一个形状控件，并修改其属性，如图6-19所示。

用鼠标单击Page4，开始编辑第四页。然后，在Page4上增加一个标签Label1和一个形状控件，并修改其属性，如图6-20所示。图6-19编辑第三页图6-20编辑第四页

(2)编写事件代码。

运行程序，结果如图6-21所示。图6-21页框示例运行结果

9.不带选项卡的页框使用示例

也可以将页框设置为不带选项卡的形式。

【例6-11】

将例6-10中的页框改为不带选项卡的形式，使用选项按钮组控制页面的选择，如图6-22所示。图6-22不带选项卡的页框

(1)打开窗体文件，修改页框架控件PageFrame1的Tabs属