《VB程序设计与应用案例》第3章 控制语句与程序调试

第3章控制语句与程序调试 学习目标: ◆掌握If条件语句和 Select case选择语句 掌握For∴Next和Do..Loop循环语句 掌握两重循环,了解多重循环 ◆了解Ex、End和Goo语句 掌握程序的简单调试方法

第3章 控制语句与程序调试 学习目标： ◆ 掌握If 条件语句和Select Case选择语句 ◆ 掌握For…Next和Do…Loop循环语句 ◆ 掌握两重循环，了解多重循环 ◆ 了解Exit、End和Goto语句 ◆ 掌握程序的简单调试方法

第3章控制语句与程序调试 教学内容: 3.,1选择结构与相关语句 3.,2循环语句 33其它语句 3.4程序调试

第3章 控制语句与程序调试 教学内容： 3.1 选择结构与相关语句 3.2 循环语句 3.3 其它语句 3.4 程序调试

31选择结构 选择结构:当设定条件成立时执行 某些语句,条件不成立时则跳过这 些语句或执行其它的语句 选择结构中要使用选择语句,有两 路分支和多路分支两种情况,对应 的选择语句有If语句(两路出口)和 Select case语句(多路出口)。 返回目录

3.1 选择结构 ◆ 选择结构：当设定条件成立时执行 某些语句，条件不成立时则跳过这 些语句或执行其它的语句。 ◆ 选择结构中要使用选择语句，有两 路分支和多路分支两种情况 ，对应 的选择语句有If语句(两路出口)和 Select Case语句(多路出口)。 返回目录

31选择结构一条件语句 1.IfThen 其中,是一个条件表达式或逻辑表达式 例如, If Data>=90 Then print优秀” 「例31输入一个数,如果是3的 倍数则通过消息框输出 Data>=90? Private Sub Form Click 输出“优秀” Dim data as integer Data= InputBox("请输入一个值: If Data Mod 3=0 Then Msg Box data End sub Dat是3的倍数 返回目录

3.1 选择结构－If条件语句 1. If Then 其中，是一个条件表达式或逻辑表达式 例如，If Data>=90Then Print “优秀” [例3.1]输入一个数，如果是3的 倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox("请输入一个值：") If Data Mod 3 = 0 Then MsgBox Data End Sub 返回目录 Data是3的倍数 Data>=90? 输出“优秀” Yes No

31选择结构一条件语句 2.IfThenEle=90 Then print“优秀” Else Print“合格” Print"计算完毕" 上例的语句可以改写为 If Data=90? 输出“优秀” 输出“合格” 输出“计算完毕” 返回目录

Data>=90? 输出“优秀” Yes No 输出“合格” 输出“计算完毕” 3.1 选择结构－If条件语句 2. If Then Else 例如，DimData As Integer Data = InputBox(“请输入成绩：") If Data >= 90 Then Print “优秀”ElsePrint “合格” Print "计算完毕" 上例的If 语句可以改写为： If Data < 90 Then Print "合格"Else Print "优秀" 返回目录

3选择结构一I条件语句 3.块状I语句 If Then IfThen 例321 End if A= InputBox(“A值”):B= InputBox("B值") PrintA. B a Form1 If A<B Then TEA:A=B:B=T End If 从大到小输 PrintA. B 返回目录

3.1 选择结构－If条件语句 3. 块状If语句 返回目录 If Then End If [例3.2] If Then Else End If A = InputBox(“A值”): B = InputBox("B值") Print A, B If A < B Then T = A : A = B : B = T End If Print A, B

3选择结构一I条件语句 4.I语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 IfThen EIseleThen Else 说明 语句3 End if > EIsele之间不要加空格。 Ese和位于其上方的最近的配对 返回目录

3.1 选择结构－If条件语句 4. If语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If Then ElseIf Then Else End If 返回目录 说明： ➢ ElseIf之间不要加空格。 ➢ Else和位于其上方的最近的If配对

3选择结构一I条件语句 例331 Weight= InputBox("输入西瓜重量:","计算西瓜款") If Weight 4 Then Price=1 4公斤以下:100元/公斤 4至7公斤:13元/公斤 Elself weight =4 And Price 7Then Price=1.1 End If Money= price* Weight MsgB0x“西瓜重”& Weight&“公斤,单价”& Pice&k"元,应收瓜款"& Money&-陆西瓜款 "元","计算西瓜款 西瓜重8公斤,单价1.1元,应收瓜款8.8元 返回目录 匚确定

3.1 选择结构－If条件语句 [例3.3] Weight = InputBox("输入西瓜重量：", "计算西瓜款") If Weight = 4 And Price 7 Then Price = 1.1

3选择结构一I条件语句 例341 Char= InputBox("输入一个字符","测试字符值") If Char>=0 And char=AAnd Char<=Z Then 大写字母、小 MsgBox"输入的字符是大写字母 Elself char W And Char<="z Then 写字母、数字 MsgBox"输入的字符是小写字母 还是其它符号 Else MsgBox"输入的字符是其它符号 End If 返回目录

3.1 选择结构－If条件语句 [例3.4] Char = InputBox("输入一个字符","测试字符值") If Char >= "0" And Char = "A" And Char = "a" And Char <= "z" Then MsgBox "输入的字符是小写字母" Else MsgBox "输入的字符是其它符号" End If 返回目录 判断输入的是 大写字母、小 写字母、数字 还是其它符号

3选择结构一I条件语句 例351 Private sub commandl click0·单击“正确无误”按钮 If Len(TxtCode.Text)<8 Then LblWarn. Caption="考核证号必须输入,长度为8位 Txt Code SetFocus Elself Len(txtNameText)=OThen LblWarn. Caption="考生姓名必须输入 TxtName SetFocus Elself Len(Txtseat. Text)=OThen 考生登录 LblWarn. Caption="座位号必须输入 TxtSeat SetFocus Else 考核证号20001 LblWarn. Caption= 姓名 Debug. Print TxtCode Text Debug. Print txtName Text 座位号 Debug. Print TxtSeat Text 考生姓名必须输入 End If End sub 正确无误 返回目录

3.1 选择结构－If条件语句 [例3.5] Private Sub Command1_Click() '单击“正确无误”按钮 If Len(TxtCode.Text) < 8 Then LblWarn.Caption = "考核证号必须输入，长度为8位" TxtCode.SetFocus ElseIf Len(TxtName.Text) = 0 Then LblWarn.Caption = "考生姓名必须输入" TxtName.SetFocus ElseIf Len(TxtSeat.Text) = 0 Then LblWarn.Caption = "座位号必须输入" TxtSeat.SetFocus Else LblWarn.Caption = "" Debug.PrintTxtCode.Text Debug.PrintTxtName.Text Debug.PrintTxtSeat.Text End If End Sub 返回目录