问题 填空题

在窗体上画一个命令按钮,其名称为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,请填空。

答案

参考答案:(11)pos=pos+arr(k) (12)neg=neg+arr(k)

解析: 本题中实际是对数据进行累加求和。存储累加和的变量分别为pos和neg,累加的分量为数组arr的元素值,在If…Else…End If语句中判断元素值的大小,根据题目要求正数累加到pos变量中,负数累加到neg变量中,所以答案为“pos=pos+arr(k)”和“neg=neg+arr(k)”。

问答题
填空题