|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub kgv()
Dim x As Integer
Dim arr(1 To 500, 1 To 1)
x = 0
k = 1
For i = 1 To 1000
m = i + 1
n = i * (i + 1)
If n > 100 Then Exit For
x = y + 1 / m + 1 / n
If m = n Then
i = n - 1
y = y + 1 / m
sss = sss & IIf(sss = "", "", "+") & "1/" & m
ElseIf x = 1 And m <> n Then
arr(k, 1) = sss & "+1/" & m & "+1/" & n
k = k + 1
i = n - 1
y = y + 1 / m
sss = sss & "+1/" & m
End If
Next i
[f1].Resize(k, 1) = arr
End Sub
写到这,没办法再做下去了。
根本用不了递归,递归一到50速度就无法忍受了。 |
评分
-
1
查看全部评分
-
|