数学是编程思想实现的一个很重要的条件方法，掌握熟练的数学公式，可以对编程逻辑有一个很清晰的梳理。
高级编程就是数学概念的应用，所以，有必要对一些常用的数学公式来进行一个深度应用思考。
本节内容是实现等比数列的方法，通过VBA进行表格计算，可以把等比列数据添加到相应的表格中。
如下图所示：
图中的起始值和比值可以自由设定，根据起始值和比值自动计算出等比数列。
很简单的一个计算，但是需要理解什么是等比数列。
等比数列有一个数学表达公式：
a (n+1)/an=q (n∈N）
其中，q叫作公比，且q≠0。
等比数列解释：如果一个数列从第2项起,每一项与它的前一项的比等于同一个常数(q),这个数列就叫做等比数列。
如：2、4、8、16、32
就是一个等比数列，公比q=2
代码：
Private Sub CommandButton1_Click()
'计算等比数列
Dim R As Range
Dim n As Integer
Dim Q As Double
Dim i As Integer
Dim sArr()
Set R = Range("C4:F13")
n = R.Rows.Count
If n <= 1 Then Exit Sub
Q = R.Cells(1, 3).Value '比例值
For i = 1 To n
If i = 1 Then
R.Cells(i, 4).Value = R.Cells(i, 2).Value
Else
R.Cells(i, 4).Value = R.Cells(i - 1, 4).Value * Q
End If
Next i
End Sub数学公式应用于实际中就可以解决一些很复杂的计算问题，等比数列可以看作是一个梯度递加过程，以一定的比列进行加法运算。最普遍的如"复利"计算等。
学好数学，是进行高级编程的必经之路，如果不做为进阶学习，那么随便看看就好了。
欢迎欢迎、收藏
---END---
Tags：subcommand