VVBA程序流程控制语句a程序流程控制的方式是（VBA程序流程控制语句）

子程序和函数参数的设置与传递

子程序和函数后面的括号内是可以设置参数的，我们先来看一下子程序参数是怎么传递的，我们在按钮事件中调用子程序，并把括号内的参数“把参数传递到子程序中”传递到子程序中，而此时当参数传递过去之后就要执行子程序啦，子程序就把这条信息弹了出来：

保存后，我们来看一下子程序传递后的效果怎么样，从下面的运行结果可以看出，括号内的参数顺利的传了过去，并且执行了子程序的内容：

值得一提的是上面的事件中传递参数时，子程序名称后面可以不加括号，就可以直接把参数传递出去，运行的结果和上面是一样的：

刚刚，我们传递的参数只有一个，现在我们再加一个参数，在传递两个参数时，中间用逗号隔开，在显示两个参数时用连接符“&”表示：

在传递两个参数时，我们可以看到下面的界面，将两个参数都成功的传递了过去：

我们在传递多个参数时，是不可以加括号的，只是在传递单个参数时是可以加括号的。

我们还可以对参数进行设置默认值，例如下面的参数设置，也就是我们在设置参数时，直接在括号内进行赋值，但是在参数的前面必须加一个关键字，这个关键字就是“optional”，此时就可以对参数进行默认赋值啦：

但是，我们在调用子程序时，给了两个参数，所以它的运行结果是和上面一样的：

但是当我们把第二个参数去掉，这时个显示的就是我们的默认参数啦，下面这个界面就是显示的我们设置的默认参数：

上面我们以子程序为例对参数进行讲解的，那么函数参数的设置与传递也是和子程序基本相类似的，这里面就不再多多赘述啦！

声明全局变量

所谓的变量，顾名思义，就是它在任何时候所赋予它的值都有可能变化，那么，在Access数据库VBA代码中如何声明一个变量呢？

其实声明变量是有固定格式的，我们只需要按照它的固定格式来声明即可，声明全局变量的时候，我们可以在最上面用“dim”进行声明，后接变量的名称，其后接“as”，然后再接变量的类型，其格式是这样的：

【dim 变量名 as 变量类型】

这里面的变量名，有一定的命名规则，其实我们只需要用非关键字的字母或者与数字的组合即可，但是不能以数字开头，而且在命名的时候尽量使自己知道每个变量代表的意义，也就是用一些一看就知道代表什么的名字最好，变量定义的规则比较简单，这里面不再过多赘述，变量类型与我们之前讲过的数据表中字段的类型有些相似，它可以是数字型的，也可以是字符型的，还可以是日期型的，如“dim a as string”就是表示定义变量a为字符型的，我们规定它只能存放字符类型的数据，如上一期我们定义的“zfc”就是字符型的：

我们再重新定义一个变量，一会我们给这个变量进行赋值操作：

在声明完变量以后，我们在下面可以对变量进行赋值啦，下面我们在子程序当中对这个变量进行赋值，赋值之后它就有了自己的内容，下面我们给它赋值的内容是“华为汽车”，我们在使用这个变量的时候它就是“华为汽车”：

此时，我们在单击整个中加入对子程序参数的传递：

保存运行窗体后，点击按钮，可以看到出现了下面的结果，这样变量就顺利的被赋予新的内容啦：

如果我们将声明变量的位置改一下，看看会发生什么，我们将声明变量的位置放到子程序当中：

来运行窗体，点击按钮看一下效果变了，内容没有传递过去，说明子程序当中的“新变量”和单击事件中的“新变量”是两个东西，我们只在子程序中声明了变量，其作用域只发生在子程序中：

所以，要想所有的过程程序识别该变量，就应该在所有过程的最上面声明全局变量，这样，程序无论走到哪个过程当中，它都会识别我们声明的全局变量。

VBA代码流程 控制

首先，我们对弹出的对话框进行相应的代码设置，我们在单击事件中显示消息“是否打开子程序？”：

保存运行窗体后，可以看到在弹出的消息框中只有一个“确定”：

那么我们如何加上一个“取消”呢？我们可以在单击事件程序代码中这样修改：

此时，我们再来保存代码后运行窗体，得到下面的效果：

Msgbox是有返回值的，下面我们看一下它是怎么进行返回值的？首先我们将Msgbox进行赋值：

然后保存运行窗体后，点击确定后，再通过输出到立即窗口进行观察，通过视图打开立即窗口，可以看到当我们点击确定时，返回值是1：

我们再来看看点击取消时返回值是多少，通过立即窗口观察到当选择取消时返回值是2：

下面，我们再加上判断条件，如果a 等于 1 执行xxk子程序，如果a 不等于1 执行hs函数：

也就是点击确定会执行子程序，保存后运行窗体点击确定显示效果：

当我们点击取消会执行函数，下面就是点击取消后的效果，它执行了函数：

所以，通过特定的条件限制来控制我们代码的流程，这样可以实现我们特定的功能。

多条件检查

我们在添加控件前，首先将控件向导处于选中状态，如下图所示，这样我们在选择控件添加到窗体时，可以弹出向导：

此时，我们在设计功能选项卡的下面找到“选项组”控件，并将控件拖到窗体中，之后就会弹出下面这个向导：

然后，我们在标签名称栏键入一些内容：

之后选择下一步，并对默认选项进行相应的设置：

继续下一步，可以看到每个标签内容都赋予了相应的值：

接着下一步，选择“选项按钮”，并选择一个样式：

继续来下一步后，对这个选项组进行命名，也就是给个相应的标题即可，这里面我们就用默认的名字：

通过属性表中的格式选项对标题进行修改：

修改后，运行窗体，我们可以对这个选项组的任何一项进行单选，这就是我们设置的多个条件，我们从中可以选择一个条件即可：

在条件设置好之后，我们可以对这个选项组进行VBA代码编程了。

结语：喜欢的请关注、转发！

本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件至 sumchina520@foxmail.com 举报，一经查实，本站将立刻删除。
如若转载，请注明出处：https://www.yiheng8.com/143430.html