[填空题] 在窗体上画一个命令按钮,其名称为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
(8)
Else
(9)
End If
Next k
Print pos, neg
End Sub
以上程序的功能是,计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空。
正确答案:pos=pos+Arr(k)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)