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

1、机械工业出版社同名教材配套电子教案2007 2007 年年 7 7月月 关系运算符有8种：、=、=、#、 !=、$、= = 逻辑运算符有3种：AND、OR、NOT 运算符的优先顺序：算术运算符、字符串运算符、 关系运算符、逻辑运算符【例4-2】设计一个验证口令的表单。输入口令时文本框中只显示相同个数的“*”号，如图4-2所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 编写Text1的Valid事件代码：THISFORM.Command1.TabStop = .F.a = LOWER(THIS.Value)IF a= abcd THISFORM.Label1.To

2、p = 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) 编写程序代码。 根据流

3、程图,可以写出命令按钮Command1的单击（Click）事件代码为：)0(215)0(4xxxxy x = val(THISFORM.Text1.Value)IF x = 0 y = 4 * x ELSE y = 15 2 * xENDIFTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength= EN(THISFORM.Text1.Text)THISFORM.Text1.SetFocusTHISFORM.Text2.Value = y使用IIF函数 IIf函数的语法结构为： IIf(条件，真部分，假部分条件，真部分，假部分)【例4-4】例4-3

4、中命令按钮Command1的单击（Click）事件代码可以改为：x =val(THISFORM.Text1.Value)y = IIF(x = 0, 4 * x, 15 2 * x)THISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus IF语句的嵌套【例4-5】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部

5、分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。(2) 编写程序代码。 根据流程图，可以写出命令按钮Command1的单击（Click）事件代码为：w = THISFORM.Text1.ValueIF w = 50 x = 0.25 * wELSE IF w = 100 x = 0.25 * 50 + 0.35 * (w 50) ELSE x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w 100) ENDIFENDIFTHISFORM.Text

6、2.Value = xTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength = LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus【例4-6】5-5某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物 (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 编写程序，输入购物款数，计算并输出优惠价。 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。x =val(TH

7、ISFORM.Text1.Value)IF x 1000 y = xELSE IF x 2000 y = 0.95 * x ELSE IF x 3000 y = 0.9 * x ELSE IF x 5000 y = 0.85 * x ELSE y = 0.08 * x ENDIF ENDIF ENDIFENDIFTHISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength= LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus(2) 编写程序代码。 根据流程图，可

8、以写出命令按钮Command1的单击（Click）事件代码为：DO CASE CASE条件条件1 语句列语句列1 CASE条件条件2 语句列语句列2 . OTHERWISE 其他语句列其他语句列ENDCASE【例4-7】5-6在例4-6中使用DO CASE语句来计算优惠价，只需将其中命令按钮Command1的Click事件代码改为：x = val(THISFORM.Text1.Value)DO CASE CASE x 1000 y = x CASE x 2000 y = 0.95 * x CASE x 3000 y = 0.9 * x CASE x 5000 y = 0.85 * x OTHE

9、RWISE y = 0.80 * xENDCASETHISFORM.Text2.Value = yTHISFORM.Text1.SelStart = 0THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text)THISFORM.Text1.SetFocus4.3 提供简单选择的控件使用命令按钮组【例4-8】5-7使用命令按钮组的程序。设银行定期存款年利率为：1年期2.25%，2年期2.43%，3年期2.70%，5年期2.88%（不计复利）。今有本金x元，5年以后使用，共有以下6种存法：l存一次5年期。l存一次3年期，一次2年期。l存一次3年期，两次1年期

10、。l存两次2年期，一次1年期。l存一次2年期，三次1年期。l存五次1年期。 分别计算各种存法5年后到期时的本息合计，如图4-12所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写程序代码。 编写表单的Activate事件代码：THIS.Text1.SetFocus DO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a 【例4-9】利用选项组控制例4-8中存款利息的计算，如图4-16。 设计步骤如下： (1) 建立应用程序用户界面 (2) 设置对象属性。 (3) 编写程序代码。 编写选项按钮组O

