Select Case与Elseif用法示例-入门篇
时 间:2013-03-31 12:57:09
作 者:杜超-2号 ID:16058 城市:江阴
摘 要:Select Case与Elseif都是根据表达式的值,来决定执行几组语句中的其中之一,用法一样。
正 文:
代码如下:
Private Sub Combo1_AfterUpdate()
Select Case Me.Combo1
Case "A"
MsgBox "你选的是A"
Case "B"
MsgBox "你选的是B"
Case "C"
MsgBox "你选的是C"
Case else
MsgBox "你选的是D"
End Select
End Sub
Private Sub Combo2_AfterUpdate()
If Me.Combo2 = "A" Then
MsgBox "你选的是A"
ElseIf Me.Combo2 = "B" Then
MsgBox "你选的是B"
ElseIf Me.Combo2 = "C" Then
MsgBox "你选的是C"
Else
MsgBox "你选的是D"
End If
End Sub
----------------------------------------------------------------
根据表达式的值,来决定执行几组语句中的其中之一。
语法
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值,故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间,包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select
If...Then...Else 语句示例
本示例示范 If...Then...Else 语句的两种格式:“区块格式”及“单行格式”,也示范了 If TypeOf...Then...Else 的用法。
Dim Number, Digits, MyString
Number = 53 ' 设置变量初始值。
If Number < 10 Then
Digits = 1
ElseIf Number < 100 Then
' 若判断结果为 True,则完成下一行语句。
Digits = 2
Else
Digits = 3
End If
' 使用“单行格式”语法来设置变量值。
If Digits = 1 Then MyString = "One" Else MyString = "More than one"
演 示:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)