以下程序用来计算由键盘输入的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