南邮 VISUALBASIC程序设计课件 CH3 CH4选择结构设计

1、第5章 选择结构设计 5.1 选择结构的概念 5.2 条件表达式 5.3 If语句 5.4 多分支条件选择语句Select Case 5.5 计时器控件 5.6 选择性控件 习题五 5.1 选择结构的概念 在日常生活和工作中，经常需要根据给定的条件进行分析、比较和判断，以采取相应的不同操作。 5.2 条 件 表 达 式 5.2.1 关系运算符与关系表达式 1. 关系运算符 关系运算符的作用是对两个表达式的值进行比较，若关系成立，则返回True，否则返回False。VB提供了6种关系运算符，如表5-1所示。表5-1 关系运算符 2. 关系表达式 关系表达式是指用关系运算符将两个表达式连接起来的式

2、子(例如2 * 3 2 + 3)，关系表达式的格式为表达式1关系运算符表达式2关系运算符表达式3. 5.2.2 布尔运算符与布尔表达式 布尔表达式是指用布尔运算符连接若干关系表达式或布尔值而组成的式子。如不等式2x3可以表示为2 = x And x 1 + 4 And Not 6 5 And Not 6 8 关系运算： False And Not True 非运算： False And False 结果： False5.3 If 语 句5.3.1 单行结构条件语句If.Then.Else5.3.2 使用IIf函数可以实现简单的选择结构。结构为: IIf(条件表达式，真部分，假部分) 5.3.3

3、 块结构条件语句If.Then.Else.End If 【例5-7】 键盘输入3个不同的数，将它们从大到小排序。 (1) 建立应用程序用户界面并设置对象属性，如图所示。 (2) 编写事件代码。命令按钮Command1的单击(Click)事件代码为 图5.3 从大到小排序Private Sub Command1_Click() Dim x As Single, y As Single, z As Single x = Val(Text1.Text) 输入数据 y = Val(Text2.Text) z = Val(Text3.Text) If x y Then 将第1个数与第2个数进行比较，使大

4、数在前t = x : x = y : y = t 交换数据 End If If y zIf x y，此时的x、y已不再是原x、y的值 t = x : x = y : y = tEnd If End If Label4.Caption = 从大到小排序结果： & Str(x) & Str(y) & Str(z)End Sub 2. If语句的嵌套格式ElseIf 【例5-10】 编制命令按钮代码，要求每单击一次命令按钮，就会依次在窗体上显示下面诗词中的诗句。 静夜思 床前明月光， 疑是地上霜。 举头望明月， 低头思故乡。 (1) 建立应用程序用户界面并设置对象属性，如图所示。 (2) 编写事件代

5、码。命令按钮Command1的单击(Click)事件代码为Private Sub Command1_Click() Label1.FontName = 隶书 Label1.FontSize = 14 Label1.ForeColor = QBColor(4) Label1.Caption = 静夜思 设置标签Label1的标题 Command1.Caption = 显示 设置命令按钮的标题属性 Static i As Integer 声明静态变量i为整型数 i = i + 1 Mytext1 = 床前明月光， Mytext2 = Mytext1 + Chr(13) + 疑是地上霜。 Chr(1

6、3)表示换行 Mytext3 = Mytext2 + Chr(13) + 举头望明月， Mytext4 = Mytext3 + Chr(13) + 低头思故乡。If i = 1 ThenLabel2.Caption = Mytext1 ElseIf i = 2 ThenLabel2.Caption = Mytext2 ElseIf i = 3 ThenLabel2.Caption = Mytext3 ElseLabel2.Caption = Mytext4i = 0 End IfEnd Sub程序运行结果如图所示。图5.5 显示诗句 5.4 多分支条件选择语句Select Case 虽然使用嵌

7、套的办法可以利用If语句实现多分支选择，但是最好还是使用VB提供的多分支选择结构(Select Case语句)来实现。根据单一表达式来执行多种可能的动作时，Select Case更为简捷。多分支选择结构的特点是：从多个选择结构中，选择第一个条件为真的路线作为执行的路线。Select Case语句的语法格式为Select Case测试条件 Case表达式表1 语句列1 Case表达式表2 语句列2 Case Else 其他语句列End Select 【例5-11】 在例5-8中使用Select Case语句来计算优惠价，只需将其中命令按钮Command1的单击(Click)事件代码改为 Priv

8、ate 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 * x Case Is 3000 y = 0.9 * xCase Is 5000 y = 0.85 * xCase Else y = 0.8 * x End Select Text2.Text = y Text2.Locked = TrueEnd Sub表5-5 表达式的形式【例5-12】 用Select语句编制命令按钮代码完成例5-10。

