下列现象不属于板块张裂运动产生的是（　　）

A．东非大裂谷的形成

B．亚洲和非洲之间的红海在不断扩张．有人预言，几千万年后，红海将成为新的大洋

C．位于欧洲和非洲之间的地中海面积不断缩小

D．板块运动发生张裂时，地表会产生陷落现象

在窗体上画一个命令按钮，名称为Command1。然后编写如下事件过程：
Private Sub Command1_Click()
x=11
Sum=0
For i=1 To x
n=Iif(i＞5, 1, 2)
Sum=Sum+n
Next i
Print Sum
End Sub
运行后的输出结果是______。

A．16

B．11

C．5

D．2