以下程序的输出结果是( )。
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) as Integer
k=5
For I-1 to 10
a(i)=I
Next I
For j=1 to3
p(i)=a(I*j)
Next j
For I=l to 3
k=k+ p (I)*2
Next I
Print k
End Sub

A．33

B．28

C．35

D．37

乳腺纤维腺瘤USG表现为（）

A.呈圆形或椭圆形

B.边界清楚，完整

C.内部回声分布不均匀

D.后部回声多数增强

E.有光滑的包膜