Private Sub Command1_Click()
Dim sum As Double
Dim i As Long
Dim n As Double

n = ((1 / (10 ^ -5)) + 1) / 2 '正好等于10 ^ -5時候n的值
n = Round(n + 0.5, 0) '對n+0.5進(jìn)行四舍五入處理,保證n只要有小數(shù)點后面有數(shù)就進(jìn),不舍.

For i = 1 To n '計算n項的和
sum = sum + 1 / (2 * i - 1)
Next i
Print "項數(shù)n為：" & n
Print "n項和為：" & sum
End Sub

調(diào)試如下圖：