S=1+2X/X^2+3X/X^3+4X/X^4+.......,X>1求VB程序设计
发布网友
发布时间：2022-04-24 06:27
共3个回答
热心网友
时间：2023-10-08 20:50
x应该是一个输入的数字 对吧？？
那。。
Private Sub Form_Load()
Dim x!, s!
x = InputBox("输入一个大于1的数")
s = 1
For i = 1 To 99999999
s = s + i / x
If i / x < 10 ^ -5 Then GoTo out
x = x * x
Next i
out:
Print s
End Sub
热心网友
时间：2023-10-08 20:50
Dim s As Double, n As Integer, x As Single
x = Val(InputBox("输入x", "输入x", 0))
n = 1: s = 0
'S=1+2X/X^2+3X/X^3+4X/X^4+.......,X>1求VB程序设计
'第n项为n*x/x^n
Do While n * x / x ^ n > 0.00001
s = s + n * x / x ^ n
n = n + 1
Loop
Print n
Print n * x / x ^ n
End Sub
这样就行了吧！！
热心网友
时间：2023-10-08 20:51
