Dim s As Integer Dim x As Integer Dim y As Integer s = 0 x = 1 y = 1 While (x \ y > 10 ^ -5) s = s + x \ y x = x + 1 y = y + 2 Wend ----------------------------------------------------------------------- 最后结果为1,其实我想肯定你的题目本意应该是这样的 s=1+2/3+3/5+4/7+., 因为2\3,3\5,4\7...等等值都为0 ------------------------------------------------------------------------ 运算符区别 / 除法运算 \整除运算