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

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 2. 下拉组合框 【例6-11】在上例中使用下拉组合框来代替文本框和列表框，实现同样的功能：输入数据，按〈Enter〉键后可添加到列表中，在列表中选定项目，单击鼠标右键可移去选定项，如图6-18所示。 设计步骤如下： ① 表单界面的设计与控件属性的设置参见图6-18。 * * 第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 IF n * m = 0 MESSAGEBOX(两数都不能为0!) RETURN ENDIF IF m n t = m m = n n = t ENDIF r = m % n DO WHILE r != 0 m = n n = r r = m % n ENDDO THISFORM.Text3