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