一道vf编程题

来源：百度知道 编辑：UC知道 时间：2024/06/06 16:22:28
随机输入20个数，统计其中的正数，负数，和零的个数。
怎么编程啊~~~~~~~~~~~~
不要太复杂，用最基本的语句就可以了

dime a(20)
for i=1 to 20
input "请输入第"+allt(str(i))+"个数：" to a(i)
endfor
n1=0
n2=0
for i=1 to 20
if a(i)>0
n1=n1+1
else
if a(i)<0
n2=n2+1
endif
endif
endfor
? "正数:"+allt(str(n1))
? "负数:"+allt(str(n2))
? "零:"+allt(str(20-n1-n2))