以下属于纯净物的是[ ]

A．胆矾

B．精盐

C．盐酸

D．普钙

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Commandl_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

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）

A．10

B．16

C．12

D．20