vb程序设计调用函数fun,计算1 2 3 4 ..... n