1+2x+3x^2+4x^3+…+(n+1)x^n<1000的最大n值
Public Sub qiuN()
'该过程是用于求出满足不等式1+2x+3x^2+4x^3+…+(n+1)x^n<1000的最大n值，
'其中x是大于等于1的实数，其值由键盘输入。
Dim x As Single, s As Single, n As Integer, s1 As Single, p As Single
x = Val(InputBox("x="))
s = 1: n = 1
p = x
while ----1----
s1 = s
s = s + (n + 1) * p
p=p* ----2----
n= ----3----
Wend
n= ----4-----
form1.Print "The Maxism of n"; n, "s="; s1
End Sub
参考答案:Public Sub qiuN()
'该过程是用于求出满足不等式1+2x+3x^2+4x^3+…+(n+1)x^n<1000的最大n值，
'其中x是大于等于1的实数，其值由键盘输入。
Dim x As Single, s As Single, n As Integer, s1 As Single, p As Single
x = Val(InputBox("x="))
s = 1: n = 1
p = x
while s<1000
s1 = s
s = s + (n + 1) * p
p=p* x
n= n+1
Wend
n= n-1
form1.Print "The Maxism of n"; n, "s="; s1
End Sub