3 控制语句与程序调试.ppt

文档介绍：第3章控制语句与程序调试
学习目标:
掌握If 条件语句和Select Case选择语句
掌握For…Next和Do…Loop循环语句
掌握两重循环,了解多重循环
了解Exit、End和Goto语句
掌握程序的简单调试方法
第3章控制语句与程序调试
教学内容:
选择结构与相关语句
循环语句
其它语句
程序调试
选择结构
选择结构:当设定条件成立时执行某些语句,条件不成立时则跳过这些语句或执行其它的语句。
选择结构中要使用选择语句,有两路分支和多路分支两种情况,对应的选择语句有If语句(两路出口)和Select Case语句(多路出口)。
返回目录
选择结构-If条件语句
1. If <表达式> Then <语句>
其中,<表达式>是一个条件表达式或逻辑表达式
例如,If Data>=90 Then Print “优秀”
[]输入一个数,如果是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
Data>=90?
输出“优秀”
Yes
No
输出“合格”
输出“计算完毕”
选择结构-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 "优秀"
返回目录
选择结构-If条件语句
3. 块状If语句
返回目录
If <条件表达式> Then
<语句块>
End If
[]
If <条件表达式> Then
<语句块1>
Else
<语句块2>
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
选择结构-If条件语句
4. If语句嵌套
If语句嵌套使用可形成多分支的条件语句结构
If <条件表达式1> Then
<语句1>
ElseIf <条件表达式2> Then
<语句2>
Else
<语句3>
End If
返回目录
说明:
ElseIf之间不要加空格。
Else和位于其上方的最近的If配对
选择结构-If条件语句
[]
Weight = InputBox("输入西瓜重量:", "计算西瓜款")
If Weight < 4 Then
Price = 1
ElseIf Weight <= 7 Then
Price =
Else
Price =
End If
Money = Price * Weight
MsgBox “西瓜重”& Weight & “公斤,单价”& _
Price & "元,应收瓜款" & Money & _
"元", , "计算西瓜款"
返回目录
4公斤以下:
4至7公斤:
超过7公斤:
If Weight < 4 Then Price = 1
If Weight >= 4 And Price <= 7 Then Price =
If Weight > 7 Then Price =
选择结构-If条件语句
[]
Char = InputBox("输入一个字符", "测试字符值")
If Char >= "0" And Char <= "9" Then
MsgBox "输入的字符是数字"
ElseIf Char >= "A" And Char <= "Z" Then
MsgBox "输入的字符是大写字母"
ElseIf Char >= "a" And Char <= "z" Then
MsgBox "输入的字符是小写字母"
Else
MsgBox "输入的字符是其它符号"
End If
返回目录
判断输入的