下面程序的功能是从键盘上输入一个大于100的整数m,计算并输出满足不等式1+22+32+42+…+n2<m的最大的n,请填空。 Private Sub Command1_Click() Dim s, m,n As Integer m=Val(InputBox("请输入一个大于100的整数")) n= (6) s=0 Do While s<m n=n+1 s=s+n*n Loop Print "满足
主观题
下面程序的功能是从键盘上输入一个大于100的整数m,计算并输出满足不等式1+22+32+42+…+n2<m的最大的n,请填空。 Private Sub Command1_Click() Dim s, m,n As Integer m=Val(InputBox("请输入一个大于100的整数")) n= (6) s=0 Do While s<m n=n+1 s=s+n*n Loop Print "满足