Select Case True Case line Like "ElseIf * Then" '判断是否条件语句中间 可使用 * 或"[ABC]" intClass = BlockMid strSubClass = "ELSEIF" Case line Like "Else" intClass = BlockMid '判断是否条件语句中间 strSubClass = "ELSE" Case line Like "Case *" intClass = BlockMid '判断是否多条件语...
Select和IF一样,是VBA中常用的分支结构,当对同一个表达式的值进行多次判断,并根据判断需要进行不同程序的操作时,Select Case是经常被用到的,其语法结构如下: Select Case testexpression [case expressionlist-n [statements-n]] … [case Else [elsestatements]] End Select 1. 2. 3. 4. 5. 6. 示意图如...
11.关键字“Case else”后的表达式,是在前面的Case条件都不满足时执行的。 12.通过案例来进行讲解,使用Select case-End select语句,定义过程Procedure3。 13.进入到编辑面板,根据当前的页面内容,讲解一下“参数”的使用方式。 14.再来分析案例,采用Select case结构对字符进行分类。 15.在VBA软件中选择“编辑”面板...
ElseIf 20 < 30 Then Debug.Print "Right" End If 1. 2. 3. 4. 5. 输出结果为:Right 2. Select Case Select Case语句在功能与If语句非常相似,只是组织形式略有不同。它有2种形式 ① 不带Else的Select Case 格式为: Select Case 测试表达式 Case 表达式1 ' 如果测试表达式等于表达式1,则执行这里的语句...
–简单Case函数 CASE sex WHEN ‘1’ THEN ‘男’ WHEN ‘2’ THEN ‘女’ ELSE ‘其他’ END ...
Access Read As #intFile Get #intFile, 1, arrTmp Close #intFile Select Case arrTmp(0) & arrTmp(1) Case "255254" GetEncode = "Unicode" Case "254255" GetEncode = "Unicode Big Endian" Case "239187" GetEncode = "UTF-8" Case Else GetEncode = "ANSI or Other" End Select End ...
```vba Function 判断性别(ByVal 性别 As String) As String If 性别 = "M" Then 判断性别 = "男性"ElseIf 性别 = "F" Then 判断性别 = "女性"Else 判断性别 = "未知性别"End If End Function ```在上面的代码中，我们定义了一个名为"判断性别"的函数，该函数接受一个参数"性别"，并返回一个字符...
Case 48 To 57 Result= "数字" Case Else Result= "其他特殊字符" End Select MsgboxResult End sub 反复运行过程Prm3,分别输入大写字母、小写字母、数字和其他符号,查看运行结果。如果输入的是“A”,则运行结果为___。如果输入的是“!”,则运行结果为___。最后保存模块M2。 3.循环控制 (1)要求...
1、ACCESSVBA编程.控件:常量 控件 acBoundObjectFrame 绑定对象框 acCheckBox 复选框 acComboBox 组合框 acCommandButton 命令按钮 acCustomControl ActiveX(自定义)控件 acImage 图像 acLabel 标签 acLine 线条 acListBox 列表框 acObjectFrame 未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 ac...
摘要:VBA中 Select Case End Select 判断条件语句的基础知识 正文: rivateSubcmdTest_Click()DimlngValueAsIntegerlngValue=Val(txtValue)'将文本转换为数字 Select Case lngValue Case 1 '一个变量的判断lblTip.Caption="变量为1"Case2,3'二个变量的判断 ...