下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。
Private Sub Command1_Click()
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n>Max Then Max=n
If n s=s+n
______
s=s-Min-Max
p=s/18
Print"最高分";Max;"最低分";Min
Print"最后得分:";p
End Sub

房地产估价师注册证书失效的情形有（）。

A.注册期满3年而未延续注册的

B.持续离开估价岗位超过1年的

C.年龄超过60周岁的

D.聘用单位被撤回房地产估价机构资质证书的

E.不具有完全民事行为能力的