第4章选择结构程序设计ppt课件

1、第第4章章 选择结构程序设计选择结构程序设计 4.1 条件表达式条件表达式 1 关系运算符与关系表达式关系运算符与关系表达式 比较两个运算量之间的关系，关系表达式的运算结果为逻辑比较两个运算量之间的关系，关系表达式的运算结果为逻辑量。若关系成立，结果为量。若关系成立，结果为True，若关系不成立，结果为，若关系不成立，结果为False。VB中的关系运算符如下表所示。中的关系运算符如下表所示。 运算符含义优先级实例结果小于所有关系运算所有关系运算优先级相同。优先级相同。低于算术运算低于算术运算的加的加“+”，减，减“-”运算，高运算，高于逻辑非于逻辑非“Not运算。运算。15+1020False

2、=小于或等于10大于1020False=大于或等于This= ThatTrue=等于This= ThatFalse不等于This ThatTrueLike字符串匹配This Like *isTrueIs对象比较 关系运算的规则如下：关系运算的规则如下： （1当两个操作式均为数值型，按数值大小比较。当两个操作式均为数值型，按数值大小比较。 （2字符串比较字符串比较,则按字符的则按字符的ASCII码值从左到右一一比较码值从左到右一一比较,直到出现不同的字符为止直到出现不同的字符为止.。 例：例： ABCDE ABRA 结果为结果为 False （3数值型与可转换为数值型的数据比较，数值型与可转换为

3、数值型的数据比较， 如：如：29189 ，按数值比较，结果为，按数值比较，结果为False。（4数值型与不能转换成数值型的字符型比较，数值型与不能转换成数值型的字符型比较， 如：如：77 sdcd ，不能比较，系统出错。，不能比较，系统出错。（5）“Like运算符是运算符是VB6.0新增加的。新增加的。 其使用格式为：其使用格式为：str1 Like str22 逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式 逻辑运算符：逻辑运算符：Not，And，Or Xor说说 明：明： （1逻辑运算符的优先级不相同，逻辑运算符的优先级不相同，Not逻辑非最高，逻辑非最高，但它低于关系运算。但它低于关系运算

4、。 （2VB中常用的逻辑运算符是中常用的逻辑运算符是Not、And和和Or。它们用。它们用于将多个关系表达式进行逻辑判断。于将多个关系表达式进行逻辑判断。例如：例如： 数学上表示某个数在某个区域时用表达式：数学上表示某个数在某个区域时用表达式： 10X=10 And X20 如果写成如下形式将是错误的：如果写成如下形式将是错误的： 10=x20 或或 10=x Or x字符串运算符字符串运算符-关系运算符关系运算符-布尔运算符布尔运算符【例【例4-1】设变量】设变量x = 4，y = 1，a = 7.5，b = 6.2，求表达，求表达式式x + y a + b And Not y 1.3 An

5、d Not y b (2) 再作关系运算：再作关系运算： True And Not False (3) 作非运算：作非运算： True And True (4) 最后得：最后得： True【例【例4-2】判断某个年份是闰年的根据是年份数满足下述条】判断某个年份是闰年的根据是年份数满足下述条件之一。件之一。 (1) 能被能被4整除，但不能被整除，但不能被100整除的年份都是闰年。整除的年份都是闰年。 (2) 能被能被100整除，又能被整除，又能被400整除的年份都是闰年。整除的年份都是闰年。 设变量设变量y表示年份，写出判断表示年份，写出判断y是否闰年的布尔表达式。是否闰年的布尔表达式。 解：判

6、断解：判断y是否满足条件是否满足条件(1)的布尔表达式是的布尔表达式是y Mod 4 = 0 And y Mod 100 0 判断判断y是否满足条件是否满足条件(2)的布尔表达式是的布尔表达式是y Mod 100 = 0 And y Mod 400 = 0 两者取两者取“或或”，即得判断闰年的布尔表达式，即得判断闰年的布尔表达式y Mod 4 = 0 And y Mod 100 0 Or y Mod 100 = 0 And y Mod 400 = 0 4.3单条件选择语句单条件选择语句IF 1. 单行结构条件语句IFTHENELSE If条件Then 语句序列1 Else语句序列2【例4-3】

