Vb关于计算平均数，求解答

从键盘上输入一批正整数（如果遇到负数重新输入，如果遇到0停止输入），输出：

（1）输入的正整数的平均值；

（2）高于平均值的正整数的个数。