在窗体上画一个命令按钮，其名称为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 10If Art(k) ＞ 0 ThenElseEnd If Next k Print pos, neg End Sub以上程序的功能是，计算并输出数组Arr中10个数的整数之和pos与负数之和neg，请填空。