第4章节 VB程序设计基础(分支结构).ppt

第4章 VB程序设计基础 4.3 选择结构 4.3 选择结构 4.3.1 IF语句 4.3.2 Select Case语句 4.2.3 条件函数 4.2.4 分支语句的嵌套 4.3 选择结构 4.3.1 IF语句 4.3.2 Select Case语句 4.2.3 条件函数 4.2.4 分支语句的嵌套 4.3.1 If条件语句 单分支结构： If…Then 语句 2. 双分支结构： If…Then…Else 语句 3.多分支结构---- If…Then…ElseIf 语句 1.单分支结构： If…Then 语句 格式1：If 表达式 Then 语句块 End If 说明：语句块（可以是一句或多句语句） 格式2：If 表达式 Then 语句 说明： 语句只能是一句语句或语句间用冒号分隔，而且必须在一行上书写。 作用：当表达式的值为True，执行Then后面的语句块，否则不做任何操作。 单分支结构举例1 例：变量数据交换 从键盘输入2个整数，分别存放到x和y中，比较它们的大小，如果yx,则交换这2个数，结果要求必须使得x大于y。 单分支结构举例1 ：2个数由大到小排序 说明：2个变量的值进行交换的算法： 单分支结构举例1 ：2个数由大到小排序 Private Sub Command1_Click() Dim x%, y%, t% x = Val(InputBox(输入x:)) y = Val(InputBox(输入y:)) Form1.Print 你输入的x,y的值分别为： Form1.Print x=; x, y=; y If x y Then t = x x = y y = t End If Form1.Print 排序后： Form1.Print x=; x, y=; y End Sub 思考： 怎样实现3个数由大到小的排序？ 单分支实例2 文本框数据有效性检验 例 ：成绩有效性检验。 单分支实例2 文本框数据有效性检验 例 ：成绩数据有效性检验。利用文本框的LostFocus事件检验数据 Private Sub Text1_LostFocus() Dim x! x = Val(Text1.Text) If x 100 Or x 0 Then MsgBox 成绩数据超界（只能为0-100）,重新输入 Text1.Text = Text1.SetFocus End If End Sub Private Sub Text1_LostFocus() Dim x! x = Val(Text1.Text) If x 100 Or x 0 Then MsgBox 成绩数据超界（只能为0-100）,重新输入 Text1.Text = Text1.SetFocus End If End Sub Private Sub Text2_LostFocus() Dim x! x = Val(Text2.Text) If x 100 Or x 0 Then MsgBox 成绩数据超界（只能为0-100）,重新输入 Text2.Text = Text2.SetFocus End If End Sub 2.双分支结构---- If…Then…Else语句 格式1 If 表达式 Then 语句块1 Else 语句块2 End If 格式2 If 表达式 Then 语句1 Else 语句2 作用：当表达式的值为True时，执行Then后面的语句块1，否则执行Else后面的语句块。 双分支结构举例1 从键盘输入一考生成绩，存入变量mark中，假设录取线为580，判断是否通过了考试，结果在窗体上输出. 课堂练习：双分支练习例： 从键盘输入一个数，存入x中，求出它的绝对值，所求结果存入y中, 最后用msgbox过程显示结果。 (要求不用函数）, 课堂练习：双分支练习例： 从键盘输入一个数，存入x中，求出它的绝对值，所求结果存入y中, 最后用msgbox过程显示结果。 (要求不用函数）, 思考： 从键盘输入一个数，存入x中，求出它的绝对值，所求结果存入y中, 最后用msgbox过程显示结果。 (要求不用函数）, 用单分支实现求绝对值问题 求绝对值, 也可用单分支实现 双分支结构举例2 实例 从键盘输入两个数a,b, 用下列信息框显示a/b的值。 以下2句等价： Ms