第8讲 模块和VBA程序设计.pptVIP

第8讲 模块和VBA程序设计 本章主要内容 8.1 模块的概念 8.1 模块的概念 8.1 模块的概念 8.1 模块的概念 例8-1：下面是一个简单的验证密码的Sub过程。 Sub CheckPwd( ) Dim Pwd As String Pwd=InputBox(“请输入密码！”) If Pwd=”123456” Then MsgBox ”密码正确，欢迎进入系统！” Else MsgBox ”密码错误！” End if End Sub 8.1 模块的概念 例8-2：下面是编写求圆面积的函数过程。 Function Circle(r As Single) As Single Dim Circle As Single Circle=0 If r=0 Then MsgBox “圆半径必须是正数！” Endif Circle=3.14159*r*r End Function 8.1 模块的概念 8.1 模块的概念 8.1 模块的概念 8.1 模块的概念 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2 VBA程序设计基础 8.2