9、Private Sub Command1_Click() Static i As Integer 声明静态变量i为整型数 i = i + 1 Mytext1 = 床前明月光， Mytext2 = Mytext1 + Chr(13) + 疑是地上霜。 Mytext3 = Mytext2 + Chr(13) + 举头望明月， Mytext4 = Mytext3 + Chr(13) + 低头思故乡。 Select Case iCase 1 Label2.Caption = Mytext1Case 2 Label2.Caption = Mytext2Case 3 Label2.Caption = My

10、text3Case 4 Label2.Caption = Mytext4 i = 0 End SelectEnd Sub 【例5-13】 编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符，马上就进行判断和转换。 (1) 建立应用程序用户界面，如图所示。 (2) 设置对象属性，如图所示。图5.6 设置用户界面 图5.7 设置对象属性 (3) 编写事件代码。根据题中要求，当在“输入字符串”文本框中每输入一个字符键时，马上就进行判断，这就要求对“输入字符串”文本框对象Text1对应的KeyPress

11、事件进行编程。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim aa As String * 1 aa = Chr$(KeyAscii) 将ASCII码转换成字符 Select Case aaCase A To Z aa = LCase(aa) 大写转换成小写Case a To z aa = UCase(aa) 小写转换成大写Case aa = Case Else aa = * End Select Text2.Text = Text2.Text & aa 将转换文本框已有的内容与刚输入并转换的字符连接End Sub命令按钮Command1

12、的Click事件代码为Private Sub Command1_Click() Text1.Text = 清除文本框Text1的内容Text2.Text = 清除文本框Text2的内容End Sub命令按钮Command2的Click事件代码为Private Sub Command2_Click() Unload MeEnd Sub程序运行结果如图所示。图5.8 大小写字母转换 5.5 计 时 器 控 件 计时器(Timer)控件能有规律地以一定的时间间隔激发计时器事件(Timer)而执行相应的事件代码。计时器控件在设计时显示为一个小时钟图标，而在运行时并不显示在屏幕上，通常用标签来显示时间。

13、计时器控件的主要属性如表5-6所示。表5-6 Timer控件的属性 【例5-14】 在窗体上建立数字计时器。 设计步骤如下： (1) 建立用户界面。在窗体上建立一个计时器控件和两个标签控件，如图所示。 (2) 按表5-7所示设置对象属性。图5.9 建立用户界面表5-7 属性设置 图5.10 程序运行结果(3) 编写事件代码。编写计时器控件Timer1的Timer事件代码：Private Sub Timer1_Timer() Label2.Caption = Time$End Sub程序运行结果如图所示。5.6 选 择 性 控 件 5.6.1 单选钮 单选钮(OptionButton)的左边有一

14、个“”。一般来说，单按钮总是成组(单选按钮组)出现，用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。单选钮主要用于在多种功能中由用户选择一种功能的情况。 【例5-15】 单选按钮用法示例。 设计步骤如下： (1) 建立应用程序用户界面和设置对象属性。在窗体中建立了两组单选钮，分别放在名称为“字体”和“字号”的框架中，如图所示。 图5.11 建立用户界面和设置属性 (2) 编写事件代码。下面是该窗体中涉及的两个事件过程：Private Sub Command1_Click() If Option1.Value ThenText1.FontNam

15、e = 宋体 ElseText1.FontName = 黑体 End If If Option3.Value Then图5.12 单选钮程序运行结果 Text1.FontSize = 10 ElseText1.FontSize = 14 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub程序运行结果如图所示。 4. 使用图形选项按钮 可以将单选钮设计成图形按钮的形式。 5.6.2 复选框 1. 复选框的常用属性 复选框的常用属性与单选钮基本相同，如复选框的Caption属性可以指定出现在复选框旁边的文本，而Picture属性用来

16、指定当复选框被设计成图形按钮时的图像。 2. 复选框的使用 【例5-17】 用复选框控制文本输入是否加上“下划线”和“斜体显示”。 设计步骤如下： (1) 建立应用程序用户界面。建立3个控件：一个文本框和两个复选框。在文本框中显示文本，由两个复选框决定显示的文本是否加下划线或用斜体显示。 (2) 设置对象属性。3个控件的属性设置如图所示。图5.15 复选框应用示例(3) 编写事件代码。编写的事件代码为Private Sub Text1_Change() If Check1.Value = 1 ThenText1.FontUnderline = True ElseIf Check2.Value = 1 ThenText1.FontItalic = True End IfEnd