VB语言 基本语句（会数学的也可以)

超级渔翁

用基本语句编写一个算法，要求对输入的20个数，输出其中正数、负数、和0的个数。
本来是高中数学算法题，会数学的也来看下···谢谢!
不要C++，我上百度找了个原题，竟是C语言编的。难道VB不可以吗？
这可是个数学题啊！
我要可视化的

tony_sun76421

额，这个：
  dim  a(i),n as intenger
      for i = 0 to 19
         if a(i)>0 then
            n1=n1+1
           else
              if a(i)=0 then
                 n2=n2+1
              else
                  n3=n3+1
              end if
         end if
     next
print “正数个数="n1
       “0的个数="n2
       “负数个数="n3

然后你再调试下吧……