在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Art
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
【 】
Else
【 】
End If
Next k
Print pos，neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。