新Visual FoxPro 程序设计教程 教学课件 刘瑞新 第6章.pptVIP

1. 下拉列表框 【例6-10】在文本框输入数据，按回车添加到列表框中，在列表框中选定项目，按回车后可以移去选定项，如图6-17所示。 设计步骤如下： ① 选择新建表单，进入表单设计器，首先增加一个形状Shape1，然后，在其中增加一个文本框Text1、一个组合框Combo1以及两个标签Label1～Label2。 ② 设置Combo1的Style属性为2 – 下拉列表框，其他控件的属性设置参见前面章节。 ③ 编写代码。 编写表单的Activate事件代码： PUBLIC a a = 1 THIS.Text1.SetFocus 编写Text1的事件代码： KeyPress事件： LPARAMETERS nKeyCode, nShIFtAltCtrl IF nKeyCode = 13 IF !EMPTY(THIS.Value) THISFORM.Combo1.AddItem (THIS.Value) THISFORM.Combo1.DisplayValue = THIS.Value ENDIF THIS.SelStart = 0 THIS.SelLength = LEN(RTRIM(THIS.Text)) a = 0 ENDIF Valid事件： IF a = 1 RETURN .T. ELSE a = 1 RETURN 0 ENDIF 编写Combo1的RightClick事件代码： IF THIS.ListIndex 0 THISFORM.Text1.Value = THIS.List(THIS.ListIndex) THIS.RemoveItem (THIS.ListIndex) THIS.Value = 1 ENDIF * * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 第6章 循环结构程序设计 6.1 循环结构语句 6.2 列表框与组合框控件 6.3 页框 6.1 循环结构语句 6.1.1 当型循环命令DO WHILE 想要在某一条件满足时执行循环，可以使用当型循环（DO WHILE）结构。当型循环的N-S流程图，如图6-1所示。 {条件成立时所执行的操作块，即循环体} a块 {该（循环）条件成立吗？} 当 条件 当型循环的语法格式为： DO WHILE 〈条件〉 [〈命令列〉] [EXIT] [LOOP] ENDDO 【例6-1】计算阶乘的程序（图6-2）。非负整数n的阶乘定义如下： 分析：求阶乘n!，可以采用累乘的方法，用变量t来存放累乘的积（初值为1），用变量i来存放“乘数”。i从1开始到n为止。 根据以上分析画出流程图，如图6-3所示。 THISFORM.Text2.Value = t {输出乘积} 输出t {计数器增1} i ← i + 1 {累乘} t ← t × i {当计数器的值不超过n时} 当 i = n {计数器赋初值} i ← 1 {累乘器赋初值} t ← 1 输入n 根据流程图可写出命令按钮的Click事件代码如下。 n = THISFORM.Text1.Value t = 1 i = 1 DO WHILE i = n t = t * i i = i + 1 ENDDO 另外，为了防止数据溢出，限制输入的整数不超过20。为此，编写文本框Text1的事件代码如下：⑴ Valid事件代码： a = THIS.Value IF a 0 OR a 20 MESSAGEBOX(请输入不超过20的非负整数!) THIS.GotFocus RETURN 0 ELSE RETURN .T. ENDIF ⑵ GotFocus事件代码： THIS.SelStart=0 THIS.SelLength=LEN(THIS.Text) 【例6-2】输入两个正整数，求它们的最大公约数。如图6-4所示。 根据此分析画出流程图如图6-5所示。 输出n {输出最大公约数} 求m / n的余数 n ← r m ← n 当 r ≠ 0 求m / n的余数 大数放入m，小数放入n 输入m，n 表单界面的设计参见前面章节，这里给出命令按钮的Click事件代码： m = THISFORM.Text1.Value n = THISFORM.Text2.Value