數學是編程思想實現的一個很重要的條件方法，掌握熟練的數學公式，可以對編程邏輯有一個很清晰的梳理。
高級編程就是數學概念的應用，所以，有必要對一些常用的數學公式來進行一個深度應用思考。
本節内容是實現等比數列的方法，通過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---
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
