1+ + + +…….n
最大的n。请填空
Private Sub Command1__Click()
Dim s ,m,n AS Integer
m=Val(InputBox(“请输入一个大于100的整数”))
n=______
s=0
Do While s
N=n+1
S=s+n*n
Loop
Print "满足不等式的最大n是" ______
End Sub
发布于 2022-05-11 10:18:56
登录后免费查看答案
关注者
0
被浏览
13