[填空题] 以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。 Privae Sub Co

[填空题] 以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。

Privae Sub Commandl_Click

N=10

C=0:IC=0:D=0:ID=0

For =1 To N

A=Val(1nputBox(“请输入A”))

IFA＜0 Then C=C+A：IC=IC+1

lf A＞O Then D=

Next K

Print"负数的个数为：",IC

Print"负数的和为：",C

Print"正数的个数为："，ID

Print"正数的和为：",D

End Sub

D+A:ID=ID+1