11、ptionGroup1的Click事件代码： a = val(THISFORM.Text1.Value)x1 = 0.0225x2 = 0.0243x3 = 0.027x5 = 0.0288n = THIS.ValueDO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a CASE n = 2mes = 存存1次次3年期年期,1次次2年期年期 y = (1 + 3 * x3) * (1 + 2 * x2) * aCASE n = 3 mes = 存存1次次3年期年期,2次次1年期年期 y = (1 + 3 * x3) * (1 + x1

12、)2 * aCASE n = 4 mes = 存存2次次2年期年期,1次次1年期年期 y = (1 + 2 * x2)2 * (1 + x1) * a CASE n = 5 mes = 存存1次次2年期年期,3次次1年期年期 y = (1 + 2 * x2) * (1 + x2)3 * a CASE n = 6 mes = 存存5次次1年期年期 y = (1 + x1)5 * aENDCASEmes = mes + ,本息共计本息共计:+ALLT(STR(y,12,2)+元元THISFORM.Label3.Caption = mes【例4-10】利用选项组控制文本的对齐方式与字体，如图4-18

13、。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写程序代码。 编写表单的Activate事件代码： THISFORM.Text1.SetFocus 编写OptionGroup2的Click事件代码：n = THIS.ValueDO CASE CASE n = 1 THISFORM.Text1.FontName = 宋体宋体 CASE n = 2 THISFORM.Text1.FontName = 隶书隶书 CASE n = 3 THISFORM.Text1.FontName = 黑体黑体 CASE n = 4 THISFORM.Text1.FontName

14、 = 楷体楷体_GB2312ENDCASE【例4-11】修改上例中的选项组成图形按钮的形式，如图4-21。 设计步骤同上例，只介绍选项组的修改方法。与修改命令按钮组类似，可以在“选项组生成器”中对各个选项按钮进行修改。下面我们通过属性窗口对选项按钮进行修改。 用鼠标右键单击选项组OptionGroup1，在弹出菜单中选择“编辑”，OptionGroup1的四周出现浅色边界，开始对选项组（容器）中的按钮进行编辑。 依次选中三个按钮Option1Option3，将其标题（Cpation）属性改为：（空），自动大小（AutoSize）属性改为：.F. 假，图片（Picture）属性通过浏览按钮“”进

15、行查找，并分别改为：programfilesmicrosoftvisualstudiocommongraphicsbitmapstlbr_w95lft.bmpprogramfilesmicrosoftvisualstudiocommongraphicsbitmapstlbr_w95ctr.bmpprogram filesmicrosoftvisual studiocommongraphicsbitmaps tlbr_w95rt.bmp 最后适当调整按钮的大小与相互位置。与之相仿可以将选项组OptionGroup1改为图形方式，如图4-22所示。1、使用单个复选框【例4-12】在上例中，增加复选

16、框，控制选项组是否显示，如图4-23所示。 图图4-23 利用复选框控制控件的显示利用复选框控制控件的显示 设计步骤同上例，只列出增加的部分。 (1) 增加一个复选框控件Check1。 (2) 修改Check1的属性： AutoSize 属性改为：.T. 真 标题（Caption）改为：修改 值（Value）改为：.T. (3) 编写Check1的Click事件代码：THISFORM.OptionGroup1.Visible = THIS.ValueTHISFORM.OptionGroup2.Visible = THIS.Value2、使用多个复选框【例4-13】利用复选框来控制输入或输出文本

17、的字体风格，如图4-24所示。 图4-24 控制字体风格 设计步骤如下： (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.

18、Value 编写Check3的Click事件代码： THISFORM.Text1.FontUnderLine = THIS.Value3、复选框的图形按钮方式【例4-14】图形按钮形式的复选框，如图4-25。单击锁定按钮关闭其他复选框，单击修改按钮则开放其他复选框。图图4-25 使用图形按钮形式的复选框使用图形按钮形式的复选框设计步骤如下： (1) 选择新建表单，进入表单设计器，首先增加一个形状控件Shape1，然后在其上增加一个文本框控件Text1、一个标签控件Label1以及五个复选框控件Check1、Check2、Check3、Check4和Check5（参见图4-26）。 图图4-26

19、 设计按钮形式的复选框设计按钮形式的复选框 (2) 修改控件属性。 (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事件代

20、码：THISFORM.SetAll(Enabeld,THIS.Value,CheckBox)THIS.Enabeld=.T.THIS.Caption=IIF(THIS.Value=1,R 锁定,=12 THIS.Parent.Label1.Caption=下午ELSE THIS.Parent.Label1.Caption=上午ENDIFTHIS.Parent.Text1.Value=SUBSTR(TTOC(DATETIME(),10,8)2. 计时器的动感控制【例4-16】设计一个电子游动标题板，标题“使用VFP设计动画”在表单的黄色区域（容器中）自右至左地反复移动。单击“暂停”按钮，标题停止移动，按钮变成“继续”。 单击“继续”按钮，标题继续移动，按钮又变回“暂停”（如图4-29所示）。 图图4-29 电子标题板电子标题板 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写程序代码。 编写Command1（开始/暂停）的Click事件代码：IF THIS.Caption = S 暂停 THIS.Caption = S 继续 THISFORM.Container1.Timer1.Enabled = .F.ELSE THIS.Caption =