在窗体上画一个命令按钮,其名称为command1,然后编写如下代码: Option Base 1 Private Sub Command1_ Click() Dim Arr Arr = Array(43, 68f -25, 65, -78, 12

admin2009-07-23  24

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

选项

答案pos = pos + Arr (k) neg = neg + Arr (k)

解析
转载请注明原文地址:https://jikaoti.com/ti/cPq0FFFM
0

最新回复(0)