[已解决]VBA计算一下这个相乘分数

vbyou127

VBA计算一下这个相乘分数

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-1 11:27

Sub tt()
    For i = 1 To 39 Step 2
        s = IIf(i Mod 4 = 1, s + 1 / i, s - 1 / i)
    Next
    s = s * 4
    MsgBox s
End Sub

跳转到最佳答案楼层

grf1973

Sub tt()
    For i = 1 To 39 Step 2
        s = IIf(i Mod 4 = 1, s + 1 / i, s - 1 / i)
    Next
    s = s * 4
    MsgBox s
End Sub

香川群子

简化一下：

Sub tt1()
    For i = 1 To 39 Step 2
        s = s + IIf(i Mod 4 = 1, 1, -1) / i '提取公因数到IIf括号外面
    Next
    s = s * 4
    MsgBox s
End Sub

Sub tt2()
    For i = 1 To 39 Step 4 '必须能按+/-成对计算 否则结果不正确
        s = s + 1 / i - 1 / (i + 2)
    Next
    s = s * 4
    MsgBox s
End Sub

呵呵。

vbyou127

香川群子 发表于 2016-3-1 13:35
简化一下：

Sub tt1()

香勤，西勤， 老道今晚拿你来煮菜   一定好好味道   哈哈

你可别太认真

vbyou127

香川群子 发表于 2016-3-1 13:35
简化一下：

Sub tt1()

已经没有分，今天不能加你了