![[填空题] 以下程序用来计算由键盘输入的个数中正数之和、负数之和、正数的个数、负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。请在空白处填入适当的内容，将程序](http://www.mshxw.com/aiimages/31/249688.png "[填空题] 以下程序用来计算由键盘输入的个数中正数之和、负数之和、正数的个数、负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。请在空白处填入适当的内容，将程序")
[填空题] 以下程序用来计算由键盘输入的个数中正数之和、负数之和、正数的个数、负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click
N=10
C=0:IC=0:D=0:ID=0
For K=1 To N
A=Val(InputBox(“请输入A"))
If A＜0 Then C=C+A:IC=IC+1
If A＞0 Then D= (14)
Next K
Print“负数的个数为：”，IC
Print”负数的和为：”，C
Print”正数的个数为：”ID
Print”正数的和为：”，D
End Sub
参考答案：
D+A:ID=ID+1问题解析:
根据待填空上一行A为负值的表达式应该可以比较容易得到答案。D既然是整数的累加和，所以D应该表达为D=D+A，与此同时D应该自加1统计正数的个数。两条语句之间用冒号“：”分隔。
