在体格检查中，医生应遵循的道德要求不包括

下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式

1+22+32+42+…+n2＜m

的最大的n。请填空。

Private Sub Command1_Click()

Dim s,m,n As Integer

m=Val(InputBox("请输入一个大于100的整数"))

n=【 】

s=0

Do While s＜m

n=n+1

s=s+n*n

Loop

Print "满足不等式的最大n是";【 】

End Sub

（6 ） 下面程序的功能是从键盘输入 1 大于 100 的整数 m ，计算并输出满足不等式

1+22+32 +42 + …… .+n2<m

的最大的 n 。请填空

Private Sub Command1__Click （）

Dim s ,m,n AS Integer

m=Val （InputBox （“ 请输入一个大于 100 的整数 ” ））

n=_________

s=0

Do While s<m

n=n+1

s=s+n*n

Loop

Print “ 满足不等式的最大 n 是_____

End Sub