vb求100个整数的最大值及最大值的个数