下列程序的运行结果为( )。 　　Dim a(-1 To 6) 　　For i=LBound(a，1)To UBound(a，1) 　　　　a(i) = i 　　Next i 　　Print a (LBound(a，1))；a(UBound(a，1))

A．1，2，0
B．2，1，0
C．1，2，1
D．2，1，1

A． 设置直线颜色和形状边界颜色
B． 设置直线或形状背景颜色
C． 设置直线或形状边界线的线型
D． 设置形状的内部颜色