10个箱子总重100公斤，且重量排在前三位的箱子总重不超过重量排在后三位的箱子总重的1.5倍，问最重的箱子重量最多是多少公斤（）

A．

B．

C．20

D．25

以下程序运行后，单击按钮输出结果是
　　Private Sub Commandl_Click( )
　　　　Dim x As Integer，y As Integer，z As Integer
　　　　X=4：y=2： Z=3
　　　　Call Gopd(x，x，z)
　　　　Print x；X；Z
　　　　Call Gopd(x，y，y)
　　　　Print x；y；y
　　End Sub
　　Private Sub Gopd(x As Integer，y As Integer，z As Integer)
　　　　X=3 * Z + 1
　　　　y=2 * z
　　　　z=x + y
　　End Sub

A．6　6　12
　　 7 11 11

B．8　5　10
　 　5 11 11

C．9　6　12
　　 9 10 15

D．8　10　10
　 　5 9 10