第4章 选择结构程序设计1.ppt

Visual FoxPro 程序设计教程 机械工业出版社同名教材配套电子教案 * 2007 年 7月 4.1 条件表达式 ■ 关系运算符与关系表达式 ■ 逻辑运算符与逻辑表达式 ■ 运算符的优先顺序 4.2 条件选择语句 ■ 单条件选择语句IF ■ 多分支条件选择语句DO CASE 4.3 提供简单选择的控件 ■ 命令按钮组 第 4 章 选择结构程序设计 ■ 选项按钮组 ■ 复选框 4.4 计时器与微调器 ■ 计时器 ■ 微调器 4.4 键盘事件 ■ KeyPress事件 ■ 响应键盘事件 4.1.1 关系运算符与关系表达式 4.1 条件表达式 教学进程 关系运算符有8种：、=、、=、=、、#、 !=、$、= = 逻辑运算符有3种：AND、OR、NOT 4.1.1 逻辑运算符与逻辑表达式 运算符的优先顺序：算术运算符、字符串运算符、 关系运算符、逻辑运算符 4.1.1 运算符的优先顺序 4.2 条件选择语句 单条件选择语法结构： IF〈条件〉 [语句列1] [ELSE [语句列2]] ENDIF 教学进程 教学进程 【例4-2】设计一个验证口令的表单。输入口令时文本框中只显示相同个数的“*”号，如图4-2所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写程序代码。图4-3 建立界面与设置属性 教学进程 ● 编写关闭按钮Command1的Click事件代码： THISFORM.Release 教学进程 ●编写Text1的Valid事件代码： THISFORM.Command1.TabStop = .F. a = LOWER(THIS.Value) IF a= abcd THISFORM.Label1.Top = THIS.Parent.Top THISFORM.Label1.Caption=欢迎使用本程序！ THISFORM.Command1.TabStop = .T. THIS.Parent.Visible = .F. ELSE MESSAGEBOX(对不起，口令错！请重新输入！,48,口令) THIS.SelStart=0 THIS.SelLength=LEN(RTRIM(THIS.Value)) ENDIF 教学进程 教学进程 【例4-3】求函数值。输入x，计算y的值，其中： 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 根据流程图,可以写出命令按钮Command1的单击（Click）事件代码为： x = val(THISFORM.Text1.Value) IF x = 0 y = 4 * x ELSE y = 15 – 2 * x ENDIF THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength= EN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus THISFORM.Text2.Value = y 教学进程 教学进程 教学进程 ●使用IIF函数 IIf函数的语法结构为： IIf(条件，真部分，假部分) 【例4-4】例4-3中命令按钮Command1的单击（Click）事件代码可以改为： x =val(THISFORM.Text1.Value) y = IIF(x = 0, 4 * x, 15 – 2 * x) THISFORM.Text2.Value = y THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus 教学进程 ● IF语句的嵌套 【例4-5】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 设计步骤如下： (1) 建立应用程序用户界面与设置对象