在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d=0
c=6
X=Array(2, 4, 6, 8, 10, 12)
For i=1 To 6
If X(i)＞c Then
d=d+X(i)
c=X(i)
Else
d=d-c
End If
Next i
Print d
End Sub

A．10

B．12

C．16

D．20

麻疹合并肺炎时，应隔离至出疹后的（）

A.3天

B.5天

C.7天

D.10天

E.14天