7、输入x，计算y的值。其中：)0(21)0(1xxxxy 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。写出命令按钮Command1的单击Click事件代码为Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x = 0 Then y = 1 + x Else y = 1 2 * x Text2.Text = yEnd Sub【例【例4-4】学校对学习成绩优良的学生进行奖励，获奖的条件】学校对学习成绩优良的学生进行奖励，获奖的条件如下：如下： (1)

8、 所考所考5门课的总分超过门课的总分超过450分。分。 (2) 每门课的成绩都在每门课的成绩都在88分以上。分以上。 (3) 前前3门主课的成绩都在门主课的成绩都在95分以上，其他两门非主课分以上，其他两门非主课的成绩都在的成绩都在80分以上。分以上。 输入某学生输入某学生5门课的成绩门课的成绩s1、s2、s3、s4、s5，判断他是否能，判断他是否能够获奖。够获奖。设计步骤如下：设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。编写程序代码。图图4-5 判断能否获奖判断能否获奖可以写出命令按钮可以写出命令按钮Command1

9、的单击的单击Click事件代码为：事件代码为：Private Sub Command1_Click() Dim s1 As Single, s2 As Single, s3 As Single, s4 As Single, s5 As Single Dim p As String s1 = Val(InputBox(请输入第请输入第1门课的成绩：门课的成绩：, 输入框输入框, 0) s2 = Val(InputBox(请输入第请输入第2门课的成绩：门课的成绩：, 输入框输入框, 0) s3 = Val(InputBox(请输入第请输入第3门课的成绩：门课的成绩：, 输入框输入框, 0)s4 =

10、 Val(InputBox(请输入第请输入第4门课的成绩：门课的成绩：, 输入框输入框, 0) s5 = Val(InputBox(请输入第请输入第5门课的成绩：门课的成绩：, 输入框输入框, 0) t1 = (s1 + s2 + s3 + s4 + s5 = 450) t2 = (s1 = 88 And s2 = 88 And s3 = 88 And s4 = 88 And s5 = 88) t3 = (s1 = 95 And s2 = 95 And s3 = 95 And s4 = 80 And s5 = 80) If t1 Or t2 Or t3 Then p = 可以获奖可以获奖! E

11、lse p = 不能获不能获奖奖! p = Str(s1) & , & Str(s2) & , & Str(s3) & , & Str(s4) & , & Str(s5) & Chr(13) & p Label1.Caption = 该生五门课的成绩分别是：该生五门课的成绩分别是： & Chr(13) & pEnd Sub【例4-5】利用输入框函数输入3个不同的数，选出其中最大的数。设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。可以写出命令按钮可以写出命令按钮C

12、ommand1的单击的单击Click事件代码为事件代码为Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(InputBox(请输入第请输入第1个数：个数：, 输入框输入框, 0) b = Val(InputBox(请输入第请输入第2个数：个数：, 输入框输入框, 0) c = Val(InputBox(请输入第请输入第3个数：个数：, 输入框输入框, 0) p = & a & ， & b & ， & c p = p & 三个数中最大的数是：

13、三个数中最大的数是： If a b And a c Then p = p & a If b a And b c Then p = p & b If c a And c b Then p = p & c Label1.Caption = pEnd Sub2 使用使用IIF函数函数 I I f 函 数 可 用 来 执 行 简 单 的 条 件 判 断 操 作 ， 它 相 当 于函 数 可 用 来 执 行 简 单 的 条 件 判 断 操 作 ， 它 相 当 于IFThen.Else结构。结构。 IIf函数的语法结构为函数的语法结构为 IIf(条件表达式，表达式条件表达式，表达式

14、1，表达式，表达式2)阐明：阐明： （1）与与IF语句中的表达式相同，通常是关系表语句中的表达式相同，通常是关系表达式、逻辑表达式，也可为算术表达式。如果是算术表达式，达式、逻辑表达式，也可为算术表达式。如果是算术表达式，其值按非其值按非0为为True，0为为False进行判断。进行判断。 （2当当为真时，函数返回为真时，函数返回的值，当的值，当为假时，函数返回为假时，函数返回的值。的值。 （3）、可以是任何表达式。可以是任何表达式。【例【例4-6】例】例4-3中命令按钮中命令按钮Command1的单击的单击Click事件代码可以改为事件代码可以改为Private Sub Command1_C

15、lick() Dim x As Single, y As Single x = Val(Text1.Text) y = IIf(x = 0, 1 + x, 1 2 * x) Text2.Text = yEnd Sub 3. 块结构条件语句块结构条件语句IFTHENELSEEND IF 其语法结构为其语法结构为If条件条件1Then 语句列语句列1Else 语句列语句列2End If【例【例4-7】将例】将例4-3中命令按钮中命令按钮Command1的单击的单击Click事件代码改为多行事件代码改为多行If语句：语句：Private Sub Command1_Click() Dim x As S

16、ingle, y As Single x = Val(Text1.Text) If x = 0 Then y = 1 + x Else y = 1 2 * x End If Text2.Text = yEnd Sub4. IF语句的嵌套语句的嵌套 1)IF语句的嵌套【例4-8】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，0.25元/kg，超过50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按0.45元/kg收费。编写程序，输入行李重量，计算并输出托运的费用。设计步骤如下： (1) 建立应用程序用户界面与设置对象属

17、性。图4-9 计算托运费(2) 编写程序代码。编写程序代码。 可以写出命令按钮可以写出命令按钮Command1的单击的单击Click事件代码事件代码为为 Private Sub Command1_Click() Dim w As Single, x As Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w 100) End If End If Text

18、2.Text = xEnd Sub可以将上例中命令按钮Command1的单击Click事件代码改为：Private Sub Command1_Click() Dim w As Single, x As Single w = Val(Text1.Text) x = IIf(w = 50, 0.25 * w, 0.25 * 50 + IIf(w = 100, 0.35 * (w 50), 0.35 * 50 + 0.45 * (w 100) Text2.Text = xEnd Sub【例4-9】某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物 (1) 在1000元以上者，按九五折优惠

19、； (2) 在2000元以上者，按九折优惠； (3) 在3000元以上者，按八五折优惠； (4) 在5000元以上者，按八折优惠。 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。可以写出命令按钮Command1的单击Click事件代码为Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 1000 Then y = x Else If x 2000 Then y = 0.95 * x ElseIf x 3000 Then y = 0.9 * x

20、Else If x 5000 Then y = 0.85 * x Else y = 0.08 * x End If End If End If End If Text2.Text = yEnd Sub2) IF语句的嵌套格式ELSEIF 其语法结构为If条件1Then 语句列1ElseIf条件2Then 语句列2 .Else 其他语句列End If【例4-10】在例4-9中使用带ElseIf的块If语句来计算出优惠价，只需将其中命令按钮Command1的单击Click事件代码改为Private Sub Command1_Click() Dim x As Single, y As Single

21、x = Val(Text1.Text) If x 1000 Then y = x ElseIf x 2000 Then y = 0.95 * x ElseIf x 3000 Then y = 0.9 * x ElseIf x 5000 Then y = 0.85 * x Else y = 0.08 * x End If Text2.Text = yEnd Sub 4.4 多分支条件选择语句多分支条件选择语句SELECT CASE SELECT CASE结构与语法结构与语法语句的语法格式为语句的语法格式为:Select Case 变量或表达式变量或表达式 Case 表达式列表表达式列表1 语句块

22、语句块1 Case 表达式列表表达式列表2 语句块语句块2 Case Else 语句块语句块n+1End Select数值型或字符串表达式阐明：阐明： ：与：与同类型的下面同类型的下面四种形式之一：四种形式之一： 表达式表达式 如如: A +5 一组枚举表达式一组枚举表达式(用逗号分隔用逗号分隔) 如如: 2, 4, 6, 8 表达式表达式1 To 表达式表达式2如如: 60 to 100 Is 关系运算符表达式关系运算符表达式 如如; Is 602. SELECT CASE结构的应用 【例4-11】在例4-9中使用Select Case语句来计算优惠价，只需将其中命令按钮Command1的单

23、击Click事件代码改为Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) Select Case x Case Is 1000 y = x Case Is 2000 y = 0.95 * xCase Is 3000 y = 0.9 * x Case Is 5000 y = 0.85 * x Case Else y = 0.8 * x End Select Text2.Text = yEnd Sub【例【例4-12】某航空公司规定在旅游的旺季】某航空公司规定在旅游的旺季79月份，如果月份，如

24、果订票数超过订票数超过20张，票价优惠张，票价优惠15%，20张以下，优惠张以下，优惠5%；在旅游的淡季在旅游的淡季15月份、月份、10月份、月份、11月份，如果订票数超月份，如果订票数超过过20张，票价优惠张，票价优惠30%，20张以下，优惠张以下，优惠20%；其他情况；其他情况一律优惠一律优惠10%。 设计程序，根据月份和订票张数决定票价的优惠率。设计程序，根据月份和订票张数决定票价的优惠率。 设计步骤如下：设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2) 编写程序代码。 根据流程图，可以写出命令按钮Command1的单击Click事件

25、代码为：Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(Text1.Text) n = Val(Text2.Text) Select Case m Case Is = 5, 10, 11 If n 20 Then r = 20 Else r = 30Case 7 To 9 If n 0 And Text1.Text 0 Then Command1.SetFocus End IfEnd Sub4.5使用计时器控件使用计时器控件 1.用途用途计时器控件计时器控件Timer又称时钟、定

26、时器控件，用于有规律地定又称时钟、定时器控件，用于有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可时执行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见。时钟控件不可见。2 属属 性性（1Interval属性属性取值范围在取值范围在0 64767 ，单位：为毫秒，单位：为毫秒0.001秒），表示计时间秒），表示计时间隔。若将隔。若将Interval属性设置为属性设置为0或负数，则计时器停止工作。缺或负数，则计时器停止工作。缺省设置为省设置为 0（2Ena

27、bled属性属性 设置为设置为True，而且，而且Interval属性值大于属性值大于0，则计时器开始工以，则计时器开始工以Interval属性值为间隔，触发属性值为间隔，触发Timer事件）。事件）。设置为设置为False可使时钟控件无效，即计时器停止工作。缺省设置可使时钟控件无效，即计时器停止工作。缺省设置为为True3 方方 法法 Timer控件没有方法。控件没有方法。4 事事 件件 时钟控件只有时钟控件只有Timer事件事件 当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时， 该事该事件以件以Interval属性指定的时间间隔发生属性指定的时间

28、间隔发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在Timer事件过程中事件过程中计时器控件计时器控件 应用举例应用举例1. 设计一个电子表设计一个电子表 【例4-13】在窗体上设计一个数字时钟，如图4-15所示。 图4-16 建立界面与设置属性 图4-15 数字时钟 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性， (3) 编写程序代码。 编写计时器控件Timer1的Timer事件代码：Private Sub Timer1_Timer() Label1.Caption = Format(Time, Form1.Tag) Label2.Caption = I

29、If(Hour(Time) 12, 下午, 上午)End Sub编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() If Command1.Caption = 改为12小时 Then Form1.Tag = hh:mm:ss AM/PM Command1.Caption = 改为24小时 Label2.Visible = True Else Form1.Tag = hh:mm:ss Command1.Caption = 改为12小时 Label2.Visible = False End IfEnd Sub 2.设计一个计时器 【例4-14

30、】一个简单计时器。如图4-17所示。 图4-17 简单计时器 图4-18 计时器的设计设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 编写Command1开场的Click事件代码：Private Sub Command1_Click()If Command1.Caption = &S 暂停 Then Command1.Caption = &C 继续 Timer1.Enabled = False Else Command1.Caption = &S 暂停 If Label1.Caption = 00:00:00:0 Then Form

31、1.Tag = Timer Timer1.Enabled = True End IfEnd Sub编写Command2重置的Click事件代码：Private Sub Command2_Click() Form1.Tag = TimerLabel1.Caption = 00:00:00:0End Sub 编写Timer1的Timer事件代码：Private Sub Timer1_Timer() m = Timer Form1.Tag n0 = (m * 10) Mod 10 m = Int(m) n1 = Format(m Mod 60, 00.) n2 = Format(m 60) Mod

32、60, 00:) n3 = Format(m 3600, 00:) Label1.Caption = n3 & n2 & n1 & n0End Sub3.设计一个流动字幕板【例4-15】为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼在窗体中自右至左地反复移动。 图4-19 电子标题板 图4-20 用户界面的设计设计步骤如下： (1) 建立应用程序用户界面与设置对象属性 (2) 编写程序代码。 编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() If Command1.Caption =

33、 &S 暂停 Then Command1.Caption = &C 继续 Timer1.Enabled = FalseElse Command1.Caption = &S 暂停 Timer1.Enabled = True End IfEnd Sub编写Timer1的Timer事件代码：Private Sub Timer1_Timer() If Label1.Left + Label1.Width 0 Then Label1.Move Label1.Left 20 Else Label1.Left = Form1.ScaleWidth End IfEnd Sub4.6 提

34、供简单选择的控件提供简单选择的控件 4.6.1选项按钮选项按钮 1 用途用途 单选钮单选钮OptionButton也称作选择按钮。一组单选钮控也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种选择一个选项，实现一种“单项选择的功能，被选中项目左单项选择的功能，被选中项目左侧圆圈中会出现一黑点。侧圆圈中会出现一黑点。2. 重要属性重要属性（1） Caption：文本标题。设置单选钮的文本注释内容。：文本标题。设置单选钮的文本注释内容。（2） Alignment属性：属性： 0：Left J

35、ustify(缺省设置缺省设置)控件钮在左边，标题显示在右边。控件钮在左边，标题显示在右边。 1：Right Justify 控件钮在右边，标题显示在左边。控件钮在右边，标题显示在左边。（3Value 属性属性 True: 单选钮被选定单选钮被选定 False: 单选钮未被选定缺省设置）单选钮未被选定缺省设置） (4) Style 属性属性 0-Standard： 标准方式标准方式 1-Graphical：图形方式：图形方式3 方法方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中方法是单选钮控件最常用的方法，可以在代码中 通过该方法将通过该方法将Value属性设置为属性设置为T

36、rue。 与命令按钮相同，使用该方法之前，必须要保证单选钮处与命令按钮相同，使用该方法之前，必须要保证单选钮处 于可见和可用状态即于可见和可用状态即Visible与与Enabled属性值均属性值均True）。）。4 事件事件 Click事件是单选钮控件最基本的事件，一般情况用户无事件是单选钮控件最基本的事件，一般情况用户无 需为单选钮编写需为单选钮编写Click事件过程，因为当用户单击单选钮事件过程，因为当用户单击单选钮 时，它会自动改变状态。时，它会自动改变状态。选项按钮组应用举例选项按钮组应用举例【例【例4-16】在例】在例4-13中使用选项按钮组来选择时间的格式中使用选项按钮组来选择时间

37、的格式编写新增控件的事件代码。编写新增控件的事件代码。 编写选项按钮编写选项按钮Option1的的Click事件代码：事件代码：Private Sub Option1_Click() Form1.Tag = hh:mm:ss AM/PM Label2.Visible = TrueEnd Sub 编写选项按钮编写选项按钮Option2的的Click事件代码：事件代码：Private Sub Option2_Click() Form1.Tag = hh:mm:ss Label2.Visible = FalseEnd Sub例例4-17】设银行定期存款年利率为：】设银行定期存款年利率为：1年期年期2

38、.25%，2年期年期2.43%，3年期年期2.70%，5年期年期2.88%（不计复利）。今有本（不计复利）。今有本金金a元，元，5年以后使用，共有以下年以后使用，共有以下6种存法：种存法：l 存一次存一次5年期。年期。l 存一次存一次3年期，一次年期，一次2年期。年期。l 存一次存一次3年期，两次年期，两次1年期。年期。l 存两次存两次2年期，一次年期，一次1年期。年期。l 存一次存一次2年期，三次年期，三次1年期。年期。l 存五次存五次1年期。年期。 分别计算各种存法分别计算各种存法5年后到期时的本息合计年后到期时的本息合计 编写命令按钮Command1的单击Click事件代码：Privat

39、e Sub Command1_Click() Dim a As Single, y As Single Dim x1 As Single, x2 As Single Dim x3 As Single, x5 As Single a = Val(Text1.Text) x1 = 0.0225: x2 = 0.0243 x3 = 0.027: x5 = 0.0288 Select Case True Case Option1.Value y = (1 + 5 * x5) * aCase Option2.Value y = (1 + 3 * x3) * (1 + 2 * x2) * a Case O

40、ption3.Value y = (1 + 3 * x3) * (1 + x1) 2 * a Case Option4.Value y = (1 + 2 * x2) 2 * (1 + x1) * a Case Option5.Value y = (1 + 2 * x2) * (1 + x1) 3 * a Case Option6.Value y = (1 + x1) 5 * a End SelectText2.Text = y Text1.SetFocusEnd Sub 编写文本框编写文本框Text1的的GotFocus事件代码：事件代码：Private Sub Text1_GotFocus(

41、) Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub图形选项按钮应用举例图形选项按钮应用举例将选项按钮设计成图形按钮的形式将选项按钮设计成图形按钮的形式【例【例4-18】用图形选项按钮组控制流动字幕中的字体，】用图形选项按钮组控制流动字幕中的字体，如图如图4-23所示。所示。 设计步骤如下：设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。编写程序代码。 依次编写选项按钮依次编写选项按钮Option1Option4的的Click事件代码：事件代码：Priv

42、ate Sub Option1_Click()Text1.FontName = 宋体End SubPrivate Sub Option2_Click() Text1.FontName = 隶书End SubPrivate Sub Option3_Click() Text1.FontName = 黑体End SubPrivate Sub Option4_Click() Text1.FontName = 楷体_GB2312End Sub4.6.2 复选框复选框 1 用途用途 复选框复选框CheckBox也称作检查框、选择也称作检查框、选择框。一组复选框控件可以提供多个选项，它框。一组复选框控件可以

43、提供多个选项，它们彼此独立工作，所以用户可以同时选择任们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种意多个选项，实现一种“不定项选择的功不定项选择的功能。选择某一选项后，该控件将显示能。选择某一选项后，该控件将显示，而，而清除此选项后，清除此选项后，消逝。消逝。检查框被选中2. 重要属性重要属性 Caption、Alignment、Style与单选钮相同与单选钮相同复选框的复选框的Value 属性与单选按钮不同，其值为数值型数据，属性与单选按钮不同，其值为数值型数据，可取可取0,1,2复选框与单选按钮复选框与单选按钮Value 属性的比较属性的比较 检查框检查框0-Unchecke

44、d0-Unchecked：未被选定：未被选定1-Checked1-Checked：选定：选定2-Grayed2-Grayed：灰色，禁止选择：灰色，禁止选择 单选钮单选钮True: True: 单选钮被选定单选钮被选定False: False: 单选钮未被选定，缺省设单选钮未被选定，缺省设置置4 事件事件 Click事件是检查框控件最基本的事件。用户一般无事件是检查框控件最基本的事件。用户一般无需为检查框编写需为检查框编写Click事件过程，但其对事件过程，但其对Value属性值的属性值的改变遵循以下规则：改变遵循以下规则： 单击未选中的检查框时，单击未选中的检查框时，Value属性值变为属性

45、值变为1； 单击已选中的检查框时，单击已选中的检查框时，Value属性值变为属性值变为0； 单击变灰的检查框时，单击变灰的检查框时，Value属性值变为属性值变为0。复选框应用举例复选框应用举例1. 使用单个复选框使用单个复选框【例【例4-19】在上例中，增加复选框，控制选项按钮组的显示。】在上例中，增加复选框，控制选项按钮组的显示。增加复选框控件增加复选框控件Check1的的Click事件代码：事件代码：Private Sub Check1_Click() Option1.Visible = Check1.Value Option2.Visible = Check1.Value Option

46、3.Visible = Check1.Value Option4.Visible = Check1.ValueEnd Sub2. 使用多个复选框使用多个复选框 【例4-20】设计一个个人资料输入窗口，使用选项按钮组输入性别与民族，使用复选框输入个人爱好，如图4-25所示。. 图4-25 使用多个复选框 图4-26 建立用户界面 设计步骤如下：设计步骤如下： (1) 建立应用程序用户界面。建立应用程序用户界面。 (2) 设置对象属性。设置对象属性。 (3) 编写程序代码。编写程序代码。 编写命令按钮编写命令按钮Command1的的Click事件代码：事件代码：Private Sub Comman

47、d1_Click() If Text1.Text = Then a = InputBox(您忘了输入姓名！您忘了输入姓名！, 留意留意, 请在此输入姓请在此输入姓名名) If a = Or a = 请在此输入姓名请在此输入姓名 Then Exit Sub Text1.Text = a End Ifp1 = Text1.Text + ， p2 = IIf(Option1, 男, 女) + ， p3 = IIf(Option3, 汉族, 少数民族) p4 = ，喜欢： If Check1.Value = 1 Then p4 = p4 + Check1.Caption + 、 If Check2.V

48、alue = 1 Then p4 = p4 + Check2.Caption + 、 If Check3.Value = 1 Then p4 = p4 + Check3.Caption + 、 If Check4.Value = 1 Then p4 = p4 + Check4.Caption + 、 aa = p1 + p2 + p3 + IIf(p4 = ，喜欢：, ，无爱好。, p4) Label4.Caption = Left(aa, Len(aa) 1) + 。 Text1.SetFocusEnd Sub 编写文本框Text1的Change事件代码：Private Sub Text1_

49、Change() Label4.Caption = End Sub3. 复选框的图形方式复选框的图形方式【例【例4-21】利用图形复选框来控制文本的字体风格，如图】利用图形复选框来控制文本的字体风格，如图4-27所示。所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写代码。 复选框控件Check1的Click事件代码：Private Sub Check1_Click() Check2.Enabled = Check1.Value Check3.Enabled = Check1.Value Check4.Enabled = Check1.Value Check1.Caption = IIf(Check4.Caption