单击按钮时，以下程序运行后的输出结果是（ ）。　　Private Sub proc1(x As Integer，y As Integer，z As Integer)　　　　x=3*z　　　　y=2*z　　　　z=x+y　　End Sub　　Private Sub Command1_Click()　　　　Dim x As Integer，y As Integer，Z As Integer　　　　x=1：y=2：z=3　　　　Call proc1(x，x，z)　　　　Print x；x；z　　　　Call proc1(x，y，y)　　　　Print x；y；y　　End Sub

A．6 6 12

B．9 5 10 6101051010

C．9 6 12

D．9 10 10 910155410

如果a∥b，b∥c，那么a∥c，这个推理的依据是[ ]

A．等量代换

B．平行线的定义

C．经过直线外一点，有且只有一条直线与已知直线平行

D．平行于同一直线的两直线平行