文档介绍：新编Visual Basic程序设计教程
第6章选择结构程序设计
本章重点:
1. If语句的几种格式
Case 语句的格式
课件内容
作业解答
本章内容:
If语句
If...Then结构
If...Then...Else结构
If...Then…ElseIf结构
If语句的嵌套
IIf函数
Select Case语句
If语句
引言
来自英文语言习惯
If I win the game ,then I am a hero.
If a ,then b, else c
注1:条件表达式的值为True或False,一般是逻辑或关系表达式,也可以是算术表达式(转换为逻辑值)
If...Then结构
两种格式:
格式1:
If 条件表达式 Then
语句体
End If
格式2:
If 条件表达式 Then 语句体
条件表达式
语句体
T
F
注2:当条件为True时执行语句体,否则执行If语句的下一条语句
注3:语句体中可以是多条语句,当采用格式2时,所有的语句必须写在一行,用冒号隔开语句体中的语句
If...Then结构(续)
例:已知有两数x、y,编程使x中存放较大的数
分析:如果x>=y,则不需要做处理 如果x<y,则做交换处理
实现: If x > y Then temp = x x = y y = temp End If
用格式2描述: If x > y Then temp = x:x = y:y = temp
If...Then...Else结构
两种格式:
格式1:
If 条件表达式 Then
语句体1
Else
语句体2
End If
格式2:
If 条件表达式 Then 语句体1 Else 语句体2
注:当条件为True时执行语句体1,否则执行语句体2
T
条件表达式
语句体1
F
语句体2
If...Then...Else结构(续)
[例6-2] 判断文本框中输入的是否是数值型数据。
分析: IsNumeric()函数——判断一个数据是否是数值型数据
Private Sub cmdjudge_Click()
If IsNumeric(Text1) Then
MsgBox "是数字"
Else
MsgBox "不是数字"
End If
End Sub
If Optmale = True Then str = str + “我是男生” Else str = str + “我是女生” End If str = str + “,我的爱好有:” If = 1 Then str = str + If = 1 Then str = str + If = 1 Then str = str + MsgBox str
If...Then...Else结构(续)
[例6-8] 使用单选按钮和复选框进行选择性别和爱好。
分析:在界面设计中使用框架,性别选择为二选一,可以采用双分支结构;
爱好的每一项均为复选框,需要判断是否被选中
性别
爱好
If...Then…ElseIf结构
格式: If 表达式1 Then 语句体1 ElseIf 表达式2 Then 语句体2 …… [Else 语句体n+1] End If
表达式1= True 执行语句体1
False 表达式2= True 执行语句体2
False 表达式3=……
Else和If间无空格