单击按钮时，以下程序运行后的输出结果是（ ）。　　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

2009年，北京市在优先保证高端、高效、高辐射力优势产业用地供应的原则下，制定了城市建设土地供应计划(如下图所示)。读图回答题。

小题1:商业服务用地较少的原因是(　　)

A．公用事业的发展

B．该市服务范围覆盖全国

C．金融业和工矿业的发展

D．商业服务业高度集聚小题2:该土地供应计划最有利于该市(　　)

A．调整产业结构

B．促进工业发展

C．推动科教事业

D．改善人居环境