不符合无牙颌印模要求的是（）。

A.印模细致、清晰

B.边缘尽量伸展

C.边缘要圆钝，有一定厚度

D.组织受压均匀

E.采取功能性印模

程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub