今日学习目标

  • 理解Sub过程和Function函数的区别
  • 学会定义和调用Sub过程
  • 学会定义和调用Function函数
  • 掌握参数传递

知识点

1. Sub过程

  • 执行操作，不返回值
vba
Sub 过程名(参数列表)
' 代码
End Sub

2. Function函数

  • 执行操作，返回一个值
vba
Function 函数名(参数列表) As 返回类型
' 代码
函数名 = 返回值
End Function

3. 参数传递

  • 按值传递：ByVal
  • 按引用传递：ByRef（默认）

今日代码

vba
Sub 调用过程示例()
    Call 显示欢迎信息
End Sub

Sub 显示欢迎信息()
    MsgBox "欢迎学习VBA!", vbInformation
End Sub

Function 计算面积(长 As Double, 宽 As Double) As Double
    计算面积 = 长 * 宽
End Function

Sub 调用函数示例()
    Dim area As Double
    area = 计算面积(5, 3)
    MsgBox "面积: " & area
End Sub

练习题

  1. 创建一个计算周长的函数
  2. 创建带默认参数的过程
  3. 创建一个求最大值函数

参考解答

1. Function计算周长(长 As Double, 宽 As Double) As Double，然后返回2 * (长 + 宽)。 2. Sub 欢迎(Optional name As String = "游客")，使用Optional关键字和默认值。 3. Function求最大值(a As Integer, b As Integer) As Integer，使用If判断返回较大值。

由在线工具箱(www.vba.net)整理制作