Access15过程调用及参数传递.pptVIP

下载本文档

17
0
约1.4万字
约 34页
2017-04-09 发布于四川
举报
版权申诉

Access15过程调用及参数传递.ppt

1、本文档共34页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

第15讲 VBA的过程调用与变量作用域：复习：标准模块与类模块模块由过程组成：一个模块有1到多个过程组成：所有模块都有一个声明区(过程)，在模块的最前面，用来定义下面过程要用到的变量和字符比较方式等：P257 Option Base 0 | 1 声明模块中数组下标的初始值，默认为0 Option Compare Database 声明模块中字符串比较的方法。用数据库的区域ID确定排序级别进行比较。 Option Explicit 强制显示声明模块中的所有变量。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 第15讲子过程与函数过程 Sub（子程序）过程 Sub过程也称为子程序，它一般执行某种操作或一系列运算，但没有返回值。用户可以自己创建Sub过程或使用Access已经创建好的事件过程模块。数据库的每一个窗体和报表都有内置的窗体模块或报表模块。这些模块包含事件过程模板，用户可以在其中添加自己的代码。当窗体、报表或在其上的控件中发生相应的事件时，Access将自动运行这些代码。例如，可以在“学生信息登记”窗体上添加一个“添加记录”的按钮，并在该按钮的单击事件中写上相应的代码，就可以为“学生信息”表增加记录。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Sub 质数1to100() Dim i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 100 For j = 2 To i - 1 If (i / j) = (i \ j) Then Exit For Next j If j = i Then Debug.Print i, k = k + 1 End If If k = 7 Then k = 1 Debug.Print End If Next i End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Sub 三角形() Dim i As Integer, j As Integer Debug.Print For i = 1 To 9 Debug.Print Space(15 - i); For j = 1 To i * 2 - 1 Debug.Print *; Next j Debug.Print Next i End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Sub 循环() Dim x As Integer, a As Integer, b As Integer x = 8 For a = 0 To 1 Do While b 25 b = b + a + x Loop Next Debug.Print b= b MsgBox b= b End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd