VF 输入10个数,分别统计正数、负数和零的个数
问题描述：
VF 输入10个数,分别统计正数、负数和零的个数
答
clear
store 0 to a1,a2,a3
for i=1 to 10
input "请输入一个数：" to x
do case
case x>0
a1=a1+1
case x=0
a2=a2+1
case x