题目内容:
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
参考答案:
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