[电脑基础知识]VBA编程入门.pptVIP

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

例:Dim lArray( 0 To 3, 0 To 4) As Long 共有 4×5个元素等价于: Dim lArray(3,4) As Long 一维数组元素的引用 使用形式:数组名(下标) 其中:下标可以是常量、整型变量或表达式。 例如:设有下面的数组A(10) 、B(10) As Integer 则下面的语句都是正确的。 A(1)=B(2)+B(1)+5 取数组元素运算 A(i)=B(i) 下标使用变量 A(i+2) = B(i+1) 下标使用表达式 注意:引用数组时不能下标越界 V-5-2 数组的基本操作 1.数组元素的引用 引用二维数组的形式: 数组名([下标1,下标2) 下标1指定元素在二维表中所在的行,下标2指定元素在二维表中所在的列。 例如: a(1,2)=10 a(i+2,j)=a(2,3)*2 在程序中常常通过二重循环来操作使用 二维数组元素。 数组引用实例: 通过循环给数组元素的初值 For i = 1 To 10 A数组的每个元素值为1 A(i)=1 Next i 数组的输入(通过InputBox( )函数) For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox(输入sc( i , j ) 的值) Next j Next i 2.数组元素的输入 V-6 VBA过程 过程是构成程序的一个模块,往往用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA 具有四种过程:Sub 过程、Function 函数、Property 属性过程和Event 事件过程。 Sub过程执行一些有用的任务但是不返回任何值,它们以关键字Sub开头并以关键字End Sub结束。如下例: V-6-1 Sub过程 Sub main() Msgbox(“Hello!”) End Sub 第一行Sub表示过程的开始,main为过程名; 第二行是过程的主体,调用函数Msgbox(),输 出”Hello!”;最后End Sub表示过程 的结束。 Sub 过程的参数有两种传递方式:按值传递(ByVal)和按地址传递(ByRef)。如下例: Sub password (ByVal x as integer, ByRef y as integer) If y=100 then y=x+y else y=x-y x=x+100 End sub 1 Sub过程的参数传递 在上例中,过程password每次执行时需要向其传递两参数(x,y),否则该过程不能执行。在传递x与y参数时,x不影响过程password外部x的值,而y则对过程外的y值产生影响。 2 Sub过程的调用 调用过程有两种方式: 1. Call 过程名(参数1, 参数2…) ; 2. 过程名 参数1, 参数2… 如下例: Sub main() Call password(10,20) password 30,40 End Sub ‘方式1 ‘方式2 注意:调用Sub过程也是在过程中进行的 V-6-2 Function函数 Function函数实际是实现一种映射,它通过一定的映射规则,完成运算并返回结果。 它们以关键字Function开头并以关键字End Function结束。如下例: Function password(ByVal x as integer) as boolean if x=150 then password=true else password=false End Function 函数password返回一个布尔值 Function函数的两各调用方式: 1.作为一个表达式放在=右端 ; 2.作为参数使用; 如下例: Sub main() Dim i As Integer i = getResult(20) Debug.Print i i = getResult(30) + i Debug.Print i End Sub Function getResult(ByVal i As Integer) As Integer Dim j As Integ

文档评论(0)

qiwqpu54 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档