搜索

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

我把题目化简下s=1+2/x+3/x^2…
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

Private Sub Command1_Click()
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

后面是第N项小于10的-5次方吗
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

热门图文

Top