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

Visual FoxPro 程序设计教程;4.1 条件表达式 ■ 关系运算符与关系表达式 ■ 逻辑运算符与逻辑表达式 ■ 运算符的优先顺序 4.2 条件选择语句 ■ 单条件选择语句IF ■ 多分支条件选择语句DO CASE 4.3 提供简单选择的控件 ■ 命令按钮组;4.1.1 关系运算符与关系表达式;4.2 条件选择语句;教学进程; (3) 编写程序代码。图4-3 建立界面与设置属性;教学进程;教学进程; 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;;教学进程;教学进程;教学进程;教学进程;多分支条件选择语句DO CASE 语法结构;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;教学进程;\program\files\microsoft\visualstudio\common\graphics\bitmaps\tlbr_w95\lft.bmp \program\files\microsoft\visualstudio\common\graphics\bitmaps\tlbr_w95\ctr.bmp \program files\microsoft\visual studio\common\graphics\bitmaps \tlbr_w95\rt.bmp 最后适当调整按钮的大小与相互位置。与之相仿可以将选项组OptionGroup1改为图形方式，如图4-22所示。;; 设计步骤同上例，只列出增加的部分。 (1) 增加一个复选框控件Check1。 (2) 修改Check1的属性： AutoSize 属性改为：.T. – 真 标题（Caption）改为：修改 值（Value）改为：.T. (3) 编写Check1的Click事件代码： THISFORM.OptionGroup1.Visible = THIS.Value THISFORM.OptionGroup2.Visible = THIS.Value ;2、使用多个复选框;; 设计步骤如下： (1) 选择新建表单，进入表单设计器，增加一个形状控件 Shape1、一个文本框控件Text1、一个标签控件Label1以及三个复选框控件Check1、Check2和Check3。 (2) 设置对象属性。 (3) 编写事件代码。 ●编写表单的Activate事件代码： THIS.Text1.SetFocus ●编写Check1的Click事件代码： THISFORM.Text1.FontBold = THIS.Value ●编写Check2的Click事件代码： THISFORM.Text1.FontItalic = THIS.Value ●编写Check3的Click事件代码： THISFORM.Text1.FontUnderLine = THIS.Value;3、复选框的图形按钮方式;设计步骤如下： (1) 选择新建表单，进入表单设计器，首先增加一个形状控件Shape1，然后在其上增加一个文本框控件Text1、一个标签控件Label1以及五个复选框控件Check1、Check2、Check3、Check4和Check5（参见图4-26）。; (3) 编写事件代码。 ●编写Check1的Click事件代码： THISFORM.Text1.FontBold = THIS.Value ● 编写Check2的Click事件代码： THISFORM.Text1.FontItalic = THIS.Value ●编写Check3的Click事件代码： THISFORM.Text1.FontUnderLine = THIS.Value ●编写Check4的Click事件代码： THISFORM.Text1.FontStrikethru = THIS.Value ●编写Check5的Click事件代码： THISFORM.SetAll(Enabeld