VB实训 语法结构.pptVIP

程序结构——选择结构 If语句 Select Case语句 If语句 1. If…Then结构 2. If…Then…Else结构 3. If...Then...ElseIf结构 4. If语句的嵌套 1. If…Then结构（1） If…Then结构的流程如图4.4所示。该结构表示“如果条件满足就执行Then后边的语句，否则不执行任何操作”。语法格式如下： （1）单行形式 If 条件 Then 语句 （2）块（多行）形式 If 条件 Then 语句块 End If 1. If…Then结构（2） 一般情况下，“条件”是运算结果为逻辑值的表达式，若表达式的值为True，则条件成立，若表达式的值为False，则条件不成立。“条件”也可以是运算结果为数值的表达式，此时VB将表达式的值解释成逻辑值：0为False，非零为True。 需要注意的是，If…Then的单行格式不用End If语句，整个语句必须写在一行上。如果条件为真时需要执行多条语句，所有语句必须在同一行上并且以冒号分开，如： If 条件 Then 语句1：语句2：语句3 为了使程序便于维护，提高其可读性，建议尽量不要采用这种单行多句的形式。如果需要在Then关键字后面执行多条语句，应使用块形式的If…Then…End If结构。 1. If…Then结构（3） 【例】编写程序，在文本框中输入一个整数，判断该数是不是偶数。 分析：判断某整数的奇偶性，可以检查该数能否被2整除。若某数能被2整除，则该数为偶数。 设计步骤如下： （1）建立用户界面，设置对象属性。各对象的属性如表4.2所示。 表4.2 例4.2对象属性 2. If…Then…Else结构 （1） （1）单行形式 If 条件 Then 语句1 Else 语句2 （2）块形式 If 条件 Then 语句块1 Else 语句块2 End If 2. If…Then…Else结构（2） 【例】如果使程序能判断整数的奇偶性。 分析：判断某数的奇偶性，就是检查该数能否被2整除，若能被2整除，该数为偶数，否则为奇数。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If (x Mod 2) = 0 Then Label2.Caption = x 是偶数 Else 增加Else子句, 显示奇数 Label2.Caption = x 是奇数 End If End Sub 2. If…Then…Else结构（3） 练习： 某商品40元/斤，购10斤以下不打折，10斤以上20斤以下9折，20斤以上30斤以下8折，30斤以上打7折，编写程序输入所购重量，输出应付款金额。若输入重量为负数给出错误提示。 3. If...Then...ElseIf结构（1） 语法格式如下： If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 ．．． ElseIf 条件n Then 语句块n Else 语句块n+1 End If 4. If语句的嵌套 嵌套是指在一个控制结构中插入另一个控制结构。If语句的嵌套是指在一个If语句中插入另一个If语句。内嵌的If语句可以出现在关键字Then或Else之后的语句块中。If语句嵌套常用于复杂的多分支选择，它的一般形式如下： If 条件1 Then … If 条件2 Then … End If … End If Select Case语句 Select Case 测试表达式 Case 值表1 语句块1 Case 值表2 语句块2 … Case 值表n 语句块n Case Else 语句块n+1 End Select Select Case语句 说明： （1）“测试表达式”可以是数值表达式或字符串表达式。 （2）“值表”与“测试表达式”的类型必需相同。 （3）当使用多个表达式组成“值表”时，表达式与表达式之间要用逗号隔开。 （4） “值表”由以下形式的表达式组成： Select Case语句 【例】设计一个程序，输入成绩，根据以下条件判断成绩的等级： 90～100 等级A 80～89 等级B 70～79 等级C 60～69 等级D 60以下 等级E （1）新建工程，在窗体中添加两个标签，一个文本框，一个标题为“显示等级”的命令按钮。 （2）为