第6章二级VFP课件幻灯片.pptVIP

③ 编写代码。 编写表单的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 编写Text1的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。 ② 编写代码。 编写Combo1的KeyPress事件代码： LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 IF !EMPTY(THIS. DisplayValue) THIS.AddItem (THIS.DisplayValue) THISFORM.Text1.Value = THIS.ListCount ENDIF THIS.SelStart = 0 THIS.SelLength = LEN(ALLT(THIS.Text)) THIS.Tag = N ENDIF RightClick事件： IF THIS.ListCount 0 THIS.RemoveItem (THIS.ListIndex) THIS.Value = 1 THISFORM.Text1.Value = THIS.ListCount ENDIF Valid事件： IF THIS.Tag = Y RETURN .T. ELSE THIS.Tag = Y RETURN 0 ENDIF 【例6-12】“简易抽奖机”，在组合框中输入号码。按下“开始”按钮后，组合框中将不停变换随机得到的号码。单击“停止”按钮，号码停止变动，并得到中奖的号码，如图6-19。 * * 第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所示。 {输出乘积} 输出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 Thisform.text2.value=t