谁能帮我看看？帮我解释一下宏

longzejian

谁能帮我解释一下二楼这宏的意思！最好能每一个行都注释一下。因为我水平有限看不懂。谢谢各位！

longzejian

Option Explicit
Private A() As Double
Private Sub GetNum(ByVal B As Double, E As Double, ByVal n%)
    If n <= 2 Then Exit Sub
    ReDim A(1 To n)
    Dim i%, j%, S As Double, T As Double
    S = 0
    For i = 2 To n
       A(i) = Rnd
       S = S + A(i)
    Next
    For i = 2 To n - 1
        For j = i + 1 To n
            If A(j) > A(i) Then
                T = A(i)
                A(i) = A(j)
                A(j) = T
            End If
        Next
    Next
    For i = 2 To n - 1
        A(i) = A(i) / S
    Next
    A(1) = B
    S = E - B
    For i = 2 To n - 1
        A(i) = Round(A(i - 1) + A(i) * S, 3)
    Next
    A(n) = E
End Sub
Sub Test()
    Application.ScreenUpdating = False
    Dim i%, n%
    n = 11
    GetNum 10, 0, n
    For i = 2 To n + 1
        Cells(i, 1) = i - 1
        Cells(i, 2) = A(i - 1)
        If i >= 3 Then Cells(i, 3) = A(i - 2) - A(i - 1)
    Next
    For i = 3 To n
        Cells(i, 4) = Cells(i, 3) - Cells(i + 1, 3)
    Next
    Application.ScreenUpdating = True
End Sub

icelan2008

你用F8单步运行，在通过LOCAL windows（本地窗口）看变量的变化。
一步步地运行，就能看懂这个宏了！

ningyuanchao

一下子还看不出自定义函数的功能。

ggsmart

我也来补充几点！！！！！

楼上已经将答案解释得很详细了，这里我也不再画蛇添足！
针对中国人在6楼的回贴，我再补充两点：
＝＝＝＝
1、宏与VBA过程有什么关系？
宏是VBA里一个简单的sub过程，它只是VBA里一个最简单的运用。宏代码也绝不等于VBA，它只是一系列固定动作的集合，无法进行人机交互，不能进行判断和执行循环，不能与其他软件进行互动等等，这些都是他的局限性。
＝＝＝＝
2、什么是VBA过程？
一个过程就是执行某些动作的代码组合，也就是要完成某样工作所需要进行的操作过程的堆积。
VBA过程分sub过程和function过程。function过程就是我们所说的自定义函数！

longzejian

呵呵。多谢指点。好复杂的公式。我想这个问题不光要懂得VBA还得要数学好啊！