VBA等差数列实例讲解

VBA等差数列实例讲解

等差数列是个比较简单的数学排列，也是容易理解的一个数列格式。

本节举一个示例来演示一下，什么是等差数列。

如下图所示，等数列执行一些代码后就以等并方式进行显示出来了。

等差数列是常见数列的一种，如果一个数列从第二项起，每一项与它的前一项的差等于同一个常数，这个数列就叫做等差数列，而这个常数叫做等差数列的公差，公差常用字母d表示。例如：1,3,5,7,9……1+2。

等差数列的通项公式为：an=a1+d 前n项和公式为：或Sn=n/2。

注意：以上n均属于正整数。

代码

Private Sub CommandButton2_Click

'计算等差数列

Dim R As Range

Dim n As Integer

Dim Q As Double

Dim i As Integer

Dim sArr

Set R = Range

n = R.Rows.Count

If n <= 1 Then Exit Sub

Q = R.Cells.Value '比例值

For i = 1 To n

If i = 1 Then

R.Cells.Value = R.Cells.Value

Else

R.Cells.Value = R.Cells.Value + Q

End If

Next i

End Sub

学好数学是编程进阶的基本条件，如果要对代码进行高质量应用，那就是需要相对完整的数学逻辑，这样才对编码有一个很好的把握，不然的话，可能会出现形形色色的问题。

电脑运行的基础就是数学计算，无论怎么改变，目前的计算机底层逻辑是不会改变的。

所以，数学是必要的一个知识。

欢迎关注、收藏

---END---