执行统一运价的输油管道运输价格按照（）不同分别制定。

A.质量、管径

B.运距、管径

C.速度、运距

D.速度、管径

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Arr(k)＞0 Then
(11)
Else
(12)
End If
Next k
Print pos,neg
End Sub
以上程序的功能是：计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。