第7章_VisualBasic控制结构导论.pptVIP

第7章 VisualBasic控制结构 主讲教师：刘潇（计科系） 联系电话 QQ：421877450 E-mail：liuxiao528@163.com 本章讨论Visual Basic中除顺序结构之外的流程控制语句，包括选择结构、多分支结构及循环结构语句。 目录 7.1 选择控制结构 If...Then语句 格式： If 条件 Then语句 或 If 条件 Then 语句块 End If 功能：如果条件成立（值为真），则执行Then后面的语句或语句块，否则直接执行下一条语句或“End If”的下一条语句。 7.1 选择控制结构 编写一段代码实现：单击窗体，在弹出的输入对话框中输入成绩（CJ）数值，当成绩（CJ60时），显示“成绩不及格”，换行显示“请参加补考”。 Private Sub Form_Click() CJ = Val(InputBox(请输入成绩数值：, 成绩判断)) If CJ 60 Then Print 成绩不及格 Print 请参加补考 End If End Sub 7.1 选择控制结构 If...Then...Else语句 格式： If 条件 Then 语句块1 （A） Else 语句块2 （B） End If 功能：首先测试条件，当条件成立时，执行语句块1；当条件不成立时，执行语句块2。执行完语句块2之后，执行“End If”之后的语句。 7.1 选择控制结构 输入三个数：a、b、c，求出其中最大数。 Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, m As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = b Else m = a End If If m c Then m = c Text4.Text = m End Sub 7.1 选择控制结构 IIf函数 格式： result = IIf(条件, True部分, False部分) 功能：当“条件”为真时，IIf函数返回“True部分”，而当“条件”为假时返回“False部分” 。 例如：将a、b中的小数，放在Min变量中。 Min=IIf(ab,a,b) 7.1 选择控制结构 ElseIf格式 格式： If 条件1　Then 　　　 语句块1 [ElseIf 条件2　Then 　　　 语句块2] [ElseIf 条件3　Then 　　　 语句块3] 　　　 ...... [Else 语句块n] End If 7.1 选择控制结构 输入学生成绩（百分制），判断该成绩的等级（优良、及格、不及格） Private Sub Command1_Click() Dim score As Integer, temp As String score = Val(Text1.Text) temp = 成绩等级为： If score 0 Then Label2.Caption = 成绩出错 ElseIf score 60 Then Label2.Caption = temp + 不及格 ElseIf score = 79 Then Label2.Caption = temp + 及格 ElseIf score = 100 Then Label2.Caption = temp + 优良 Else Label2.Caption = 成绩出错 End If End Sub 7.2 多分支控制结构 Select Case语句 格式： Select Case　测试表达式 Case　表达式表列1 　　 [语句块1] [Case 表达式表列2