VBA编程入门PPT学习教案

1、会计学1VBA编程入门编程入门第1页/共100页第2页/共100页第3页/共100页第4页/共100页第5页/共100页第6页/共100页第7页/共100页第8页/共100页工程窗口工程窗口选择对象选择对象属性窗口属性窗口选择对象选择对象的属性的属性代码代码窗口窗口选择选择事件事件第9页/共100页 第10页/共100页 第11页/共100页Const Pi = 3.1415926Public Sub area( )Dim r As IntegerDim cir, area As Integerr = InputBox(请输入圆的半径:)cir = 2 * Pi * rarea = Pi *

2、r * rMsgBox 圆的周长是: & cir & 圆的面积是: & areaEnd Sub第12页/共100页变量变量在程序中使用变量，就要给变量定义名称及类型，即在程序中使用变量，就要给变量定义名称及类型，即对变量进行声明对变量进行声明第13页/共100页第14页/共100页第15页/共100页输出测试语句Debug. Print 表达式列表;|,例: 变量的输出结果2) 静态变量 第16页/共100页信息。信息。第17页/共100页明，可以在窗体模块、标准模块和明，可以在窗体模块、标准模块和类模块的通用声明段中加入语句：类模块的通用声明段中加入语句：Option ExplicitOpt

3、ion Explicit第18页/共100页第19页/共100页第20页/共100页第21页/共100页第22页/共100页第23页/共100页第24页/共100页 第25页/共100页第26页/共100页第27页/共100页第28页/共100页例: Dim stu As Stringstr=MsgBox (“请确认输入的学生名”, 3+32+0, ”输入姓名”)或: str=MsgBox (“请确认输入的学生名”, VbYesNoCancel+VbQuestion+VbDefaultButtonn1, ”输入姓名”) (3)当单击消息框上的按钮时, 返回一个整数值,系统判断用户单击了哪个按钮

4、.第29页/共100页例8.2.5 以下过程使用InputBox函数返回由键盘输入的用户名, 并在消息框中显示字符串Private Sub hello( )Dim str, msg As Stringstr = InputBox(请输入你的名字, 用户信息)MsgBox 你好! & str, vbInformation, 问候End Sub第30页/共100页第31页/共100页1.赋值语句：赋值语句：给变量、常量或对象的属性指定一个值或表达给变量、常量或对象的属性指定一个值或表达式。式。第32页/共100页第33页/共100页语句组语句组2语句组语句组1TF语句组语句组2条件条件语句组语句组

