用vb计算s=1+2\3+3\5+4\7+.,当第i项的值小于10^-5时结束