VB的基本控制结构.ppt

第5章 基本控制结构 学习目标： 掌握If 条件语句和Select Case选择语句 掌握For…Next和Do…Loop循环语句 掌握两重循环，了解多重循环 第5章 控制语句与程序调试 教学内容： 5.1 选择结构与相关语句 5.2 循环语句 5.3 其他语句 顺序结构: 执行过程的次序从上到下，从左到右 例: Private Sub Command1_Click() Const Pi = 5.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H End Sub 5.1 选择结构 选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。 选择结构中要使用选择语句，有两路分支和多路分支两种情况 ，对应的选择语句有If语句(两路出口)和Select Case语句(多路出口)。 5.1 选择结构－If条件语句 1. If 表达式 Then 语句 其中，表达式是一个条件表达式或逻辑表达式 例如，If Data=90 Then Print “优秀 如果条件为真，执行Then后面的语句，如果条件为假，不执行Then后面的语句而执行End If 后面的语句。 [例5.1]输入一个数，如果是3的 倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox(请输入一个值：) If Data Mod 3 = 0 Then MsgBox Data End Sub 5.1 选择结构－If条件语句 2. If 表达式 Then 语句1 Else 语句2 例如，Dim Data As Integer Data = InputBox(“请输入成绩：) If Data = 90 Then Print “优秀” Else Print “合格” Print 计算完毕 上例的If 语句可以改写为： If Data 90 Then Print 合格 Else Print 优秀 说明 (1) 表达式 : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式(0为False,非0为True) (2) 语句1、语句2: 可以有多条语句，各语句之间用冒号隔开。 (3)可以没有Else部分，这时必须有语句1。 例: If N0 Then A=A+B:B=B+A Else A=A-B:B=B-A 例: If Xaaa Then Print X 5.1 选择结构－If条件语句 5.1 选择结构－If条件语句 5.1 选择结构－If条件语句 5.1 选择结构－If条件语句 5.1 选择结构－If条件语句 5.1 选择结构－Select Case选择语句 说明 测试表达式 : 数值或字符表达式 Case 表达式表: 表中的表项为如下形式: (1) 表达式1[,表达式2]... 如: Case 1 , 3 , 5 (2) 表达式1 TO 表达式2 如: Case 10 TO 30 Case A TO Z (3) Is 关系运算符表达式 如: Case Is = 10 Case Is = 0 与 Case 0 相同 注意: 测试表达式的类型应与Case后表达式类型一致，且三种形式可以混用,如: Case Is -5 , 0 , 5 To 100 5.1 选择结构－Select Case选择语句 5.1 选择结构－Select Case选择语句 应用举例 【例1】设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示“恭喜！，您已成功进入本系统”，否则，显示，“口令错！，请重新输入”。如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示“对不起,您不能使用本系统”，然后退出整个应用程序。