vba怎么做九九加法表（VBA如何实现等比数列过程）

数学是编程思想实现的一个很重要的条件方法，掌握熟练的数学公式，可以对编程逻辑有一个很清晰的梳理。

高级编程就是数学概念的应用，所以，有必要对一些常用的数学公式来进行一个深度应用思考。

本节内容是实现等比数列的方法，通过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---