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