下面程序的功能是从键盘上输入一个大于100的整数m，计算并输出满足不等式1+2²+3²+4²+…+n²＜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 "满足不等式的最大n是" (7)
End Sub

下列各项，与胎黄发病无关的脏腑是（）

A.肝

B.胆

C.胃

D.肾

E.脾