5、1FT条件条件语句组语句组TF条件条件语句组语句组第34页/共100页TF语句语句2条件条件语句语句1TF条件条件语句语句1第35页/共100页第36页/共100页例: 输入三个整数,然后把这3个整数按从小到大的顺序重新排序输出Private sub prg4( )Dim a, b, c, temp as Longa= val(InputBox(“请输入第一个数:”)b= val(InputBox(“请输入第二个数:”)c= Val(InputBox(“请输入第三个数:”)第37页/共100页If a b Then 执行If语句后, b中存放a,b中最大数 temp = a a = b b =

6、 tempEnd IfIf b c Then 执行If语句后, c中存放a,b,c中最大数 temp = b b = c c = tempEnd IfIf a b Then 执行If语句后, b中存放三个数中次大数 temp = a a = b b = tempEnd IfMsgBox 三个数从小到大的顺序为: & a & Space(2) & b & Space(2) & cEnd Sub第38页/共100页第39页/共100页第40页/共100页yxxxxxxxsincos231030 第41页/共100页 第42页/共100页例: 修改prg4(), 用嵌套的if语句实现: 输入三个整数

7、,然后把这3个整数按从小到大的顺序重新排序输出Private sub prg4()Dim a, b, c, temp as Longa= InputBox(“请输入第一个数:”)b= InputBox(“请输入第二个数:”)c= InputBox(“请输入第三个数:”)If ab then temp=a;a=b;b=tempEnd if 第43页/共100页If bc then temp=b;b=c;c=temp if ab then temp=a;a=b;b=temp end if End if MsgBox “三个数从小到大的顺序为:”&a &space(2) &b & space(2)

8、&cEnd sub第44页/共100页第45页/共100页例8-6:根据输入的一个分数,判断对应的成绩等级, 分数在90100分记为A, 8089 为B , 7079为C, 6069为D,059为E,否则显示出错信息.第46页/共100页Private Sub prg5( ) Dim mark As Integer mark = InputBox(输输入一入一个个0100之之间间的分的分数数, 判判断断成成绩绩等等级级) If mark = 90 Then MsgBox 成成绩为绩为A ElseIf mark = 80 Then MsgBox 成成绩为绩为B ElseIf mark = 70

9、Then MsgBox 成成绩为绩为C ElseIf mark = 60 Then MsgBox 成成绩为绩为D ElseIf mark = 0 Then MsgBox 成成绩为绩为E Else MsgBox 数数据据输输入入错误错误 End IfEnd Sub第47页/共100页 4) 1(3213Int第48页/共100页第49页/共100页 第50页/共100页 .第51页/共100页 第52页/共100页Private Sub prg6( ) Dim mark As Integer mark = InputBox(输入一个输入一个0100之间的分数之间的分数, 判断成绩等级判断成绩等级

10、)Select case mark case is= 90 MsgBox 成绩为成绩为A case is = 80MsgBox 成绩为成绩为B case is = 70MsgBox 成绩为成绩为C case is = 60 MsgBox 成绩为成绩为D case is = 0MsgBox 成绩为成绩为E case ElseMsgBox 数据输入错误数据输入错误 End selectEnd Sub第53页/共100页 第54页/共100页 第55页/共100页第56页/共100页 第57页/共100页例例8-88-8：计算累乘程序：计算累乘程序 S=1S=1* *2 2* *3 3* *4 4X

11、 X第58页/共100页第59页/共100页第60页/共100页 表 达 式 列 表 1 F T F T E x it D o 语 句 块 语 句 块 E x it D o 语 句 块 语 句 块 表 达 式 列 表 1 图 D o L oop W h ile 图 D o W h ile L oop 第61页/共100页第62页/共100页第63页/共100页第64页/共100页第65页/共100页例: 计算 +3+5+99Private Sub prg12( )i=1S=0While i=99 s=s+1 i=i+2WendDebug.Print “1+3+5+99=”;sEnd Sub第6

12、6页/共100页第67页/共100页第68页/共100页例: Dim mark(1 to 100) as integer 存储单元如下:mark(1), mark(2),mark(3),.,mark(99),mark(100)例: Dim b(5) as integer 存储单元如下:b(0), b(1), b(2), b(3),b(4),b(5),b(6)第69页/共100页第70页/共100页 第71页/共100页 第72页/共100页 第73页/共100页 u 第74页/共100页第75页/共100页 第76页/共100页 第77页/共100页第78页/共100页第79页/共100页第8

13、0页/共100页模块的组成模块的组成 模块由一个声明区域和一个或多个过程组成创建创建VBA 模块与编程环境模块与编程环境 Access提供了一个编程界面-VBE进入进入VBE编程环境编程环境 1. 创建类模块2. 创建标准模块第81页/共100页第82页/共100页第83页/共100页事件有:1. 鼠标常用事件: (1) Click (2) DbClick (3) MouseMove2. 窗体常用事件:(1) Open (2) Active (3) Close 第84页/共100页第85页/共100页第86页/共100页例 8-21 .sub过程的定义与调用Private Sub pro1()

14、 Dim a As Integer, b As Interger a=InputBox(“请输入第一个数:”): b=InputBox(“请输入第二个数:”) Call swap(a,b) Debug.Print a;bPrivate Sub swap(x As Integer, y As Integer) Dim t As Integer if xy then t=x: x=y: y=t End IfEnd Sub第87页/共100页Private Sub pro1( ) Call Swap(a,b) Swap a,bEnd SubPrivate Sub Swap(x%,y%) Dim te

15、mp% Temp=X X=Y Y=TempEnd Sub 第88页/共100页第89页/共100页例例8.22 按地址传递参数按地址传递参数Private Sub pro2() Dim a As Integer, b As Integer, c as Integer a=1:b=3:c=5 Debug.Print a,b,c call pro3(a,b,c) Debug.Print a,b,cPrivate Sub pro3(Byval x As Integer, y As Integer, z as Integer) x=2: y=4: z=6End Sub第90页/共100页值传递值传递: 调用前调用前 调用调用 在在pro3()过程中过程中 调用结束返回后调用结束返回后a=1 a=1 x=1 a=1,x=2 a=1通过地址传输数据的过程通过地址传输数据的过程:调用前调用前 调用调用 在在pro3()过程中过程中 调用结束返回后调用结束返回后b=3 b= b= b= y yc=5 c= c= c= z z z354646第91页/共100页第92页/共100页 第93页/共100页例(8-24): 运行窗体,根据在文本框中输入的数,判断并显示该数是奇数还是偶数Private Sub Command3_Click() Di