求个代码

tjc5471

有一个这样的公式，x是大于2的整数变量，当x=2时， y= 6^(1 - x) / (x - 1) + 6^(1 - 2 * x) / (2 * x - 1)  ,当x=3时， y= 6^(1 - x) / (x - 1) + 6^(1 - 2 * x) / (2 * x - 1) + 6^(1 - 3 * x) / (3 * x - 1) ,当x=4时， y= 6^(1 - x) / (x - 1) + 6^(1 - 2 * x) / (2 * x - 1) + 6^(1 - 3 * x) / (3 * x - 1) + 6^(1 - 4 * x) / (4 * x - 1),等等。怎么编写这种计算代码？请高手指点。

18796014744

没啥意义的计算，计算结果取决于第一项，后面的完全可以忽略，不用双精度都看不出数据的变化

tjc5471

谢谢，感觉好复杂的，想不到这么简单，唉。不过，公式应该是这样的：
Sub 计算2()
Dim x As Integer
Dim s As Double
Dim y As Double
x = InputBox("请输入x")
y = InputBox("请输入y")
s = 0
For i = 1 To x
    s = s + 6 ^ (1 - i * y) / (i * y - 1)
Next
MsgBox "计算结果" & s
End Sub