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

1、

【正确答案】 1、[10]pos=pos+Arr(k)

【答案解析】[11]neg=neg+Arr(k) [知识点] 程序控制语句的相互嵌套 [评析] 先声明一个数组Arr，并指定下标的最小值为1，接着用Array函数为数组元素赋值，即把一个数据集读入数组Arr，用For循环来指定显示某个数组元素并对数组元素的值进行判断，如果数组中第k个元素的值大于0，应该存到统计正数和的变量中，否则存到统计负数和的变量中。题目用变量pos累计正数的和，所以求正数和的表达式应写为：pos=pos+Arr(k)；由于求负数和的变量为neg，所以求负数和的表达式应写为： neg=neg+Arr(k)。